NBATMAN
Üye
- Katılım
- 7 Şub 2008
- Mesajlar
- 136
- Puanları
- 1
Merhaba,
Textboxa girilen ve karakter uzunluğu 3 olan kelimeleri, karakter karakter tek,tek ayırarak labellara yazdırma işlemi...
Kodlar aşaşıdaki gibidir.
Private Sub Form_Load()
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Text1.Text = ""
Text1.MaxLength = 3
End Sub
Private Sub Text1_Change()
Dim ln As Integer
Dim sayi1, sayi2, sayi3 As String
ln = Len(Text1.Text)
If ln = 1 Then
sayi1 = 0
sayi2 = 0
sayi3 = Mid(Text1.Text, 1, 1)
End If
If ln = 2 Then
sayi1 = 0
sayi2 = Mid(Text1.Text, 1, 1)
sayi3 = Mid(Text1.Text, 2, 1)
End If
If ln = 3 Then
sayi1 = Mid(Text1.Text, 1, 1)
sayi2 = Mid(Text1.Text, 2, 1)
sayi3 = Mid(Text1.Text, 3, 1)
End If
Label1.Caption = sayi1
Label2.Caption = sayi2
Label3.Caption = sayi3
End Sub
Textboxa girilen ve karakter uzunluğu 3 olan kelimeleri, karakter karakter tek,tek ayırarak labellara yazdırma işlemi...
Kodlar aşaşıdaki gibidir.
Private Sub Form_Load()
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Text1.Text = ""
Text1.MaxLength = 3
End Sub
Private Sub Text1_Change()
Dim ln As Integer
Dim sayi1, sayi2, sayi3 As String
ln = Len(Text1.Text)
If ln = 1 Then
sayi1 = 0
sayi2 = 0
sayi3 = Mid(Text1.Text, 1, 1)
End If
If ln = 2 Then
sayi1 = 0
sayi2 = Mid(Text1.Text, 1, 1)
sayi3 = Mid(Text1.Text, 2, 1)
End If
If ln = 3 Then
sayi1 = Mid(Text1.Text, 1, 1)
sayi2 = Mid(Text1.Text, 2, 1)
sayi3 = Mid(Text1.Text, 3, 1)
End If
Label1.Caption = sayi1
Label2.Caption = sayi2
Label3.Caption = sayi3
End Sub