大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
input type="text" maxlength="11" /这是控制最大输入字数至于不能少于11个字,需要在点击保存按钮时,通过.length来控制
东洲ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景,ssl证书未来市场广阔!成为创新互联建站的ssl证书销售渠道,可以享受市场价格4-6折优惠!如果有意向欢迎电话联系或者加微信:13518219792(备注:SSL证书合作)期待与您的合作!
源代码如下:(代码写在按钮点击事件里)
Label1.Text = ""
Label2.Text = ""
Dim a As String = TextBox1.Text
Dim b As String = TextBox2.Text
For x = 1 To a.Length
Dim txt As String = Mid(a, x, 1)
If txt Like "#" Then
Label1.Text = Label1.Text txt
End If
Next
For x = 1 To b.Length
Dim txt As String = Mid(b, x, 1)
If txt Like "#" Then
Label2.Text = Label2.Text txt
End If
Next
此方法用的是mid 将一个字符串拆分成单个字符,然后用like运算符进行对比是否为数字,关于这两个函数的用法如果不懂的可以自己搜索下,此外还有别的方法,这里就不多说了
以下是只能输入数字和小数点,并且小数点只能输入一次
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