Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: In list1 Auswahl (bestimmten begriffen suchen)und diesen in combo 2 aktivieren (
Autor: Gamer20
Datum: 26.05.03 10:38
Private myCol As New Collection Private WithEvents myPer As clsperson Private Sub Combo1_Click() Select Case Combo1.ListIndex Case 0 Combo2.ListIndex = 1 Combo3.ListIndex = 2 Case 1 Combo2.ListIndex = 2 Combo3.ListIndex = 0 Case 2 Combo2.ListIndex = 1 Combo3.ListIndex = 2 End Select End Sub Private Sub Form_Load() Dim f As Integer Dim sSatz As String ' Datei auslesen f = FreeFile Open "assi.txt" For Input As #f Do While Not EOF(f) Line Input #f, sSatz Set myPer = New clsperson List1.AddItem sSatz Loop Close #f With Combo1 .AddItem "Egal" .AddItem "Wichtig" .AddItem "Sehr Wichtig" .AddItem "Göttlich" End With With Combo2 .AddItem "Schlank" .AddItem "Etwas beleibt" .AddItem "Dick" End With With Combo3 .AddItem "Klein" .AddItem "Mittel" .AddItem "Groß" End With List1.ListIndex = 0 End Sub Private Sub List1_Click() 'hier soll ein Code rein, der das wort aus der selektierten Zeile sucht und in Combo2 aktiviert. D.h. man müßte das wort dann in eine Variable geben und dann so etwas ähnliches schreiben wie Combo1_klick(Variable) oder? End Sub

In list1 Auswahl (bestimmten begriffen suchen)und diesen in ...	447	Gamer20	25.05.03 14:08
Na, dann probiere mal das hier aus	376	unbekannt	25.05.03 16:38
Re: Na, dann probiere mal das hier aus	318	Gamer20	25.05.03 17:44
Re: Na, dann probiere mal das hier aus	329	unbekannt	25.05.03 17:55
Re: Na, dann probiere mal das hier aus	325	Gamer20	25.05.03 18:33
Re: Na, dann probiere mal das hier aus	329	unbekannt	25.05.03 18:39
Re: Na, dann probiere mal das hier aus	377	Gamer20	26.05.03 09:57
Re: In list1 Auswahl (bestimmten begriffen suchen)und diesen...	320	Gamer20	26.05.03 10:38

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