Zoeken ontbrekende cijfers in textbox (vb6)

[satriano17]

Dag
Ik heb een grote probleem maar ik kan niet uit.
In een textbox komt een getal te staan.
De getal kan altijd van max 4 cijfers zijn tussen 1-9
bv:
1234
of
3467
maar de textbox kan ook gelijk cifers bevatten
bv:
1135
Ik zou willen dat wordt gezocht tussen de cijfers om
te zien welke cijfer ontbreekt (altijd tussen 1-9)
bv in het boven eerste geval
ontbreken 5,6,7,8,9
en in het tweede geval ontbreken
1,2,5,8,9
en derde geval
2,4,6,7,8,9

[CODE]Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
If Text1.Text <> "1" Or Text1.Text <> "2" Or Text1.Text <> "3"or text1.text<>"4" ...... Then
MsgBox "Ontbreekt  " & Text1.Text
End If
Next i
'...
End Sub

[/CODE]
en dan de ontbrekend cijfers alle samen weergeven in een tweede textbox
(1234)
dank u
satriano

 

[VenA]

Iets in deze vorm?

Private Sub CommandButton1_Click()
c00 = "123456789"
    For j = 1 To Len(TextBox1.Text)
       c00 = Replace(c00, Mid(TextBox1.Text, j, 1), "")
    Next j
    TextBox2.Text = c00
End Sub

 

[satriano17]

Dag VenA

Het werkt perfect !!Het kan niet beter.
dank u

(En ik had zoveel gezocht en geprobeerde met ingewikkelde code.)

Bedankt !
Snel opgelost
satriano