ช่องตัวเลขเท่านั้น (การตรวจสอบ)
สวัสดีครับที่นี่ผมปล่อยให้เป็นตัวอย่างที่ง่ายมากในการประเมินการกดแป้นพิมพ์เมื่อป้อนข้อมูลลงในช่องและอนุญาตเฉพาะหมายเลขที่ละเว้นทุกอย่างที่ไม่ใช่ตัวเลข มันเป็นพื้นฐาน แต่จะทำหน้าที่เป็นจุดเริ่มต้นในการตรวจสอบรายได้ใด ๆ รหัสต่อไปนี้ ....
TextBox1_KeyPress ตำบลเอกชน (ผู้ส่ง ByVal เป็นวัตถุอี ByVal, ณ System.Windows.Forms.KeyPressEventArgs) จัดการ TextBox1.KeyPress ถ้า (ยังไม่ Char.IsNumber (e.KeyChar) และ e.KeyChar <> Microsoft.VisualBasic.ChrW (8)) จากนั้น e.Handled = True End If ย่อยสิ้นสุด
ประเภทของถ่านมีคุณสมบัติหลายอย่างที่เราจะมีประโยชน์มากเมื่อดำเนินการตรวจสอบ ในตัวอย่างที่เราเห็น IsNumber สถานที่ให้บริการ ... นี่คือบางส่วนมากขึ้นในการจำ.:
IsControl: ระบุว่าอักขระ Unicode ที่ระบุไว้จะถูกจัดประเภทเป็นตัวควบคุม
IsDigit: ระบุว่าอักขระ Unicode ที่ระบุจะถูกจัดประเภทเป็นทศนิยม Digit
IsLetter: ระบุว่าอักขระ Unicode ที่ระบุไว้จะถูกจัดประเภทเป็นตัวอักษร
IsLetterOrDigit: ระบุว่าอักขระ Unicode ที่ระบุจะถูกจัดประเภทเป็นตัวอักษรหรือตัวเลขทศนิยม
และอื่น ๆ อีกมากมาย ... ฉันให้คำแนะนำเสียง ... เสมอปรึกษาช่วยเหลือ
34 Responses to "ช่องตัวเลขเท่านั้น (การตรวจสอบ)"
ความเห็น
ehemp nnya เลห์ .. ! GG
bwt klow parkir aplikasi, Masuk Harga menentukan ให้ Harga keluarnya GMNA?
KCH sklian bzamah ต่ำ contoh aplikasi parikir!
hha ... !
tolong pzn! EA ... !
TWU ต่ำ kirimin Aku K E-mail EA!
ขอบคุณครับ!
สวัสดี
คุณจะรู้ว่าฉันแค่การเริ่มต้นใน VB และฉันได้รับการสอน vn.net 2008, และฉันต้องการที่จะทำให้เครื่องคิดเลขขั้นพื้นฐานเช่นที่ซับซ้อน แต่ไม่จำเป็นต้องตรวจสอบ texbox (ตัวเลขเท่านั้น) ในรหัสที่คุณแสดงให้ฉันมีปัญหากับ LT และ ที่ไม่ได้รับการประกาศจากนั้นผมคิดว่าผมจะมีปัญหา GT, ตามที่ระบุไว้ในการทำงาน
ขอบคุณล่วงหน้า ..
ดูที่ตัวอักษร "<" และ ">" ไม่ VB. NET-HTML และควรจะปรากฏเป็น "" ตามลำดับ การเรียนการสอนจึงกลายเป็น:
ถ้า (ยังไม่ Char.IsNumber (e.KeyChar) และ e.KeyChar Microsoft.VisualBasic.ChrW (8)) จากนั้น
คือว่าคำถามคือหญิงชรา แต่ฉันคิดว่าผู้เข้าชมในอนาคต xD
สวัสดีดี
Tabajo ต้องทำให้การปฏิบัติและฉันมีช่องและฉันมีการตรวจสอบว่าหมายเลขหรือข้อความที่ ตัวอย่างเช่นถ้ามีการใส่รหัสของคุณผมต้องยืนยันว่ามันเป็นตัวเลขและไม่ใช่วิธีการที่ถ้าใครจะช่วยฉันขอขอบคุณมาก
ฉันหวังว่าคุณให้บริการ
คุณ nuemros จำนวนเต็มหรือทศนิยมที่ถูกต้องคุณสามารถบอกจำนวนตำแหน่งทศนิยมที่คุณยอมรับและจะเป็นสัญลักษณ์ของจุดทศนิยมหรือเครื่องหมายจุลภาคขึ้นอยู่กับประเทศ
Public Sub ValidaNumero (ByVal e เป็น System.Windows.Forms.KeyPressEventArgs, _
OText ByVal เป็นช่อง, _
ไม่จำเป็น ByVal pbConPuntoDec เป็นบูลีน = True, _
pnNumDecimal ByVal เสริม As Integer = 2, _
ไม่จำเป็น ByVal psSimbolo As String = ".")
ในฐานะที่เป็นจำนวนเต็ม nDig มซำ
มซำ nCount, esDecimal, NumDecimales As Integer
ในฐานะที่เป็น Boolean Dim esDec
มซำ As String = String.Concat sTexto (oText.Text, e.KeyChar)
หาก Asc (e.KeyChar) = Keys.Back หรือ Asc (e.KeyChar) = Keys.Return แล้ว
e.Handled = False
Exit Sub
End If
แล้วถ้า pbConPuntoDec
หาก e.KeyChar.IsDigit (e.KeyChar) หรือ e.KeyChar = psSimbolo แล้ว
e.Handled = False
E.KeyChar.IsControl if (e.KeyChar) แล้ว
e.Handled = False
อื่น
e.Handled = True
End If
nDig sTexto.Length =
หาก nDig = 1 และแล้ว e.KeyChar = psSimbolo
e.Handled = True
End If
หาก oText.SelectedText "" แล้ว
แล้วถ้า e.KeyChar = psSimbolo
e.Handled = True
End If
อื่น
หาก sTexto.IndexOf (psSimbolo)> = 0 และ (nDig - (sTexto.IndexOf (psSimbolo) + 1))> แล้ว pnNumDecimal
e.Handled = True
End If
End If
อื่น
หาก e.KeyChar.IsDigit (e.KeyChar) แล้ว
e.Handled = False
E.KeyChar.IsControl if (e.KeyChar) แล้ว
e.Handled = False
อื่น
e.Handled = True
End If
End If
ย่อยสิ้นสุด
ที่นี่ผมให้คุณรหัสเพื่อตรวจสอบเฉพาะตัวเลขไม่ลืมว่ามันอยู่ในเหตุการณ์ KeyPress ของช่องที่คุณจะตรวจสอบ:
Txt_Cantidad_KeyPress ตำบลเอกชน (ผู้ส่ง ByVal เป็นวัตถุอี ByVal, ณ System.Windows.Forms.KeyPressEventArgs) จัดการ txt_Cantidad.KeyPress
'ที่นี่เราตรวจสอบว่าคีย์ถูกกดเป็นตัวอักษรถ้าเป็นอย่างนั้นไม่ได้ใช้หรือไม่แสดงตัวอักษร
หาก Char.IsLetter (e.KeyChar) แล้ว
e.Handled = True
อื่น
'นี่คุณตรวจสอบว่าคีย์ใด ๆ ที่ถูกกดการตรวจสอบสามารถ BACKSPACE tabulardor,, ถ้าเป็นเช่นนั้นให้มันไปคุณสามารถลบหมูมาตรฐาน
หาก Char.IsControl (e.KeyChar) แล้ว
e.Handled = False
อื่น
'นี่คุณตรวจสอบว่าตัวคั่นหรือพื้นที่สีขาวซึ่งถ้าเช่นนั้นจะไม่ปล่อยให้มันไป
หาก Char.IsSeparator (e.KeyChar) แล้ว
e.Handled = True
อื่น
'ตรวจสอบที่นี่ถ้าคีย์กดคือหมายเลขดังนั้นถ้าคุณข้ามปกติ
หาก Char.IsDigit (e.KeyChar) แล้ว
e.Handled = False
อื่น
e.Handled = True
End If
End If
End If
End If
ย่อยสิ้นสุด
ขอขอบคุณเพื่อนมากมากคุณทำดีมากและถ้ามันโรคจิตคุณ agradesco
ตัวอย่างที่ดีมากเป็นเรื่องง่ายมากที่จะเข้าใจตรรกะของมันและเวลาที่ถูกเมื่อเทียบกับระยะเวลาสั้นมากกับคนอื่น ๆ ขอบคุณ
ดี ... ที่มีประโยชน์มาก .. ขอบคุณ
q x ในที่สุดคนที่จะทำให้ deigns รหัสทำงานเป็นคน x q เหนือทุกสิ่ง! ขอบคุณความรักที่บันทึกไว้ผมความเครียด ... TQM!
เพื่อนให้คำปรึกษาให้ condigo enmodo คอนโซล แต่ถ้าทำงานในโหมดเว็บไม่ทราบวิธีการทำมันด้วยฟะดี ..... ของฉันให้ฉันมือ
Thx .............
ต้องการทราบวิธีการสามารถตรวจสอบเครื่องหมายลบและจุดทศนิยม ... ขอบคุณ
สวัสดีคืนที่ดี
Tabajo ต้องทำให้การปฏิบัติและฉันมีช่องและฉันมีการตรวจสอบว่าหมายเลขหรือข้อความที่ ตัวอย่างเช่นถ้ามีการใส่รหัสของคุณผมต้องยืนยันว่ามันเป็นตัวเลขและไม่ใช่วิธีการที่ถ้าใครจะช่วยฉันขอขอบคุณมาก
เด็กนี้เป็นมั่นเหมาะให้ศีลให้พรฉันไม่สามารถนึกว่าฉันจะได้รับโดยไม่ต้องใช้รหัสนี้
MIL GRACIASSSSSS!
นี่คือที่ดี, เพื่อน ๆ
ตกลงนี้
รหัสนี้ช่วยให้ฉันมาก
เย็น ta
chewere
hi ทั้งหมด .. รหัสที่ดีมากผมได้ทำหน้าที่ q ฉันต้องการจะช่วยฉันในตอนนี้และผมทำงานกับ q q ที่มีตารางวัตถุ DataGridViewComboBoxColumn รหัสผมจะไปดูว่าฉันช่วยให้คุณพบข้อผิดพลาดหรือ q เขาต้องการ:
BtnAddRequisito_Click Private Sub (ผู้ส่ง ByVal เป็น System.Object, ByVal e เป็น System.EventArgs) จัดการ BtnAddRequisito.Click
มซำ As String = Negocio.Conexion sConexion
ในฐานะที่เป็นชุดข้อมูลใหม่ Ds_datos มซำ
ในฐานะที่เป็น sQuery มซำ String
CboRequisitoColumn.Name = "Subject"
Me.DGVMaterias.Columns.Add (CboRequisitoColumn)
sQuery "คำอธิบาย SELECT asg_codigo เป็นรหัส, FROM asg_nombre เป็น spsatbasignatura WHERE asg_semestre" <= & Me.CMBSemestre.Text
Ds_datos = Accesar_Datos.GetDataSet (sQuery, sConexion)
my_DGVCboColumn.DataSource Ds_datos.Tables = (0)
my_DGVCboColumn.Name = "ข้อมูล"
ToString my_DGVCboColumn.DisplayMember = Ds_datos.Tables (0). คอลัมน์ ("คำอธิบาย").
ToString my_DGVCboColumn.ValueMember = Ds_datos.Tables (0) คอลัมน์. ("จำนวน").
Me.DGVMaterias.Columns.RemoveAt (0)
Me.DGVMaterias.Columns.Insert (0, my_DGVCboColumn)
ย่อยสิ้นสุด
'อดีตสร้างตาราง
'ดังต่อไปนี้เป็นที่ที่ฉันต้องการ
'กำหนดหรือใส่รหัสให้ฉัน q
'My_DGVCbocolumn วัตถุ q อยู่ใน Q DGVMaterias xq ฉันคิดว่าฉันไม่ควร
'อ้างถึง CboRequisitoColumn
Agregar_Requisitos ตำบลเอกชน ()
มซำ SQuery As String = ""
มซำ As String = Negocio.Conexion sConexion
ในฐานะที่เป็นชุดข้อมูลใหม่ Ds_Datos มซำ
KROW มซำเป็น Integer = 0
มซำ aux As String
มซำ r As Integer
ลอง
สำหรับ KROW = 0 ถึง Me.DGVMaterias.RowCount - 1
aux = Me.my_DGVCboColumn.Items (KROW). ToString
r = วัตถุ CType (aux, Integer)
sQuery = "spi_spsatbrequisito_asignatura" โค้ด & & "" & r & ""
Ds_Datos = Accesar_Datos.GetDataSet (sQuery, sConexion)
KROW ถัดไป
จับอดีตเป็นข้อยกเว้น
MsgBox (ex.Message, MsgBoxStyle.Critical, "ผิดพลาด")
สิ้นสุดลอง
ย่อยสิ้นสุด
'ล่วงหน้าโดย
สวัสดีฉันต้องการจะทราบวิธีการทำเพื่อ q ในกล่องเดียวกับชนิดในตัวอักษรและตัวเลขที่ไม่มี
PD ผมต้องโดยเร็วที่สุดถ้ามันสามารถจะดีกว่าวันนี้
ขอบคุณมากสำหรับความสนใจของคุณ
TextBox2_TextChanged ตำบลเอกชน (ผู้ส่ง ByVal เป็น System.Object, ByVal e เป็น System.EventArgs) จัดการ TextBox2.TextChanged
หาก IsNumeric (TextBox2.Text) แล้ว
MsgBox ("ต้องเป็นตัวอักษร")
End If
ย่อยสิ้นสุด
เฮ้รหัสของคุณไม่ถูกต้อง
Q แสดงเฉพาะข้อความว่าได้มีตัวอักษร แต่ถ้าคุณลบข้อความที่ไม่ naaa
e.hendled ใส่เดียวกันและวางอยู่ตรงข้าม .... ถ้าคุณเปลี่ยนเท็จเพื่อความจริงและในทางกลับกัน ....
ขอบคุณมาก! x ที่ฉันทำบล็อกนี้ฉัน proje xq และไม่ให้ฉันหัวถ้าพวกเขาสามารถช่วยฉันด้วยนี้ขอขอบคุณคุณ:
ฉันมีแบบฟอร์มที่มีรายได้และข้อมูลอื่น ๆ ที่มีตารางที่จะได้รับการพิจารณา q แต่เมื่อฉันต้องการที่จะเห็นได้จากครั้งแรก q ฉันได้บันทึกข้อมูลในตารางล้มเหลว NAA NAA ฉันกรองกับคีย์หลัก แต่ไม่ได้ <ถ้าหากพวกเขาเป็นแรงบันดาลใจให้ฉัน ขอขอบคุณคุณ
ที่ฉันสามารถทำเพื่อให้ช่องแล้วปรากฏตำนานเมื่อป้อนข้อมูลในช่องอื่นได้หรือไม่? ถ้าใครจะช่วยฉันจะขอบคุณ
แบบสอบถามที่คุณสามารถทำเมื่อป้อนตัวเลขที่ texbox จุดเหล่านี้โดยอัตโนมัติวางพัน
คุณสามารถจัดรูปแบบโดยใช้เหตุการณ์ LostFocus:
รูปแบบ = TextBox1.Text (TextBox1.Text "คงที่")
เช่น
กรุณาคุณสามารถช่วยฉันฉันจำเป็นต้องตรวจสอบรายการของตัวเลขลงในกล่องข้อความผมได้ตรวจสอบที่สนับสนุนเฉพาะตัวเลขตอนนี้ฉันจำเป็นต้องตรวจสอบรายการของหมายเลขแรกที่มีจำนวนเพียง 2
รู้จากที่นั่นผมพบว่ารหัสบิตที่ซับซ้อนในการพิมพ์ข้อความหรือตัวเลขเพียงบางส่วนเท่านั้น แต่ถ้าผมนำรหัสที่ง่ายมากและ simplemte พอที่จะเปลี่ยนพารามิเตอร์เดียวที่จะทำให้ยอมรับความแตกต่างระหว่างข้อความหรือตัวเลขที่ดีไม่มากที่จะพูดและ กำลังรอพวกเขา SAE ประโยชน์อย่างมากที่นี่ฉันจะไป:
แรกที่เราหมายถึง:
นำเข้า System.Windows.Forms.Form
และสร้างฟังก์ชันที่ contrendra รหัสต้นแบบในการตรวจสอบเนื้อหาของดังต่อไปนี้:
KeyAscii As สาธารณะสั้น
'ฟังก์ชันเพื่อให้เฉพาะตัวเลขระยะเวลาจุลภาค BACKSPACE และป้อน
Tecla_Presionada ฟังก์ชั่น (ByVal KeyAscii As สั้น) ที่สั้น
ถ้า InStr ("0123456789.", Chr (KeyAscii)) = 0 แล้ว (ดังนั้นจะยอมรับเฉพาะตัวเลขและสิ่งที่ expliqye ดังกล่าว แต่ถ้าเราใช้เวลา "= 0" จะสนับสนุนจุดกลับที่ฉันหวังว่าฉันเข้าใจ แต่แล้ว ฉันอธิบาย ... )
Tecla_Presionada = 0
อื่น
Tecla_Presionada = KeyAscii
End If
เลือกกรณี KeyAscii
8 กรณี
Tecla_Presionada = KeyAscii
13 กรณี
Tecla_Presionada = KeyAscii
END เลือก
ฟังก์ชั่นเอนด์
เมื่อฟังก์ชั่นเราไปที่ textbox1 เพื่อที่จะพูดคุณจะรู้ว่าเป็นที่รู้จักกันว่าถ้าเหตุการณ์ KeyPress และ digitamos ต่อไปนี้:
TextBox1_KeyPress ตำบลเอกชน (ผู้ส่ง ByVal เป็นวัตถุอี ByVal, ณ System.Windows.Forms.KeyPressEventArgs) จัดการ TextBox1.KeyPress
มซำ KeyAscii สั้น = CShort (Asc (e.KeyChar))
KeyAscii = CShort (Tecla_Presionada (KeyAscii))
หาก KeyAscii = 0 แล้ว
e.Handled = True
End If
ย่อยสิ้นสุด
และที่เราปฏิบัติต่อโปรแกรมพร้อมและที่มันว่าคนทั้งหมดที่ฉันหวังว่าจะเป็นประโยชน์แก่พวกเขาจนแล้วไม่มีคำถามใด ๆ ...
ดีมากและมีประโยชน์การโพสต์ของคุณ!
nserio บันทึกฉัน!
graciass หลาย
=)
การจะมีความสมบูรณ์แบบที่คุณเพียงแค่ต้องกินควบคุมดิจิตอลและตำแหน่งอัตโนมัติของพันจุด
ขอบคุณ
สวัสดีฉันต้องการจะช่วยให้ฉัน q q ช่องฉันยอมรับตัวอักษรเท่านั้นและช่องว่าง
ฉันต้องการมันโดยเร็วที่สุดเท่าที่เป็นไปได้ขอบคุณ
สวัสดีฉันจะสามารถช่วยคุณด้วยรหัสที่จะยอมรับ แต่ผมจำเป็นต้องดึงข้อมูลจาก Bd แต่ไม่วิธี porfis หากพวกเขาเป็น agradecede ...
hi ฉันยังเริ่มต้นในการสร้างแก้ไขข้อความ Visual Basic Visual Basic, ฉันมีคำถามที่จะถามใน RichTextBox เมื่อฉันเขียนคำเช่น "Hello World" ที่ฉันต้องการพื้นที่สีขาวเพื่อกรอกข้อมูลที่มี * จะยังคงอยู่ดังนั้น "โลก * สวัสดี" แต่ไม่ใช่สิ่งที่ฟังก์ชั่นที่ฉันจะไม่ทำมันได้โดยตรงใน RichTextBox ถ้าหมายถึงปุ่มที่คุณเสร็จสิ้นการพิมพ์ ให้ข้อความที่จะคลิกปุ่มเพื่อเรียกใช้ฟังก์ชัน (ถ้ามันเป็นฟังก์ชั่น) และช่องว่างใน RichTextBox กรอกฉันกับ * ซึ่งเป็นรหัสที่มาหรือสิ่งที่เป็นฟังก์ชั่นการทำเช่นนี้และวิธีการที่จะเรียก ปุ่มฟังก์ชั่น (ในกรณีของการทำงาน) อันที่จริงมันมีอยู่ใน Visual Basic 2008
ความคิดเห็นนี้ได้รับประโยชน์มากทั้ง ม.