主题：文字超出textbox宽度时,怎么办

文字超出textbox宽度时,怎么办.能不能让文本字体大小自适应textbox控件大小

设置为多行文本http://www.foxtable.com/webhelp/scr/1862.htm

控件高度放不下两行,又不能改变控件高度

 

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

 

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

 

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

 

打印的时候怎么判断字符串的长度

 

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

 

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

msgbox(str.length)

怎么设置打印时字体大小为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