以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  文本框的内容太长，打印不全，该怎么设置啊？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116306)
--  作者：guosheng
--  发布时间：2018/3/22 15:20:00
--  文本框的内容太长，打印不全，该怎么设置啊？
文本框（textbox，已绑定表的备注型列）的内容太长，打印不全，该怎么设置啊？
[此贴子已经被作者于2018/3/22 15:33:46编辑过]
--  作者：有点甜
--  发布时间：2018/3/22 15:26:00
--  

1、可以设置文本框的高度；

 

e.form.controls("TextBox1").Height = 500
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()

 

2、可以加入一个label，打印的时候，显示label，隐藏textbox；

 

e.form.controls("TextBox1").Visible = false

e.form.controls("label1").Text = e.form.controls("TextBox1").Text

e.form.controls("label1").Visible = True
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()

e.form.controls("TextBox1").Visible = True

e.form.controls("label1").Visible = false
--  作者：guosheng
--  发布时间：2018/3/22 15:33:00
--  
能否设置，打印时根据textbox的内容长短，自动改变文本框的 高度啊？

[此贴子已经被作者于2018/3/22 15:38:28编辑过]
--  作者：有点甜
--  发布时间：2018/3/22 15:58:00
--  
以下是引用guosheng在2018/3/22 15:33:00的发言：
能否设置，打印时根据textbox的内容长短，自动改变文本框的 高度啊？

[此贴子已经被作者于2018/3/22 15:38:28编辑过]

 

加入一个label1，然后在TextBox1的TextChanged事件写代码，如

 

Dim lbl = e.form.controls("label1")
lbl.autosize = True
lbl.basecontrol.MaximumSize = New Size(e.sender.width, 0)
lbl.text = e.sender.text
e.sender.height = lbl.height