Visual Basic 6.0'da combobox seçiminde içerik gösterme?

28-04-2014, 21:31:13

Üyeliği durduruldu

Combobox oluşturacağım..

a
b
c
d

diye gidecek.. Fakat 2 gündür araştırıyorum işin içinden çıkamadım. Program çalıştığında mesela a'yı seçtiğimizde sağ tarafta açıklama cıkmasını istiyorum. Yine diğer b,c,d vs.. bu şekildeki seçimler içinde sağ tarafta açıklama cıkmasını istiyorum.. Bunu vb 6.0'da nasıl yapabilirim ?

Farklı şekilde hallettim işine yarayan cıkarsa kullansın diye yazıyorum..

Alıntı

Private Sub Form_Load()
List1.AddItem "Kız Kulesi"
List1.AddItem "India"
List1.AddItem "France"
List1.AddItem "USA"
End Sub

Private Sub List1_Click()
If List1.Text = "Kız Kulesi" Then
Label1.Caption = "Kız Kulesi, hakkında çeşitli rivayetler anlatılan, efsanelere konu olan, İstanbul Boğazı'nın Marmara Denizi'ne yakın kısmında, Salacak açıklarında yer alan küçük adacık üzerinde inşa edilmiş yapıdır."
Picture1.Picture = LoadPicture("mikail.jpg")
ElseIf List1.Text = "India" Then
Label1.Caption = "India has 24 million people."
Picture1.Picture = LoadPicture("mikail2.jpg")
End If
End Sub

28-04-2014, 22:56:16

#2

hmtuslkn

ben bu işi yeni öğreniyorum ama sanırım yardımcı olabilirim, hatalıysa da affola
"combobox içeriği 0 dan başlar öncelikle"

if combobox.listindex = 0 then
  label1.caption="açıklama"
end if

0 yerine bir for döngüsü kurarak diğer seçenekler için de çalışmasını sağlayabilirsin.

29-04-2014, 10:41:18

#3

Bayrakdar

Mantık olarak böyle olur vb 6da snytax nasıldı tam hatırlayamadım

if combobox.Text = "A" then
label1.caption="A'nın açıklaması"
else if combobox.Text = "B" then
label1.caption="B'nın açıklaması"
else if combobox.Text = "C" then
label1.caption="C'nın açıklaması"
else
label1.Caption="Hiçbirşey Seçilmedi"
End If

29-04-2014, 18:16:27

#4

hmtuslkn

arkadaşa özel mesaj olarak da attım ihtiyacı olanların da faydalanabilmesi için buraya da yazıyorum.
bitane combobox bir tane de label ekle isimleri combobox1 ve label1 olmak üzere:

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = 0 Then
Label1.Caption = "1.seçenek"
ElseIf ComboBox1.ListIndex = 1 Then
Label1.Caption = "2.seçenek"
ElseIf ComboBox1.ListIndex = 2 Then
Label1.Caption = "3.seçenek"
ElseIf ComboBox1.ListIndex = 3 Then
Label1.Caption = "4.seçenek"
ElseIf ComboBox1.ListIndex = 4 Then
Label1.Caption = "5.seçenek"
ElseIf ComboBox1.ListIndex = 5 Then
Label1.Caption = "6.seçenek"
ElseIf ComboBox1.ListIndex = 6 Then
Label1.Caption = "7.seçenek"
End If
End Sub

Private Sub UserForm_initialize()
ComboBox1.AddItem "a"
ComboBox1.AddItem "b"
ComboBox1.AddItem "d"
ComboBox1.AddItem "e"
ComboBox1.AddItem "k"
ComboBox1.AddItem "l"
ComboBox1.AddItem "m"
End Sub

29-04-2014, 19:31:34

#5

~~Diabolist~~

Üyeliği durduruldu

calıstıramadım bi türlü hocam ya