|
'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
|
|