PDA

View Full Version : سوال: تبدیل فرمت text box به double



mhmd.tv
دوشنبه 28 مرداد 1392, 19:30 عصر
چطوری می تونم اولا اجازه بدم که در یک تکست باکس فقط عدد نوشته بشه
ثانیا متن یا در واقع همان عدد نوشته شده در تکست باکس رو می تونم به double تبدیل کنم؟

mgh64120
دوشنبه 28 مرداد 1392, 20:20 عصر
سلام دوست عزيز
نمونه كد به زبان VB رو در رويداد KeyPress ميزارم. خودت به هر زبان و هر رويدادي كه خواستي تبديل كن.
اين كد براي ورودي اعداد اعم از صحيح، اعشاري و مثبت و منفي هست.


Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Not (((((Asc(e.KeyChar) >= 48) And (Asc(e.KeyChar) <= 57))) Or (Asc(e.KeyChar) = Keys.Back) Or (Asc(e.KeyChar) = Asc(".")) Or (Asc(e.KeyChar) = Asc("-")))) Then
e.KeyChar = String.Empty
End If
If Asc(e.KeyChar) = Asc(".") And InStr(TextBox1.Text, ".", CompareMethod.Binary) > 0 Then
e.KeyChar = String.Empty
Beep()
End If
If (Asc(e.KeyChar) = Asc("-") And ((InStr(TextBox1.Text, "-", CompareMethod.Binary) > 0) Or (TextBox1.SelectionStart <> 0))) Then
e.KeyChar = String.Empty
Beep()
End If
If (Asc(e.KeyChar) = Asc(".")) And TextBox1.Text = String.Empty Then
TextBox1.Text = "0" : TextBox1.SelectionStart = 1
End If
End Sub

و براي تبديل به Double

CDbl(Textbox1.text)
موفق باشيد...