间接方法:
将TextBox控件的MultiLine属性设为True,将控件的宽度调整为一个汉字的宽度,这样输入的汉字自动换行,可实现从上到下输入

解决方案 »

  1.   

    可以的,你查一下winapi吧,我以前看到过的,现在想不起来了
      

  2.   

    CreateFont VB声明 
    Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal H As Long, ByVal W As Long, ByVal E As Long, ByVal O As Long, ByVal W As Long, ByVal I As Long, ByVal u As Long, ByVal S As Long, ByVal C As Long, ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, ByVal PAF As Long, ByVal F As String) As Long 
    说明 
    用指定的属性创建一种逻辑字体 
    返回值 
    Long,执行成功则返回逻辑字体的句柄,零表示失败。会设置GetLastError 
    参数表 
    参数 类型及说明 
    H Long,IfHeight 
    W Long,IfWidth 
    E Long,IfEscapement 
    O Long,IfOrientation 
    W Long,IfWeight 
    I Long,IfItalic 
    u Long,IfUnderline 
    S Long,IfStrikeOut 
    C Long,IfCharSet 
    OP Long,IfOutputPrecision 
    CP Long,IfClipPrecision 
    Q Long,IfQuality 
    PAF Long,IfPitchAndFamily 
    F String,IfFaceName 
    注解 
    VB的字体属性在选择字体的时候显得更有效 ====================================================================
    把F设为@开始的字体名
    再把E设为90*10把得到的句柄选入hDC
    再用TextOut绘制