VB.Net กับการบังคับป้อนแต่ตัวเลข

บางกรณีเราอยากใช้ TextBox เพื่อรับค่าจาก User และจะบังคับให้ป้อนได้ตัวเลขเท่านั้น โค้ดนี้เป็นอีกรูปแบบนึง

Private Sub txtSalary_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSalary.KeyPress
e.Handled = TrapKey(Asc(e.KeyChar))
End Sub

Private Function TrapKey(ByVal KCode As String) As Boolean
If (KCode >= 48 And KCode <= 57) Or KCode = 8 Then
TrapKey = False
Else
TrapKey = True
End If
End Function

User จะป้อนได้แต่ตัวเลข และกดเครื่องหมาย Backspace ได้

Comments

Post a Comment

Popular posts from this blog

Function MS SQL แปลงตัวเลขเป็นบาท

Funcion นี้สามารถนำไปสร้างใน MS SQL เพื่อแปลงตัวเลขให้กลายเป็นจำนวนเงินบาทไทย เช่น ถ้ามีตัวเลข 1729 โปรแกรมนี้จะแปลงให้เป็น "หนึ่งพันเจ็ดร้อยยี่สิบเก้าบาทถ้วน" ALTER FUNCTION [dbo].[udf_Num2Thai] (@Number1 Money) RETURNS VARCHAR(8000) AS BEGIN DECLARE @number Numeric(38 , 0) DECLARE @decimal INT DECLARE @loops INT DECLARE @bigLoops INT DECLARE @counter INT DECLARE @bigCount INT DECLARE @mod INT DECLARE @numbersTable TABLE (number CHAR(1), word VARCHAR(10)) DECLARE @numbersDigit TABLE (number CHAR(1), word VARCHAR(10)) DECLARE @inputNumber VARCHAR(38) DECLARE @inputNumber1 VARCHAR(38) DECLARE @inputDecimal VARCHAR(2) DECLARE @charNumber CHAR(1) DECLARE @outputString VARCHAR(8000) DECLARE @outputString1 VARCHAR(8000) DECLARE @outputChar VARCHAR(10) DECLARE @outputChar1 VARCHAR(10) DECLARE @nextNumber CHAR(1) IF @number1 = 0 RETURN 'ศูนย์บาท' -- insert data for the numbers and words INSERT INTO @NumbersTable SELECT ' ', '' UNI...
Read more

Line Notify ด้วย VB.Net

Image
สวัสดีครับ LINE มีบริการ API Notify ให้ใช้ หมายความว่าเราสามารถเขียนโค้ดจากโปรแกรมเราให้ยิงข้อความเข้า LINE ได้ แต่มีข้อจำกัดที่ว่าจะสามารถส่งแจ้งเตือนได้เฉพาะผู้ที่ขอใช้ หรือกลุ่มที่เป็นสมาชิกเท่านั้น ไม่สามารถส่งหาห้องสนทนาของเพื่อนๆ ได้ ซึ่งต้องใช้ LINE Bot API แทน ขั้นตอนการเตรียมความพร้อม 1. Add LINE Notify เป็นเพื่อนก่อน เข้า Account ของคุณ 2. Invite LINE Notify จากข้อ 1 เข้ากลุ่มที่ต้องการ 3. ไปรับ Token จากเว็บของ LINE  https://notify-bot.line.me/my/ ตอนขอรับ Token ระบบจะให้ใส่ชื่อ Token เวลาแสดงข้อความจะแสดงในรูปแบบนี้ [ชื่อ Token]: [ข้อความ] เช่น ตั้งชื่อ Token ว่า BerzerkNoti แล้วเราต้องการส่งคำว่า "สวัสดี" ไป ข้อความจะแสดงแบบนี้ BerzerkNoti: สวัสดี Code  Private Sub btnTestNoti_Click(sender As Object, e As EventArgs) Handles btnTestNoti.Click         Try             Dim request = CType(WebRequest.Create("https://notify-api.line.me/api/notify"), HttpWebRequest)      ...
Read more

ตรวจสอบค่าว่าเป็นตัวเลข MSSQL

วันก่อนพี่แสงชัย ให้ผมตรวจสอบดูว่าในฐานขู้อมูลนี้มีค่า Serial Number แถวไหนบ้างที่มีตัวหนังสือปนอยู่ คือต้องการเก็บตัวเลขล้วนๆ ตอนแรกผมก็ใช้คำสั่ง IsNumeric ดูปรากฏว่าก็ทำงานได้แหะ ตัวอย่างการเรียกใช้ SELECT * FROM TR_REC_STK_SR WHERE ISNUMERIC(SERIAL_NO) = 0 โดย IsNumeric จะ Return 1 ให้ถ้าสามารถแปลงข้อความทั้งหมดเป็นตัวเลขได้ แต่หลังจากที่ลองค้นหาจาก Google ต่ออีกซักพัก (เพื่อความชัวร์) ปรากฏว่า คำสั่ง IsNumeric มีจุดอ่อนอยู่ เค้าแนะนำให้ใช้คำสั่งรูปแบบด้านล่างนี้แทนครับ SELECT *, PATINDEX('%[^0-9]%', SERIAL_NO) FROM TR_REC_STK_SR WHERE PATINDEX('%[^0-9]%', LTRIM(RTRIM(SERIAL_NO))) > 0 ลองรันดู โอ้ว... Record เพิ่มขึ้นมาอีก 4-5 Rows ฉะนั้นถ้าจะตรวจสอบว่าข้อมูลมีแต่ตัวเลขล้วนๆ ให้ใช้แบบหลังแทนครับ ปล. IsNumeric มันแปลง 1234E หรือ 1234. เป็นตัวเลขได้ครับ เลยต้องใช้ PatIndex แทน
Read more