ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 155|ตอบกลับ: 0

[VB.NET] การป้อนข้อมูลลง TextBox เป็นเลขทศนิยมแบบติดลบได้

[คัดลอกลิงก์]

232

กระทู้

328

โพสต์

2744

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
2744

ก็คือการเช็ค หรือดักการกดคีย์เพื่อป้อนจำนวนตัวเลขให้อยู่ในรูปแบบเลขทศนิยมที่ติดลบ (เลข + ไม่ต้องใส่เครื่องหมาย) เช่น -0.12345 จะได้ไม่เกิด Error เวลาจะนำค่าไปประมวลผล ...
  1.     Const NumericKeys As String = "-0123456789."

  2.     Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
  3.         Dim InvalidChar As Boolean
  4.         If Asc(e.KeyChar) = 13 Then
  5.             e.Handled = True
  6.             '// DO SOMETHING
  7.             '// EXIT CONDITION
  8.             '//
  9.         Else
  10.             If Not NumericKeys.Contains(e.KeyChar) Then
  11.                 InvalidChar = True
  12.             ElseIf e.KeyChar = "."c AndAlso TextBox1.Text.Contains(".") Then
  13.                 InvalidChar = True
  14.             ElseIf e.KeyChar = "-"c AndAlso TextBox1.TextLength > 0 Then
  15.                 InvalidChar = True
  16.             End If
  17.             If InvalidChar Then e.Handled = True
  18.         End If
  19.     End Sub
คัดลอกไปที่คลิปบอร์ด


สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2020-6-1 14:50 , Processed in 0.492178 second(s), 4 queries , File On.

Powered by Discuz! X3.3 R20170401, Rev.54

© 2001-2017 Comsenz Inc.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้