Membuat Resolusi Menu VB Net 2010


Kali ini kita akan mencoba membuat Resolusi Menu pada VB Net 2010. Kita akan membuat menggunakan system array. Cara kerja dari Menu ini adalah Jika kita memilih resolusi pada Combo Box dan Kita Start. Maka Resolusi Form akan berubah sesuai Ukuran yang kita Pilih.
Object yang kita gunakan adalah sebagai berikut.
  • 1 Form
  • 1 ComboBox
  • 1 Button
Langkah langkah :
  • Buatlah Windos Form dengan nama yang kalian inginkan.
  • Lalu Buatlah 1 ComboBox dan 1 Button.
  • Double klik pada Form. Lalu masukan Code Berikut :

        ComboBox1.Items.Add("200 x 200")
        ComboBox1.Items.Add("400 x 400")
        ComboBox1.Items.Add("600 x 600")
  • Kembali Ke Design Form dan Double Klik Button. Masukan COde Berikut:

        Dim INTA() As Integer
        INTA = New Integer((3) - 1) {} ' Jumlah Array 3
        INTA(0) = 200
        INTA(1) = 400
        INTA(2) = 600
        If ComboBox1.SelectedIndex = 0 Then
            Me.Width = INTA(0)
            Me.Height = INTA(0)
        ElseIf ComboBox1.SelectedIndex = 1 Then
            Me.Width = INTA(1)
            Me.Height = INTA(1)
        ElseIf ComboBox1.SelectedIndex = 2 Then
            Me.Width = INTA(2)
            Me.Height = INTA(2)
  •  Setelah itu Run Program dengan Memencet F5
Setelah kita amati codenya, ComboBox1.Item.Add berfungsi intuk menambahkan String atau kata kedalamnya. Dengan urutan yang ada. INTA ( ) adalah Array type data Integer. Me.Width adalah ukuran lebar Form. Me.Hight adalah ukuran tinggi Form.
Untuk menentukan Ukurannya, Menggunakan Fungsi If kondisi dan disini terdapat 3 kondisi.

Untuk Mengenal Fungsi IF then Else bisa lihat di tutorial berikut : Program If Then Else
Untuk Download Projectnya bisa melalui Link Berikut :

Semoga Tutorial ini bermanfaat buat teman - teman. Saya mohon maaf apabila ada kesalahan. Tutorial ini saya buat semata - mata untuk share ilmu. Kritik dan saran bisa teman - teman sampaikan di comment atau melalui Form yang ada. Terimakasih.


Click Here if Out Of Topic

Xepozone Live Chat
×
_

Hai! Kamu bisa kirim pesan ke Admin di sini, jangan lupa LIKE Xepozone ya... Terima kasih.