用VC另外开发一个控件。
要想直接操作VB的textbox和Label控件的行距离,有戏也会让你短命。

解决方案 »

  1.   

    用 RichtextBox,TextBox 和 Label 都是无格式的。
      

  2.   

    CloneCenter(复制中心)哪一种控件是有格式的,
      

  3.   

    TextBox可以
    Label不行
    子类处理该控件父窗口的消息
    在WM_CTLCOLOREDIT消息中,先用SetTextCharacterExtra设置字间距,再下级传递消息
    SetTextCharacterExtra VB声明 
    Declare Function SetTextCharacterExtra Lib "gdi32" Alias "SetTextCharacterExtraA" (ByVal hdc As Long, ByVal nCharExtra As Long) As Long 
    说明 
    描绘文本的时候,指定要在字符间插入的额外间距 
    返回值 
    Long,这个设备场景的前一个额外间距设置 
    参数表 
    参数 类型及说明 
    hdc Long,设备场景的句柄 
    nCharExtra Long,要在字符间插入的额外空间,采用设备场景的逻辑坐标系统 
    在VB里使用 
    如改变了这个设置,注意恢复VB窗体或控件原来的字符间距设置