O chestie in Visual Basic

Deci nu stiu cum sa explic, ca nu am nici cea mai vaga idee despre cum se face...
Deci am un listbox.

Item1
Item2
Item3
Item4
Item5
.....
ItemN

Cum pot face ca atunci cand dau click pe lista (item1-N) sa imi deschida un nou form. (cu un alt nume)???
Ideea e ca m'am apucat sa fac un fel de Y!M (ymsgr16) am facut login, trimit, primesc mesaje, useri online / offline... Da' m'am cam blocat , daca ma puteti ajuta.

Le. e vorba de VB6

Edited by Alexutzu_1991, 11 February 2010 - 22:20.

Te folosesti de evenimentul click si de proprietatea .Text sau .ListIndex pentru a afla kre dintr-e elemente este selectat. Un exemplu ar arata cam asa:

Sa presupunem k List1 are 2 elemente "VB6, Alexutzu"

'Folosindu-te de text
Private Sub List1_Click() ' Evenimentul click
Select Case List1.Text
     Case "VB6" 'In caz k da dublu click pe VB6
     Form2.Show ' Arata noul form2
     Form2.Caption = "Un nou form" ' Printeaza numele "Un nou form" in form2
     Case "Alexutzu"  'In caz k da dublu click pe Alexutzu
     Form2.Show      
     Form2.Caption = "Un nou form"
End Select
End Sub

'Folosindu-te de index
Private Sub List1_Click() ' Evenimentul click
'Primul element din lista are valoarea 0, al doilea are 1 si asa mai departe, iar daca nu este selectat va returna valoarea -1
Select Case List1.ListIndex '      Case 0 'In caz k da dublu click pe VB6
     Form2.Show
     Form2.Caption = "Un nou form"      Case 1  'In caz k da dublu click pe Alexutzu
     Form2.Show
     Form2.Caption = "Un nou form"
     End Select
End Sub

Edited by horohoro, 12 February 2010 - 01:19.

Ms pt raspuns insa nu e ceea ce cautam...

Item1
Item2
Item3

Am "form2" in care am "label1"

' cand dau click pe listbox
Private Sub List1_Click()
        form2.label1.caption = list1.text
End Sub

Daca dau click pe ALTA valoare din "list1" sa imi deschida acelasi "form2" dar cu alt "label1", fara sa mai fac eu un al doilea form...

Poate e mai bine daca zic, cum e lista de Y!M, cand dau 2xClick pe un ID din lista imi deschide fereasta cu conversatia.
Daca dau click pe alt ID imi deschide o alta fereastra...

Alexutzu_1991, on 12th February 2010, 12:57, said:

Private Sub List1_Click()
' setare valoare label
       Form2.Label1.Caption = List1.List(List1.ListIndex)
'arata form cu noua valoare
       Form2.Show vbModal, Me
End Sub

este un caz extrem de brut,incurajez crearea de variabile si verificarea lor,dar cam asta e ideea de baza

later edit:
Exemplu 2
Sau daca nu am inteles bine si vrei sa faci mai multe formuri uite exemplu asta cred ca asta ai vrut sa zici, mi-am dat seama dupa ce am postat

Private Sub List1_Click()
' setare valoare label
'  Form2.Label1.Caption = List1.List(List1.ListIndex)
'arata form cu noua valoare
Static t
If t = "" Then t = 1

Dim frm As New Form2
frm.Label1.Caption = List1.List(List1.ListIndex)

frm.Caption = "Asta este formul  " & t
frm.Show
t = t + 1

End Sub


3.

pentru dublu click muti totul in evenimentul dublu click

Private Sub List1_DblClick()
Static t
If t = "" Then t = 1

Dim frm As New Form2
frm.Label1.Caption = List1.List(List1.ListIndex)

frm.Caption = "Asta este formul  " & t
frm.Show
t = t + 1

End Sub

Edited by Sorin Nedelcu, 12 February 2010 - 14:46.

Daca vrei sa creezi un nou label in form2 va trebui sa adaugi codul asta la form load:

'La declaratii adaugam
Private WithEvents LabelNume As Label ' declaram LabelNume cu evenimente click, double-click, keypress si asa mai departe

Private Sub Form_Load()
Dim LabelNume As Label ' declaram LabelNume ca label

Set LabelNume = Form2.Controls.Add("VB.Label", "Label20") ' il adaugam pe form2

LabelNume.Caption = "....."
LabelNume.Visible = 1 ' I setam proprietatea visible k sa-l putem vedea
LabelNume.Left = 444 ' I setam pozitia de la stanga la dreapta > partea stanga din capatul formului are valoarea 0 apoi creste 'inspre partea dreapta
LabelNume.Top = 444 ' I setam pozitia de sus in jos > partea de sus a formului are intotdeauna valoarea 0 apoi creste 'inspre parte de jos
End Sub

Private Sub LabelNume_Click() ' i adaugam subrutina
MsgBox "12345"
End Sub