Yeni Kayıt
Konudaki Resimler
< Bu mesaj bu kişi tarafından değiştirildi DaMNN -- 4 Haziran 2007; 19:48:37 > |
Hızlı 
Bildirim
Visual basic listbox sorunu
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir (1 Mobil) - 1 Masaüstü, 
1 Mobil
1 Mobil
Giriş
Mesaj
-
-
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
End Sub -
? birsey anlmadım valla biraz açıklarmısın? teşekkürler... -
Listbox un bu event ini kullanacaksın işte.
Bu metodun içine yazdıkların, listboxda seçili item değiştikçe çalışır.
quote:
Orjinalden alıntı: DaMNN
? birsey anlmadım valla biraz açıklarmısın? teşekkürler...
-
Ben şu şekilde yapıyorum. Önce Listbox içerisinde hangi Item'a tıkladığımı bulmak için şu şekilde bir fonksiyon yazıyorum:
----------------------------------------------------------------------------------------
Private Function ListItemSelected(ByVal Control As ListBox) As Integer
Dim i As Integer
For i = 0 To Control.ListCount
If Control.Selected(i) = True Then
Exit For
End If
Next i
ListItemSelected = i
End Function
-----------------------------------------------------------------------------------------
Bu kod ile şunu yapabiliyorsun: Örneğin ListBox'ının adı "BenimList" olsun. Programın içerisinde herhangi bir yerde
----------------------------------------------------------------
Dim n As Integer
n=ListItemSelected(BenimList)
----------------------------------------------------------------
dersen, "n" değişkeninde "BenimList" ListBox'ında seçili olan itemın sıra numarası tutuluyor. Artık kullandığın ListBox'ta kaçıncı itemın seçili olduğunu biliyorsun. Daha sonra şu kod ile
----------------------------------------------------------------
Private Sub BenimList_Click()
Dim n As Integer
dim s as String
n = ListItemSelected(BenimList)
s = BenimList.List(n)
End Sub
----------------------------------------------------------------
listede basılı olan itemın ismini görmen mümkün. Örneğin BenimList Listbox'unda şunlar yazılı olsun
Fallen_ONE
DaMNN
Black Spell
ve DaMNN'yi seçtiğin anda program BenimList_Click() kısmını çalıştıracak. Seçili olan itemın sıra numarası "n" değişkenine atanacak. (n=1) ve "s" değişkenine seçili itemın ismi yerleşecek. (s="DaMNN"). Artık "s" değişkenini kullanarak textboxlarına istediğin şeyleri yazabilirsin. Örneğin
-----------------------------------------------------
Select Case s
Case "Fallen_ONE"
TextBox1.Text = "blablabla"
TextBox2.Text = "asdasdasd"
Case "DaMNN"
TextBox1.Text = "blablabla"
TextBox2.Text = "asdasdasd"
.
.
.
End Select
-------------------------------------------------------
-
Arkadaşım Listbox'tan hangisinin seçildiğini öğrenmek için fonksiyon yazmana gerek yok.
Eğer hangi indexin seçildiğini öğrenmek istiyorsan :
List1.ListIndex
Eğer Tıklanan indexe ait yazıyı görüntülemek istiyorsan :
List1.List(List1.ListIndex)
Anladığım kadarıyla senin programı yazarsak :
(Programda kullanılan nesneler : Text1 : textbox , Text2 : textbox, BenimList : listbox)
Private Sub Form_Load()
BenimList.AddItem ("Fallen_ONE")
BenimList.AddItem ("DaMNN")
BenimList.AddItem ("Black Spell")
End Sub
Private Sub BenimList_Click()
s = BenimList.List(BenimList.ListIndex)
Select Case s
Case "Fallen_ONE"
Text1.Text = "GANSH1"
Text2.Text = "GANSH1"
Case "DaMNN"
Text1.Text = "GANSH2"
Text2.Text = "GANSH2"
Case "Black Spell"
Text1.Text = "GANSH3"
Text2.Text = "GANSH3"
End Select
End Sub
-
ListIndex Propertysini bilmiyordum. Öğrenmiş oldum sağolasın.
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
