View Full Version : masktextbox
m_zamani
چهارشنبه 23 اسفند 1385, 08:24 صبح
چطوری هر قسمت masktextbox رو تو یه فیلد جدا ذخیره کنم؟
rezaei manesh
چهارشنبه 23 اسفند 1385, 08:51 صبح
با دستور Split
m_zamani
چهارشنبه 23 اسفند 1385, 10:43 صبح
میشه بگید چطوری می تونم بریزم؟
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
چهارشنبه 23 اسفند 1385, 11:10 صبح
کد بالا مشکلی نداره فقط اندکس 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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.