Er zijn 5 reacties in dit onderwerp

[houthalen]

ik heb een textbox1
ik heb een aantal (lege) labels
in de textbox1 komt een getal (max 8 cijfers)  van willekeurige cijfers tussen 1 en 9.  Bv. 134568

ik zou willen dat wordt gezocht ,vinden en tonen van de afbrekende cijfers.
Bv in het getal van boven, ontbreken 2 en 7 en 9 .
Dat moet getoond en vermeld worden in afzonderlijke labels.
Hoe moet ik het doen?
dank u
houthalen

[Hansiebebe]

Code:

Private Sub CommandButton1_Click()
Dim MyLen As Integer

MyLen = Len(TextBox1.Text)

For i = 0 To MyLen - 1

	Select Case Mid(TextBox1.Text, i + 1, 1)
   
		Case "1"
		Label1.Caption = "1"
	   
		Case "2"
		Label2.Caption = "2"
	   
		Case "3"
		Label3.Caption = "3"
	   
		Case "4"
		Label4.Caption = "4"
		Case "5"
		Label5.Caption = "5"
	   
		Case "6"
		Label6.Caption = "6"
	   
		Case "7"
		Label7.Caption = "7"
	   
		Case "8"
		Label8.Caption = "8"
	   
		Case "9"
		Label9.Caption = "9"
	   
		Case "0"
		Label10.Caption = "0"
	   
	End Select
	   
Next i
End Sub

[houthalen]

Bedankt, Hansiebebe, voor uw code.

Het werkt natuurlijk  goed maar ik had echter bedoeld  dat enkel de ontbrekende cijfers moesten
getoonde worden  en niet alle cijfers.

[Hansiebebe]

Code:

Private Sub CommandButton1_Click()
Dim MyLen As Integer

MyLen = Len(TextBox1.Text)
Label1.Caption = "1"
Label2.Caption = "2"
Label3.Caption = "3"
Label4.Caption = "4"
Label5.Caption = "5"
Label6.Caption = "6"
Label7.Caption = "7"
Label8.Caption = "8"
Label9.Caption = "9"
Label10.Caption = "0"
For i = 0 To MyLen - 1

	Select Case Mid(TextBox1.Text, i + 1, 1)
   
		Case "1"
		Label1.Caption = ""
	   
		Case "2"
		Label2.Caption = ""
	   
		Case "3"
		Label3.Caption = ""
	   
		Case "4"
		Label4.Caption = ""
		Case "5"
		Label5.Caption = ""
	   
		Case "6"
		Label6.Caption = ""
	   
		Case "7"
		Label7.Caption = ""
	   
		Case "8"
		Label8.Caption = ""
	   
		Case "9"
		Label9.Caption = ""
	   
		Case "0"
		Label10.Caption = ""
	   
	End Select
	   
Next i
End Sub

[houthalen]

Perfect, Hansiebebe.
Het werkt zoals ik het bedoelde.
Het kan niet beter.
Bedankt.

ps. ik had ook iets geprobeerd maar mijn code was te ingewikkeld geworden.
Dat van u is simpel, duidelijk en doeltreffend.

Nogmaals bedankt
houthalen

[Hansiebebe]

graag gedaan