1.6w+
社区成员
- 全部
- VBS
- .NET技术
- VBA
- VB网络编程
- VB多媒体
- VB数据库
- VB控件
- VB COM/DCOM
- VB基础类
- VB API
- 问答
vb textbox的小问题
初学vb，有几个关于textbox控件的问题不太清楚：
1〉如何判断textbox控件中输入的内容是数字还是英文字母？
2〉如何获得textbox控件中输入内容的第一个（或者第二个第三个……）字符是否与指定的字符相符？
在线等！！
1〉如何判断textbox控件中输入的内容是数字还是英文字母？
2〉如何获得textbox控件中输入内容的第一个（或者第二个第三个……）字符是否与指定的字符相符？
在线等！！
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
haoco 2005-03-21
up
LiJun12112003 2005-03-16
谢谢大家的帮忙，更具大家的帮助，我已经解决了这个问题，因为我是初学，未接触正则表达式，所以用的是true1024的方法，特别感谢！！
True1024 2005-03-16
'1用正则表达式.(目前还没用过)
'2用下面这些方法.
'如果是数字的话.
'If IsNumeric(Text1.Text) = True Then
'End If
Public Function PanDuan(ByVal str As String) As Boolean
Dim Eng As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghigklmnopqrstuvwxyz"
PanDuan = True
Dim i As Integer
For i = 1 To Len(str)
If Eng.IndexOf(Mid(str, i, 1)) = -1 Then
PanDuan = False
End If
Next
End Function
第二个问题用 Mid 函数也能解决.
'2用下面这些方法.
'如果是数字的话.
'If IsNumeric(Text1.Text) = True Then
'End If
Public Function PanDuan(ByVal str As String) As Boolean
Dim Eng As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghigklmnopqrstuvwxyz"
PanDuan = True
Dim i As Integer
For i = 1 To Len(str)
If Eng.IndexOf(Mid(str, i, 1)) = -1 Then
PanDuan = False
End If
Next
End Function
第二个问题用 Mid 函数也能解决.
hamadou 2005-03-16
1.
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Select Case e.KeyChar
Case "0" To "9"
MessageBox.Show("数字")
Case "A" To "z"
MessageBox.Show("字母")
End Select
End Sub
2.用正则应该是最简单的！
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Select Case e.KeyChar
Case "0" To "9"
MessageBox.Show("数字")
Case "A" To "z"
MessageBox.Show("字母")
End Select
End Sub
2.用正则应该是最简单的！
haoztao 2005-03-15
用正则表达式。。你找点这方面的资料。。
VB textbox显示字符问题 textbox 的text框能不能在其内容后面直接添加字符的？ 之前是每次写入text1.text=text1.text & str的 显示的， 但是数据多了之后显示反应不过来了。 不可以话有什么控件可以实现？或者有什么函数？解决方法可以...
VB控制TextBox文本框增大字体，减小字体.rar VB读书器,可以增大字体，减小字体，控制对象为TextBox，只需点击对应的按钮，就可加大缩小TextBox中的字体，本例主要是学习FontSize方法的使用，如何在需要控制的文本框中应用此方法，编写字符或文字处理程序时候...
vb.net TextBox 失去焦点和获得焦点 创建一个TextBox，id=tBox， 获得焦点就是tBox.Focus(),失去焦点的方法没有找到， 只是找到了失去焦点的事件 ： Private Sub tBox_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ...
VB文本框textbox的那点事 在textbox的keypress事件里面写上 （1）判断输入的数字是否为小数 IfkeyAscii=46 and not(InStr(txtnumber,"."))Then Exit Sub （2）限制输入为数字 IfkeyAscii57 then keyAscii=0 （3）解决屏蔽BackSpace退格...
VB在TextBox中进行全字匹配查找替换功能 内容索引:VB源码,字符处理,字符查找 VB在TextBox中进行全字匹配查找并替换字符的功能示例，编译运行如上图所示，程序支持大小写匹配查找、全字匹配查找，虽然程序是VB中的基本知识，但是对以后的编程很有用处。
VB.NET TextBox 打开txt后乱码问题 由于编码格式不对应导致在读入和写入时Dim sr As New IO.StreamReader(OpenFileDialog1.FileName, System.Text.Encoding.Default) '用系统默认编码格式读入Dim sw As New IO.StreamWriter(Me.Text, False, System....
VB中屏蔽TextBox的右键菜单 在用VB编程时，我们可能需要通过对TextBox的KeyPress、KeyDown编程来实现限制输入，如只能输入数字、字母等，但是通过鼠标右键的粘贴功能却可以使你的代码功亏一篑，本例将演示如何通过调用API屏蔽TextBox的右键功能...
VB6.0为TextBox设置新的系统菜单 摘要:VB源码,其它类别,TextBox VB6.0为TextBox设置新的系统菜单，在文本框中单击鼠标右键，会弹出系统功能菜单，让TextBox组件具备更加完备的功能，虽然本源码比较小，简单，但却是挺实用的功能。期待VB初学者能...
vb.net窗体textboxt等控件绑定mysql数据表，修改后更新到数据库 试了很久，窗体上修改的数据不能更新到数据库，最后查看了 参考了高手的c++代码，链接：... 最关键是要加上： Dim myBind As BindingManagerBase= BindingContext(HjsDataSet.asn) myBind.EndCurrentEdit() ...
VB选择字体应用于Textbox文本框.rar VB实现字体的单项选择，选择字体应用于Textbox文本框，窗体上设置三个按钮，单击相应的按钮可将文本框中的字体样式修改为选择的字体，点击三个按钮后，分别对应执行下列按钮动作： Private Sub Option1_Click() ...
第6课：郭盛华课程_VB编程之TextBox控件的使用方法 TextBox控件： 文本框，与Label不同的是，这个支持用户输入文字内容。 主要使用的属性： Text：文本框显示的内容 Multiline:是否多行显示 ScrollBars:不显示、显示垂直、显示水平、同时显示垂直或水平滚动条...
VB.NET学习笔记：自定义控件之扩展TEXTBOX控件——水印文字提示效果 看到一些优秀软件里的TEXTBOX文本框都有水印文字提示应该输入什么样的信息，获取光标后提示文字消失，光标离开后水印文字出现，效果杠杠的，心里琢磨着能不能在自己在软件中也弄一个这样的效果？ 首先想到的是利用...
【VB.NET】WinForm扩展TextBox和ComboBox控件：仿百度搜索框(输入文本智能模糊提示说明、自动匹配过滤) ComboBox控件可以输入文本...该自定义控件利用visual studio2017开发，使用VB.NET语言对TextBox和ComboBox进行了改写，实现类百度搜索框似的输入文本智能模糊提示说明、自动匹配过滤功能。具体效果请参阅本人相关博文。
VB支持背景图像的TextBox漂亮文本框控件 内容索引:VB源码,界面编程,TextBox 一个VB自定义的TextBox漂亮文本框控件，与众不同的是它能够自定义文本框的颜色、背景图像，颜色可以是渐变的，这样给单调的文本框披上了美丽的外衣，让你的软件界面看上去更华丽...
