Bir liste kutusunu işlemek için select Case yapısını kullanın
1.File menüsünde New project komutunu tıklayıp yeni bir starndat uygulama yaratın.
Programlama ortamında boş bir form açılır..
2.Araç kutusundaki label denetimini tıklayın ve programın baslıgını görüntülemek için formun üst kısmının ortasında büyük bir kutu olusturun..
3.Araç kutusundaki label denetimini tıklayın ve programın baslıgını görüntülemek için formun üst kısmının ortasında büyük bir kutu olsturun.
3.Araç kutusundaki Listbox denetimin tıklayın ve başlık etketinin altına bir liste olusturun..
Araç kutusndaki CommandButton denetimini tıklayın ve formun alt kısmının ortasında kucuk bir komut dugmesi olusturun..
Araç cubugundaki properties windows dugmesini tıklayın ve form üzerinde asagıdaki nesne özelliklerini ayarlayın...
Nesne Ozellik Ayar
Label1 Caption ''Uluslararası Hosgeldiniz Pro
Label2 Caption ''Bir ülke Seçin''
Label3 Caption (Boş)
Label4 Caption (Boş)
BorderStyle 1.Fixed Single
Fore Color Koyu Kırmızı
Command1 Caption ''Çık''
Özeliikleri Ayarlamayı bitirdiginizde formunuz asagıdaki gibi görünmelidir..
Şimdi liste kutusunu başlatmak için program kodunu girin
Form üzerine çift tıklayın
Code penceresinde Form_Load olay yordamı görünür
Liste kutusunu olsturmak için asagıdaki kodu yazın
List1.AddItem "İngiltere"
List1.AddItem "Almanya"
List1.AddItem "İspanya"
List1.AddItem "Türkiye"
List1.AddItem "Almanya"
List1.AddItem "İspanya"
List1.AddItem "Türkiye"
Bu satırlar formunuzdaki liste kutusunu oge eklemek için liste kutusu nesnesinin addİtem yöntemi kullanılır.
Object açılır liste kutusunu açın ve list1 nesnesine tıklayın
Code pencresinde list1_click olay yordamı açılır..
Kullanıcı tarafından yapılan liste kutusu tercihini işletmek için asagıdaki satırları yazın
Label3.Caption = List1.Text
Select Case List1.ListIndex
Case 0
Label4.Caption = "Hello, programmer"
Case 1
Label4.Caption = "Hallo, programmierer"
Case 2
Label4.Caption = "Hola, programador"
Case 3
Label4.Caption = "Merhaba, programcı"
End Select
End Sub
Select Case List1.ListIndex
Case 0
Label4.Caption = "Hello, programmer"
Case 1
Label4.Caption = "Hallo, programmierer"
Case 2
Label4.Caption = "Hola, programador"
Case 3
Label4.Caption = "Merhaba, programcı"
End Select
End Sub
Yapıda yer alan birinci satır, seçili liste kutusunu ogesini adını formdaki üçüncü etiketini baslıgına kopyalar bildiride kullanılan en önemli özellik liste kutusunda seçi olan ogenin tam metinini içeren list1.Text özelligidir.Geri kalan bildiriler Select case kara yapsının parçalarını olusturur.
Yapı list1 List Index özelligini durum test yapısının parçalarını olusturur.
object açılır liste kutusunu açık ve liste kutusndan command1 nesnesine tıklayın..
Code penceresinden Command1_Clik olay yordamı açılır.
Su kodu ekliyoruz ..
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()End
End Sub
List1.AddItem "İngiltere"
List1.AddItem "Almanya"
List1.AddItem "İspanya"
List1.AddItem "Türkiye"
End Sub
Private Sub List1_Click()
Label3.Caption = List1.Text
Select Case List1.ListIndex
Case 0
Label4.Caption = "Hello, programmer"
Case 1
Label4.Caption = "Hallo, programmierer"
Case 2
Label4.Caption = "Hola, programador"
Case 3
Label4.Caption = "Merhaba, programcı"
End Select
End Sub
Label kısmına su kodu ekliyoruz
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()End
End Sub
List1.AddItem "İngiltere"
List1.AddItem "Almanya"
List1.AddItem "İspanya"
List1.AddItem "Türkiye"
End Sub
Private Sub Label4_Click()
End Sub
Private Sub List1_Click()
Label3.Caption = List1.Text
Select Case List1.ListIndex
Case 0
Label4.Caption = "Hello, programmer"
Case 1
Label4.Caption = "Hallo, programmierer"
Case 2
Label4.Caption = "Hola, programador"
Case 3
Label4.Caption = "Merhaba, programcı"
End Select
End Sub
Ve programın son hali
