masktextbox

[m_zamani]

چطوری هر قسمت masktextbox رو تو یه فیلد جدا ذخیره کنم؟

[rezaei manesh]

با دستور Split

[m_zamani]

میشه بگید چطوری می تونم بریزم؟


b = Split(Mask3.Text, "-")
For i = LBound(b) To UBound(b)
If i = 1 Then
TextBox9.Text = b(i)
ElseIf i = 2 Then
TextBox13.Text = b(i)
ElseIf i = 3 Then
TextBox14.Text = b(i)
End If
Next i

این کد جواب نمیده، مشکل داره؟

[rezaei manesh]

کد بالا مشکلی نداره فقط اندکس 0 رو فراموش کردی
من کد بالا رو به این شکل تغییر دادم جواب گرفتم


Dim b() As String
b = Split(Mask3.Text, "-")
For i As Int16 = LBound(b) To UBound(b)
Select Case i
Case 0
TextBox0.Text = b(i)
Case 1
TextBox9.Text = b(i)
Case 2
TextBox13.Text = b(i)
Case 3
TextBox14.Text = b(i)
End Select
Next