请问我在一个窗体上的Text中输入文字，将其显示在另一个窗体上LabDisplay上，有问题

Question

中文的问题，不要AutoSize，跳到最大吧

Answer 1

如不要AutoSize，怎么取得TxtInput.Text的文字宽度和高度了.

Answer 2

这样做:
FrmDisplay.LabDisplay.Width = FrmDisplay.LabFont.Width + 10看着差几个像素就加上几个

Answer 3

谢谢大家
To:
  fq1.这样labe宽度是增加了，但字符却还是显示不出来。
To:
  ggto.
如将字体的大小改变，就会发生呢。怎么会有这种事发生，想不通，请问有什么比较好的办法可解决呀.

Answer 4

不可能啊?
我试了都没有问题的。检查一下label的属性(WordWrap等)...

Answer 5

明白了!你应该这样做,你缺代码:
Private Sub Command1_Click()
  Frmdisplay.Labfont.FontName = Txtinput.FontName
  Frmdisplay.Labfont.FontSize = Txtinput.FontSize
  Frmdisplay.Labfont.ForeColor = Txtinput.ForeColor
    Frmdisplay.Labfont.Caption = Txtinput.Text
    Frmdisplay.Labdisplay.Width = Frmdisplay.Labfont.Width
    Frmdisplay.Labdisplay.Height = Frmdisplay.Labfont.Height
    Frmdisplay.Labdisplay.Caption = Txtinput.Text
    Frmdisplay.Labdisplay.FontName = Txtinput.FontName
    Frmdisplay.Labdisplay.FontSize = Txtinput.FontSize
    Frmdisplay.Labdisplay.ForeColor = Txtinput.ForeColor
End Sub如果不加前面那三行那么当Txtinput的字体大小与Labfont不一样就不能AutoSize成适合的大小!

Answer 6

哇,谢谢你Cadoy(),我还是第一次一口气得100分呢,你真有信誉!以后你有问题我一定全力帮忙!!!