vb.net输入数字 vb输入文字的代码

VB.NET中的DATAGRIDVIEW怎样只能在表格中输入数字呢

第一部、先定义一个单元格操作变量vb.net输入数字，如下

Dim cellEdit As DataGridViewTextBoxEditingControl = Nothing

第二部、然后在在控件vb.net输入数字的EditingControlShowing事件中添加入下代码vb.net输入数字，参考如下：

Private Sub DataGridView3_EditingControlShowing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView3.EditingControlShowing

cellEdit = CType(e.Control, DataGridViewTextBoxEditingControl)

cellEdit.SelectAll()

AddHandler cellEdit.KeyPress, AddressOf dataGridView3_KeyPress

End Sub

第三部：在要控制的列加入控件键盘按钮的代码vb.net输入数字，如下面ROLL列是要控制的列

Private Sub dataGridView3_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles DataGridView3.KeyPress

Dim i As Integer = DataGridView3.CurrentCellAddress.X

Dim ColumnName As String = DataGridView3.Columns(i).Name

If (ColumnName = "rollno") Then

If Not Char.IsDigit(e.KeyChar) And e.KeyChar Chr(8) Then

e.Handled = True

End If

End If

End Sub

相关问答

Q1: 如何在VB.NET 中限制文本框中只能输入数字

以下是只能输入数字和小数点vb.net输入数字，并且小数点只能输入一次

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Textbox1.KeyPress

If Char.IsDigit(e.KeyChar) or e.KeyChar = Chr(8) or e.KeyChar = "." Then

If e.KeyChar = "." And InStr(TextBox1.Text, ".") 0 Then

e.Handled = True

Else

e.Handled = False

End If

Else

e.Handled = True

End If

End Sub

Q2: vb.net 在TextBox1中输入数字和空格，并求奇数数字，并求和

给你个参考的例子

Imports System.Text.RegularExpressions

Public Class Form1

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

Dim a_point As Integer = TextBox1.SelectionStart

Dim bs As String = Regex.Replace(TextBox1.Text, "[^ \d]", "")

If TextBox1.TextLength bs.Length Then

TextBox1.Text = bs

TextBox1.SelectionStart = a_point

End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim gs() As String = (From mt As Match In Regex.Matches(TextBox1.Text, "\d*[13579]\b") Select mt.Value).ToArray

TextBox2.Lines = gs

TextBox3.Text = ((From mt As String In gs Select CInt(mt)).ToArray).Sum

End Sub

End Class

Q3: VB.NET ，文本框限制输入数字个数。例如不低于5位数而不大于11位数。违反则有提示。

input type="text" maxlength="11" /这是控制最大输入字数至于不能少于11个字vb.net输入数字，需要在点击保存按钮时vb.net输入数字，通过.length来控制

Q4: vb.net在textbox1中输入六个数字后，自动将格式转换为时间格式，如输入120314自动变成12:03:14，怎么操作

将输入的字符串用各种方法尝试转换为日期变量。然后对再将日期变量输出回textbox中。

这里要做的就是用try 配合 各种转换为日期变量的函数来得到一个日期结果。如果所有格式都无法转为日期，则可以提示用户无法转换 或是根本 不操作。

关于vb.net输入数字和vb输入文字的代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。