- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 在限制字数的文本框中，提醒文本还可填写数量怎么写？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97006)
-- 发布时间：2017/3/3 20:42:00
-- 在限制字数的文本框中，提醒文本还可填写数量怎么写？
如下图，在限制字数的文本框中，提醒文本还可填写数量怎么写？
此主题相关图片如下：qq图片20170303203914.png
-- 发布时间：2017/3/3 21:46:00
--
文本框TextChanged事件
e.Form.Controls("Label1").Text = "还能撰写" & (50 - e.Sender.Text.Length) & "个字."
-- 发布时间：2017/3/3 22:11:00
--
文本框TextChanged事件
Dim lab As WinForm.Label = e.Form.Controls("Label2")
Dim txt As String = e.Sender.Text
Dim l As Integer = txt.Length
If l > 50 Then
e.Sender.Text = Left(txt,50)
Else
lab.Text = "还能撰写" & 50 - l & "个字"
End If