专家坐堂-如何判定文本框的空值Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何判定文本框的空值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105424)

--  作者：zhuya820
--  发布时间：2017/8/18 21:11:00
--  如何判定文本框的空值

在输入文本框为有数据时，双击鼠标清空数据
清空
已经清空了
左边编码已经存在粘贴板中
如输入文本框没有数据时，双击鼠标自动复制粘贴板数据
问题是此时双击无效果

代码如下
If e.Form.Controls("TextBox").text Is Nothing Then
Dim s As String = ClipBoard.GetText()
e.Form.Controls("TextBox").text = s
Else
e.Form.Controls("TextBox").Value = Nothing
End If

[此贴子已经被作者于2017/8/26 10:20:26编辑过]

--  作者：zhuya820
--  发布时间：2017/8/18 21:18:00
--
还有如何在文本框双击自动全选数据，默认为双击只选1个文字

--  作者：有点蓝
--  发布时间：2017/8/18 21:50:00
--

DoubleClick事件

If e.Form.Controls("TextBox").text = "" Then
Dim s As String = ClipBoard.GetText()
e.Form.Controls("TextBox").text = s
Else
e.Form.Controls("TextBox").Value = Nothing
End If

双击自动全选，DoubleClick事件
e.Sender.SelectAll()

--  作者：zhuya820
--  发布时间：2017/8/19 6:15:00
--
谢谢老师
[此贴子已经被作者于2017/8/19 6:18:06编辑过]