以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  动态增加的textbox，高度不随字体变化  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=98285)
--  作者：yjf123
--  发布时间：2017/3/27 17:07:00
--  动态增加的textbox，高度不随字体变化

动态增加的textbox，高度不随字体变化？

怎么设置？
--  作者：有点色
--  发布时间：2017/3/27 18:21:00
--  

Dim txt As WinForm.TextBox
txt = e.Form.CreateControl("TextBox1", ControlTypeEnum.TextBox)
txt.Left = 100
txt.Top = 100
txt.basecontrol.AutoSize = True
txt.font = new font("宋体", 20)
e.Form.AddControl(txt)
--  作者：yjf123
--  发布时间：2017/3/28 11:37:00
--  
不一样呀 你看看 和窗口设计里面 一样的字体 但动态生成的控件小很多呀
--  作者：有点色
--  发布时间：2017/3/28 12:51:00
--  
 认认真真看2楼代码。有问题上传实例。
--  作者：yjf123
--  发布时间：2017/3/28 13:41:00
--  

看例子 动态生成的控件 与窗口设计拖进来的控件 字体一样 但大小还是不对

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb
--  作者：有点色
--  发布时间：2017/3/28 15:00:00
--  

设置高度

 

Dim txt As WinForm.TextBox
txt = e.Form.CreateControl("TextBox1", ControlTypeEnum.TextBox)
txt.Left = 10
txt.Top = 10
txt.font = new font("宋体", 10.5)
txt.basecontrol.AutoSize = False
txt.height = 22
e.Form.AddControl(txt)