- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于TextBox的预期值的提示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186260)
-- 发布时间：2023/4/17 17:37:00
-- 关于TextBox的预期值的提示
窗口中的TextBox如何实现预期值的提示？如题
-- 发布时间：2023/4/17 20:13:00
--
valuechanged事件
if e.sender.value = xxx值 then
msgbox("提示")
end if
-- 发布时间：2023/4/18 13:18:00
--
我可能说的不够清楚。是类似这种 http://www.foxtable.com/mobilehelp/index.htm?page=0101.htm 在文本框录入或者得到焦点前 能显示一些内容
-- 发布时间：2023/4/18 13:49:00
--
http://www.foxtable.com/mobilehelp/topics/0045.htm
Foxtable为输入框提供了以下属性：
| Value | 字符型，输入框的初始值 |
| Readonly | 逻辑型，输入框是否只读 |
| Post | 逻辑型，提示表单数据时是否包括此输入框的值，默认为True。 |
| Required | 逻辑型，是否必须输入内容，目前基于iOS的多数浏览器暂不支持这个属性。 |
| Placeholder | 字符型，对输入框预期值的提示 |
With .AddInput("xm","户名","text")
.Value = "张三"
.Readonly= True
.Value = "张三"
.Readonly= True
.Placeholder = “某提示”
End With
End With
-- 发布时间：2023/4/18 14:32:00
--
我的意思是 C/S 窗口中的 TextBox 如果实现 这样的功能？
-- 发布时间：2023/4/18 14:35:00
--
http://www.foxtable.com/webhelp/topics/2673.htm
-- 发布时间：2023/4/19 10:03:00
--
也不知是哪位狐友发布的，搬来用，效果还行：
此主题相关图片如下：微信截图_20230419100150.png
\'全局代码定义文本控件提示信息显示
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As IntPtr, ByVal lParam As Byte()) As Integer
Public Const EM_SETCUEBANNER As Integer = &H1501
Public Sub SetWatermark(wTextBox As winform.textbox, str As String)
SendMessage(wTextBox.BaseControl.Handle, EM_SETCUEBANNER, IntPtr.Zero, System.Text.Encoding.Unicode.GetBytes(str))
End Sub
Public Sub SetWatermark(wComboBox As winform.ComboBox, str As String)
SendMessage(wComboBox.BaseControl.Handle, EM_SETCUEBANNER, IntPtr.Zero, System.Text.Encoding.Unicode.GetBytes(str))
End Sub
’窗口Afterload设置
SetWatermark(e.Form.Controls("DBname"), "请选择账套")
SetWatermark(e.Form.Controls("UserName"), "请选择用户")
SetWatermark(e.Form.Controls("PassWord"), "请输入密码")
使用过程发现一个问题，打开窗口后如果焦点在文本框，那么这个文本框默认提示信息失效，可以设置打开窗口将焦点设为其他控件；如果窗口只有以上3个文本框，变通方法为加入一个标签控件（文本为空），并设置打开窗口将焦点设为此控件。
e.Form.controls("Label1").Select
完美解决！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
[此贴子已经被作者于2023/4/19 10:21:21编辑过]