如何在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

VB.NET中的DATAGRIDVIEW怎樣只能在表格中輸入數字呢

第一部、先定義一個單元格操作變量，如下

Dim cellEdit As DataGridViewTextBoxEditingControl = Nothing

第二部、然后在在控件的EditingControlShowing事件中添加入下代碼，參考如下：

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

第三部：在要控制的列加入控件鍵盤按鈕的代碼，如下面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

VB.NET在簡單組合框中輸入數字字符（包含多位數且只能輸入數字）按回車鍵后加入到組合框中

Private Sub ComboBox1_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyUp

Select Case e.KeyValue

Case 48 To 57

Case Keys.Enter

ComboBox1.Items.Add(ComboBox1.Text)

Case Else

ComboBox1.Text = ComboBox1.Text.Remove(ComboBox1.Text.Length - 1, 1)

ComboBox1.SelectionStart = ComboBox1.Text.Length

e.Handled = True

End Select

End Sub

'--------------------

百度VB2010(VB.NET)吧建設發展中,需要你的支持和幫助!!!

快加入我們吧!發表你的疑問,經驗,程序,分享..

讓我們共同進步!

vb.net 輸入一個小數 求能得到這個商的最小的整數除數和最小整數被除數

Option Explicit On

Option Strict On

Imports System

Module Program

Sub Main()

Dim s As String

Dim strs As String()

Dim fz,fm,n,m,t As Long

Console.Write("請輸入一個小數：")

s=Console.ReadLine().Trim()

strs=s.Split("."C)

fz=CLng(strs(0))

fm=CLng(Math.Pow(10,strs(1).Length))

fz=fz*fm+CLng(strs(1))

n=fz

m=fm

While n Mod m0

t=n Mod m

n=m

m=t

End While

fz\=m

fm\=m

Console.WriteLine("{0}={1}/{2}",s,fz,fm)

Console.Write("Press any key to continue . . . ")

Console.ReadKey(True)

End Sub

End Module

VB.NET ，文本框限制輸入數字個數。例如不低于5位數而不大于11位數。違反則有提示。

input type="text" maxlength="11" /這是控制最大輸入字數至于不能少于11個字，需要在點擊保存按鈕時，通過.length來控制

標題名稱：vb.net輸入數字,vb輸入代碼
分享路徑：http://vcdvsql.cn/article26/heodcg.html

成都網站建設公司_創新互聯，為您提供網站內鏈、電子商務、軟件開發、品牌網站制作、營銷型網站建設、標簽優化

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯