title image


Smiley Re: If ListBox1.List(i) = Name And ComboBox3.Text = Name Then
also ich moechte:



wenn in der listbox tom steht und in der combobox auch tom steht dann soll er die msgbox bringen.



also du machst:



wenn in der Listbox Name eingetragen ist und in der Combobox Name ausgewählt ist, kommt die MsgBox



wenn du willst, daß die Msgbox kommt, wenn Name in der Listbox und in der Combobox ausgewählt ist, brauchst du keine Schleife:



If ListBox1.Text = Name And ComboBox3.Text = Name Then

MsgBox ("nur ein test")

End If



wenn du willst, daß die Msgbox kommt, wenn Name in der Listbox und in der Combobox eingetragen ist, brauchst du entweder zwei Schleifen oder API



Private Const CB_ERR = (-1)

Private Const CB_FINDSTRING = &H14C

Private Const LB_FINDSTRING = &H18F

Private Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" _

(ByVal hwnd As Long, _

ByVal wMsg As Long, _

ByVal wParam As Long, _

ByVal lParam As String) As Long









If CB_ERR = SendMessageStr(Me.ComboBox3.hwnd, CB_FINDSTRINGEXACT, -1, Name) Then

Msgbox Name & " nicht in Combobox"

Else

Msgbox Name & " in Combobox"

End If





If CB_ERR = SendMessageStr(Me.ListBox1.hwnd, LB_FINDSTRINGEXACT, -1, Name) Then

Msgbox Name & " nicht in Listbox"

Else

Msgbox Name & " in Listbox"

End If


Gruß
Gaga

___________________________________________________________________

Profilösungen für VB6
wenn nicht anders angegeben, sind alle Codebeispiele nicht getestet, nur getippt


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: