Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
arkadaşlar textboxa girilen harf ve sayılardan sadece sayıları ayırıp başka textboxa aktarmak için gerekli kodları bilen varmı? örn:a^+%236lk bu ifadeden 236 alıp başka textboxa aktarabilirmiyiz...?
Private Sub Command1_Click()
Dim Alcelect As Integer
Text2.Text = ""
For Alcelect = 1 To Len(Text1.Text)
If IsNumeric(Mid(Text1.Text, Alcelect, 1)) Then
Text2.Text = Text2.Text & Mid(Text1.Text, Alcelect, 1)
End If
Next Alcelect
End Sub