Make your own free website on Tripod.com

AllApi.net

[an error occurred while processing this directive]
 
'In general section
Private Declare Function CharLower Lib "user32" Alias "CharLowerA" (ByVal lpsz As String) As Long
Private Declare Function CharUpper Lib "user32" Alias "CharUpperA" (ByVal lpsz As String) As Long

Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim strSave As String, Upper As String, Lower As String
    'Set the Autoredraw property (set to Persistent Graphic)
    Me.AutoRedraw = True
    'This is the string we're going to use
    strSave = "This is a test !"
    'Print it to the form
    Me.Print "Original: " + strSave
    'Convert all the characters to uppercase (like the UCase$-function from VB)
    CharUpper strSave
    Me.Print "Upper Case:" + strSave
    'Convert all the characters to lowercase (like the LCase$-function from VB)
    CharLower strSave
    Me.Print "Lower Case:" + strSave
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/