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文本框，窗体上设置三个按钮，单击相应的按钮可将文本框中的字体样式修改为选择的字体，点击三个按钮后，分别对应执行下列按钮动作： Private Sub Option1_Click() ...
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.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文本框增大字体，减小字体.rar VB读书器,可以增大字体，减小字体，控制对象为TextBox，只需点击对应的按钮，就可加大缩小TextBox中的字体，本例主要是学习FontSize方法的使用，如何在需要控制的文本框中应用此方法，编写字符或文字处理程序时候...
VB中屏蔽TextBox的右键菜单 在用VB编程时，我们可能需要通过对TextBox的KeyPress、KeyDown编程来实现限制输入，如只能输入数字、字母等，但是通过鼠标右键的粘贴功能却可以使你的代码功亏一篑，本例将演示如何通过调用API屏蔽TextBox的右键功能...
VB6.0为TextBox设置新的系统菜单 摘要:VB源码,其它类别,TextBox VB6.0为TextBox设置新的系统菜单，在文本框中单击鼠标右键，会弹出系统功能菜单，让TextBox组件具备更加完备的功能，虽然本源码比较小，简单，但却是挺实用的功能。期待VB初学者能...
VB在TextBox中进行全字匹配查找替换功能 内容索引:VB源码,字符处理,字符查找 VB在TextBox中进行全字匹配查找并替换字符的功能示例，编译运行如上图所示，程序支持大小写匹配查找、全字匹配查找，虽然程序是VB中的基本知识，但是对以后的编程很有用处。
VB支持背景图像的TextBox漂亮文本框控件 内容索引:VB源码,界面编程,TextBox 一个VB自定义的TextBox漂亮文本框控件，与众不同的是它能够自定义文本框的颜色、背景图像，颜色可以是渐变的，这样给单调的文本框披上了美丽的外衣，让你的软件界面看上去更华丽...
VB实现能自动选中文本的TextBox控件 内容索引:VB源码,界面编程,TextBox VB实现能自动选中文本的TextBox控件，也就是文本框中的文字在窗体打开的时候就已经选中了，这 里把它做成了一个完整的小窗口实例，这种用法在WEB编程中应用也挺广泛的，不知道...
VB.NET TextBox的提示文字 VB.net 中，TextBox 控件如何显示提示文字？(密码输入框) 用灰色显示“请输入密码”，当鼠标点击的时候灰色的字就消失。当输入框中没有内容并且焦点离开输入框的时候又恢复提示文字。 这样的效果经常见于...
改变文本框字体的大小和样式，VB窗体实例.rar 改变文本框字体的大小和样式，VB窗体实例，调用Windows的字体面板，通过此面板你可对布局在窗体上的文本框控制字体进行控制，改变字体的样式、大孝删除线、下划线、字符集、字型等。运行的效果如上图所示。
6.陈恩点VB.NET 视频 Textbox的基本使用 6.陈恩点VB.NET 视频 Textbox的基本使用 7.陈恩点VB.NET 视频 Access的基本使用 8.陈恩点VB.NET 视频 Access的基本操作进阶 9.陈恩点VB.NET 视频 修改Access 数据库密码 10.9.陈恩点VB.NET 视频 SQL的基本操作 11....
Activiti 工作流入门到大神 什么是流程、工作流作用、Activiti背景简介、Activiti流程设计器安装、Activity环境搭建、通过HelloWorld掌握 Activiti操作流程的步奏、常见API使用、流程部署管理(发布流程、查看流程定义、删除流程、查看流程附件)、流程实例管理(启动流程、查看任务、认领任务、办理任务、查看流程状态) 什么是流程、工作流作用、Activiti背景简介、Activiti流程设计器安装、Activity环境搭建、通过HelloWorld掌握 Activiti操作流程的步奏、常见API使用、流程部署管理(发布流程、查看流程定义、删除流程、查看流程附件)、流程实例管理(启动流程、查看任务、认领任务、办理任务、查看流程状态) QQ:362969068
