| 以文本方式查看主题 - 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=187287) |
| -- 作者：ezilu -- 发布时间：2023/7/5 22:08:00 -- 窗口TextBox问题 如题！ 如何让TextBox自动根据文本字符的多少，自动调节TextBox的高度属性，不带滚动条的那种。 求助各位大大，谢谢。
|
| -- 作者：有点蓝 -- 发布时间：2023/7/6 9:00:00 -- textchanged事件 Dim 控件默认高度 as integer = 50 Dim txt As String = e.Sender.Text \'& " " Dim g As Graphics = basemainform.CreateGraphics Dim size As Object size = g.MeasureString(txt, e.Sender.Font, e.Sender.Width +5) If size.height > 控件默认高度 Then e.Sender.Height = size.height End If [此贴子已经被作者于2023/7/6 9:00:47编辑过]
|