如何设置print方法的align参数?我想print出来的文字右对齐

Question

如题

Answer 1

Private Sub Form_Load()
    Me.AutoRedraw = True
    Print Spc(10 - Len("a")); "a"
    Print Spc(10 - Len("ab")); "ab"
    Print Spc(10 - Len("abc")); "abc"
    Print Spc(10 - Len("abcd")); "abcd"
End Sub

Answer 2

Private Sub Form_Load()
    Me.Font = "Courier" '使用固定间距的字体
    Me.AutoRedraw = True
    Print Spc(10 - Len("a")); "a"
    Print Spc(10 - Len("ab")); "ab"
    Print Spc(10 - Len("abc")); "abc"
    Print Spc(10 - Len("abcd")); "abcd"
End SubSub

Answer 3

Const LeftMargin As Integer = 1000
Private Sub Form_Load()
    Dim maxwidth As Single
    Me.AutoRedraw = True
    maxwidth = Me.TextWidth("中国")
    Me.CurrentX = LeftMargin + maxwidth - Me.TextWidth("a")
    Print "a"
    Me.CurrentX = LeftMargin + maxwidth - Me.TextWidth("中国")
    Print "中国"
End Sub

Answer 4

Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As LongDeclare Function SetTextAlign Lib "gdi32" Alias "SetTextAlign" (ByVal hdc As Long, ByVal wFlags As Long) As Long保你没问题