Uluslararası Hosgeldiniz Programı

[ßyMesMes]

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..​

​

​

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

​

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

​

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

​

Araç kutusndaki CommandButton denetimini tıklayın ve formun alt kısmının ortasında kucuk bir komut dugmesi olusturun..​

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

​

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”​

​

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​

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()
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

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

​

Label kısmına su kodu ekliyoruz​

​

Private Sub Command1_Click()
End
End Sub​

Private Sub Form_Load()
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

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

​

​

Ve programın son hali ​

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

ALINTIDIR
​