借用
picture1.textheight(text1.text)

解决方案 »

  1.   

    TextHeight 方法用以返回按 Form、PictureBox 或 Printer 的当前字体将被打印的文本字符串的高度。不支持命名参数。语法
    object.TextHeight(string)
    TextHeight 方法的语法包含下列部分:
    部分 描述 
    object 可选的。一个对象表达式,其值为“应用于”列表中的一个对象。如果省略 object,则带有焦点的 Form 对象缺省为 object。 
    String 必需的。一个字符串表达式,它用以计算确定其高度的字符串。必须用括号包括该字符串表达式。 
    说明字符串高度是以对 object 有效的 ScaleMode 属性设置或通过 Scale 方法的坐标系统来表示的。使用 TextHeight 可以确定文本显示需要的垂直空间高度。返回的高度包括文本上下的正常前导空间,因此,可以使用该高度来计算和定位 object 内的多行文本。
      

  2.   

    假设窗体名是Form1Set Form1.Font=Text1.Font
    字符在文本框中的高度=Form1.TextHeight(字符)
      

  3.   

    Use GetTextExtentPoint32 API function then get the Height