List1.add

[steli]

Salut,am si eu nevoie de ajutor vreau sa fac in vb6 un program in care am asa:

1. textbox

2. Command1

3. ListBox

Si as vrea sa fac urmatorul lucru cand dau clik pe "command1" sa se adauge in "ListBox" ce am scris in "TextBox" cum fac Help me

[Raven]

Private Sub Command1_Click()
List1.AddItem Text1.Text
End Sub

[steli]

Ms foarte mult Raven,inca o intrebare dak se poate

Ce apare in List1 as vrea sa se salveze intr`un .txt cum procedez stiu ca era ceva de genu:

Dim MyIndex, FileNumber

FileNumber = FreeFile

Open App.Path & "\exemplu.log" & MyIndex For Append As #FileNumber

Write #FileNumber, "unu"

[Raven]

Private Sub Command1_Click()
On Error Resume Next
CommonDialog1.Filter = "TXT File (*.txt)|*.txt"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
    Open CommonDialog1.FileName For Output As #1
    Print #1, Text1.Text & vbCrLf & vbCrLf
    Close #1
End If
End Sub

Components->microsoft common dialog control 6.0 si il pui pe form

[steli]

Multumesc mult Raven