Make your own free website on Tripod.com

AllApi.net

[an error occurred while processing this directive]
 
Const TA_BASELINE = 24
Const TA_BOTTOM = 8
Const TA_CENTER = 6
Const TA_LEFT = 0
Const TA_NOUPDATECP = 0
Const TA_RIGHT = 2
Const TA_TOP = 0
Const TA_UPDATECP = 1
Const TA_MASK = (TA_BASELINE + TA_CENTER + TA_UPDATECP)
Private Declare Function SetTextAlign Lib "gdi32" (ByVal hdc As Long, ByVal wFlags As Long) As Long
Private 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 Long
Const mStr = "www.allapi.net"
Private Sub Form_Paint()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'set the form's scalemode to pixels
    Me.ScaleMode = vbPixels
    'set the forecolor to white
    Me.ForeColor = vbWhite
    'draw some lines to show where our TextOut-x- and y-parameters are
    Me.Line (100, 0)-(100, 100)
    Me.Line (100, 100)-(0, 100)
    Me.Line (150, 0)-(150, 150)
    Me.Line (150, 150)-(0, 150)
    'set the forecolor back to black
    Me.ForeColor = vbBlack
    'call textalign to align to the right
    SetTextAlign Me.hdc, TA_RIGHT Or TA_TOP Or TA_NOUPDATECP
    'show some text
    TextOut Me.hdc, 100, 100, mStr, Len(mStr)
    'call textalign to align to the left
    SetTextAlign Me.hdc, TA_LEFT Or TA_TOP Or TA_NOUPDATECP
    'show some text
    TextOut Me.hdc, 150, 150, mStr, Len(mStr)
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/