Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function lstrcmp Lib "kernel32" Alias "lstrcmpA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function lstrcmpi Lib "kernel32" Alias "lstrcmpiA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function lstrcpyn Lib "kernel32" Alias "lstrcpynA" (ByVal lpString1 As String, ByVal lpString2 As String, ByVal iMaxLength As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
Private Declare Function CharLowerBuff Lib "user32" Alias "CharLowerBuffA" (ByVal lpsz As String, ByVal cchLength As Long) As Long
Private Sub Form_Paint()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim TestStr As String, CaseStr As String
    Const sKPD = "KPD-Team "
    Const sDate = "1999"
    Me.Cls
    'Create a buffer
    TestStr = String(lstrlen(sKPD) + lstrlen(sDate), 0)
    'Append two strings
    lstrcat TestStr, sKPD
    lstrcat TestStr, sDate
    'Print the result on the form
    Me.Print TestStr
    'Create a buffer
    CaseStr = String(lstrlen(TestStr), 0)
    'Copy the string into the buffer
    lstrcpy CaseStr, TestStr
    Me.Print CaseStr
    'Check if the strings are the same
    If lstrcmp(TestStr, CaseStr) = 0 Then
        Me.Print "The strings are the same (case sensitive)"
    End If
    'convert the string to lowercase
    CharLowerBuff CaseStr, lstrlen(CaseStr)
    Me.Print CaseStr
    'Check if the strings are the same
    If lstrcmpi(TestStr, CaseStr) = 0 Then
        Me.Print "The strings are the same (case insensitive)"
    End If
    Me.Print "Our original string: " + TestStr
    'Copy the string
    lstrcpyn TestStr, sDate, lstrlen(sDate) + 1
    Me.Print "Our altered string: " + TestStr
End Sub

Close this window