【VBA研究】进入文本框后其内容全选
2015-07-13 17:57
239 查看
作者:iamlaosong
做一个扫描核对工具,扫描的条码在文本框中,表单中只有一个用于扫描的文本框是有效的,另一个文本框用于显示核对正确时显示货品数量,不过这个文本框用户是不能操作的,如下图所示:
由于需要反复扫描条码,所以希望每次扫描时能覆盖上次扫描的内容,这有两种方法,一种是核对完毕后清除文本框的内容,另一种方法就是将内容全选,显然,第二种方法较好,因为核对完毕后还可以看到上次扫描的内容,如果清空则有点怪怪的,看着不爽,设置全选的代码如下:
。。。
BarCode = TextBox1.Value
。。。
TextBox1.SelStart = 0
TextBox1.SelLength = Len(BarCode)
。。。
附:完整的核对子程序
做一个扫描核对工具,扫描的条码在文本框中,表单中只有一个用于扫描的文本框是有效的,另一个文本框用于显示核对正确时显示货品数量,不过这个文本框用户是不能操作的,如下图所示:
由于需要反复扫描条码,所以希望每次扫描时能覆盖上次扫描的内容,这有两种方法,一种是核对完毕后清除文本框的内容,另一种方法就是将内容全选,显然,第二种方法较好,因为核对完毕后还可以看到上次扫描的内容,如果清空则有点怪怪的,看着不爽,设置全选的代码如下:
。。。
BarCode = TextBox1.Value
。。。
TextBox1.SelStart = 0
TextBox1.SelLength = Len(BarCode)
。。。
附:完整的核对子程序
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then '取条码值 BarCode = TextBox1.Value '该条码是否本站货品 For row2 = DatLine To MaxRow2 If Scan(row2) = BarCode Then TextBox2.Value = Qty(row2) If Cells(row2, 10) <> "OK" Then OK_No = OK_No + 1 Cells(row2, 10) = "OK" Else TextBox2.Value = "重复" End If Exit For End If Next row2 '如果没有找到,检查是否为箱码,通过箱码找到货品条码再次核对 If UserForm1.CheckBox1.Value And row2 > MaxRow2 Then '找箱码对应条码 For k = 1 To MaxRowBox If ScanBox(k, 2) = BarCode Then BarCode = ScanBox(k, 1) Exit For End If Next k If k <= MaxRowBox Then '找到箱码对应货品条码,再次核对 For row2 = DatLine To MaxRow2 If Scan(row2) = BarCode Then TextBox2.Value = Qty(row2) If Cells(row2, 10) <> "OK" Then OK_No = OK_No + 1 Cells(row2, 10) = "OK" Else TextBox2.Value = "重复" End If Exit For End If Next row2 End If End If '货品条码和箱码均不是 If row2 > MaxRow2 Then tmp = MsgBox("本条码非本站货品,条码:" & BarCode, vbOKOnly + vbExclamation, "iamlaosong") TextBox2.Value = "" ErrNo = ErrNo + 1 End If TextBox1.SelStart = 0 TextBox1.SelLength = Len(BarCode) 'TextBox1.Value = "" End If End Sub
相关文章推荐
- VB课本总结
- VB前四章
- 一句话vbs下载
- vb.net Datagridview 下拉框应用
- 三种扩展 Office 软件功能的开发模型对比 – Office Add-In Model, VBA 和 VSTO
- vb.net操作word
- WPF(VB.NET) ImageSource 转 System.Drawing.Image
- VB的CRC32校验代码
- Excel VBA 不打开Excel文件访问其中内容的方法
- vagrant针对vb5.0的修改[z]
- opencv源码之一:cvboost.cpp
- vb6导出excel加速
- 【VBA研究】变量定义的类型和实际赋值类型
- AHA Demonstrates Complete DVB-S2X Modem in SDR Platform
- 【VBA研究】如何在if中判断一个值为null的变量
- uzgbtymhqo.vbs服务器端测试代码编写
- 实验室缉毒记之uzgbtymhqo.vbs
- 为什么很多病毒是用vbs写成的
- VB.NET中的DLL编写和调用的最简单示例
- H.264 码率控制 VBR CBR