以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  文字超出textbox宽度时,怎么办  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=111854)
--  作者：CoderToSinger
--  发布时间：2017/12/30 16:39:00
--  文字超出textbox宽度时,怎么办
文字超出textbox宽度时,怎么办.能不能让文本字体大小自适应textbox控件大小
--  作者：有点蓝
--  发布时间：2017/12/30 21:01:00
--  
设置为多行文本http://www.foxtable.com/webhelp/scr/1862.htm
--  作者：CoderToSinger
--  发布时间：2018/1/2 8:23:00
--  
控件高度放不下两行,又不能改变控件高度
--  作者：有点甜
--  发布时间：2018/1/2 8:39:00
--  
以下是引用CoderToSinger在2018/1/2 8:23:00的发言：
控件高度放不下两行,又不能改变控件高度

 

什么意思？不能用多行文本框？

 

如果你需要缩小字体，你可以判断字符串的字数，比如超过了20个，就修改字体为8px，超过25个，就设置成7px

 

http://www.foxtable.com/webhelp/scr/0494.htm

 
--  作者：CoderToSinger
--  发布时间：2018/1/2 10:17:00
--  
打印的时候怎么判断字符串的长度
--  作者：有点甜
--  发布时间：2018/1/2 11:24:00
--  
以下是引用CoderToSinger在2018/1/2 10:17:00的发言：
打印的时候怎么判断字符串的长度

 

打印按钮那里，直接判断，如

 

Dim str As String = e.form.control("TextBox1").Text

msgbox(str.length)
--  作者：CoderToSinger
--  发布时间：2018/1/2 14:25:00
--  
怎么设置打印时字体大小为9,超出指定长度的控件字体大小为8
--  作者：有点甜
--  发布时间：2018/1/2 15:16:00
--  
以下是引用CoderToSinger在2018/1/2 14:25:00的发言：
怎么设置打印时字体大小为9,超出指定长度的控件字体大小为8

Dim txt = e.form.controls("TextBox1")
Dim tempfont = new font(cstr(txt.font.name), val(txt.font.size))
If txt.text.length > 20 Then
    txt.font = new font(cstr(txt.font.name), 8)
Else
    txt.font = new font(cstr(txt.font.name), 9)
End If

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()
txt.font = tempfont