Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

warum geht es nicht????
Autor: virus.exe
Datum: 05.10.02 22:30
Dim stra() As String Dim strb() As String Dim strc() As String Dim strd() As String Dim stre() As String Dim strf() As String Dim strg() As String Dim strh() As String Dim intZ As Integer Private Sub cmd_winXP1_Click() Unload Me End Sub Private Sub cmd_winXP2_Click() ListView1.ListItems.Clear End Sub Private Sub cmd_winXP3_Click() ListView1.ListItems.Clear Dim lstItem As ListItem Dim stra, strb, strc, strd, stre, strf, strg, strh As String Open App.Path & "\" & " .lnk" For Input As #1 Do Until EOF(1) Input #1, stra, strb, strc, strd, stre, strf, strg, strh (---------------------- da kommt der fehler Set lstItem = ListView1.ListItems.Add(, , stra) lstItem.SubItems(1) = strb lstItem.SubItems(2) = strc lstItem.SubItems(3) = strd lstItem.SubItems(4) = stre lstItem.SubItems(5) = strf lstItem.SubItems(6) = strg lstItem.SubItems(7) = strh Loop Close #1 End Sub Private Sub cmd_winXP4_Click() ItemCount = Form1.ListView1.ListItems.Count For intZ = 1 To ItemCount ReDim Preserve stra(intZ) As String ReDim Preserve strb(intZ) As String stra(intZ) = ListView1.ListItems(intZ).Text strb(intZ) = ListView1.ListItems(intZ).SubItems(1) Next intZ Open App.Path & "\" & " .lnk" For Output As #1 For intZ = 1 To ItemCount Write #1, stra(intZ), strb(intZ) Next intZ Close #1 End Sub Private Sub cmd_winXP5_Click() Dim lstItem As ListItem Set lstItem = ListView1.ListItems.Add(, , txt_winXP1.Text) lstItem.SubItems(1) = txt_winXP2.Text lstItem.SubItems(2) = txt_winXP3.Text lstItem.SubItems(3) = txt_winXP4.Text lstItem.SubItems(4) = txt_winXP5.Text lstItem.SubItems(5) = txt_winXP6.Text lstItem.SubItems(6) = txt_winXP7.Text lstItem.SubItems(7) = txt_winXP8.Text End Sub Private Sub ctl_Form1_CloseWindow() End End Sub Private Sub Form_Load() Form1.Width = ctl_Form1.Width Form1.Height = ctl_Form1.Height ListView1.View = lvwReport ListView1.ColumnHeaders.Add , , "Vorname" ListView1.ColumnHeaders.Add , , "Name" ListView1.ColumnHeaders.Add , , "Telefonnummer" ListView1.ColumnHeaders.Add , , "E-M@il" ListView1.ColumnHeaders.Add , , "Straße & Hausnummer" ListView1.ColumnHeaders.Add , , "PLZ & Ort" ListView1.ColumnHeaders.Add , , "Handynummer" ListView1.ColumnHeaders.Add , , "Sonstiges" End Sub

warum geht es nicht????	96	virus.exe	05.10.02 22:30
Was kommt denn für ein Fehler? (oT)	222	Stefan	05.10.02 22:44
Modifiziert ...	222	unbekannt	05.10.02 22:49
Re: Was kommt denn für ein Fehler? (oT)	52	virus.exe	05.10.02 22:51
Re: Was kommt denn für ein Fehler? (oT)	236	Stefan	05.10.02 23:01
kannst du mir ein Beispiel machen??? (oT)	40	virus.exe	05.10.02 23:14
Mach einfach...	219	Stefan	05.10.02 23:25

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen