Make your own free website on Tripod.com

AllApi.net

[an error occurred while processing this directive]
 
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


 
Copyright © 1998-2000, The KPD-Team.
Send mail to KPDTeam@Allapi.net with comments about this web site.
This site is located at
http://www.Allapi.net/