|
Private Declare Function TabbedTextOut Lib "user32" Alias "TabbedTextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long, ByVal nTabPositions As Long, lpnTabStopPositions As Long, ByVal nTabOrigin As Long) As Long
Private Sub Form_Paint()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim TbSP(0 To 2) As Long, TbO(0 To 2) As Long
Dim mStr As String
'set the form's scalemode to Pixels
Me.ScaleMode = vbPixels
'Set the tabstops
TbSP(0) = 100
TbSP(1) = 200
TbSP(2) = 300
TbO(0) = 0
TbO(1) = 100
TbO(2) = 200
'print first string
mStr = "Hello" + Chr$(9) + "World" + Chr$(9) + "!"
TabbedTextOut Me.hdc, 0, 0, mStr, Len(mStr), 3, TbSP(0), TbO(0)
'print second string
mStr = "How" + Chr$(9) + "are" + Chr$(9) + "you?"
TabbedTextOut Me.hdc, 0, Me.TextHeight(mStr), mStr, Len(mStr), 3, TbSP(0), TbO(0)
End Sub
|
|