Aufruf der SendMessage-API-Funktion

Aufruf der SendMessage-API-Funktion: SendMessage, SendMessageString
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SendMessageString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Const EM_GETLINE = &HC4
Private Const EM_GETLINECOUNT = &HBA
Private Const EM_LINEFROMCHAR = &HC9
Private Const LB_FINDSTRING = &H18F
Private Const LB_FINDSTRINGEXACT = &H1A2
Private Const CB_FINDSTRING = &H14C
Private Const CB_FINDSTRINGEXACT = &H158
Private Sub cmdAnzahl_Click()
Dim AnzahlZeilen As Long
AnzahlZeilen = SendMessage(txtTextfeld.hwnd, EM_GETLINECOUNT, 0, 0)
MsgBox Prompt:=AnzahlZeilen
End Sub
Private Sub cmdAktuelleZeile_Click()
Dim Zeilennummer As Integer
Zeilennummer = SendMessage(txtTextfeld.hwnd, EM_LINEFROMCHAR, -1, 0&)
MsgBox Prompt:="Zeilennummer: " & Zeilennummer + 1
End Sub
Private Sub cmdSuche_Click()
Dim Tmp As String, RetVal As Long
Tmp = txtSuchbegriff.Text
RetVal = SendMessage(lstSuche.hwnd, LB_FINDSTRING, -1, ByVal Tmp)
If RetVal = -1 Then
MsgBox Prompt:="Kein Eintrag gefunden"
Else
lstSuche.ListIndex = RetVal
End If
End Sub
Private Sub cmdZeileLesen_Click() Liest nur erste Zeile in TextBox.
Dim AnzahlZeichen As Long
Dim ZeilenPuffer As String
Dim Länge As Long
ZeilenPuffer = Space(1024)
Länge = Len(ZeilenPuffer) - 1
Mid(ZeilenPuffer, 1, 1) = Chr(Länge And &HFF)
Mid(ZeilenPuffer, 2, 1) = Chr(Länge \ 100)
AnzahlZeichen = SendMessageString(txtTextfeld.hwnd, EM_GETLINE, 0, ZeilenPuffer)
MsgBox Prompt:=Left(ZeilenPuffer, AnzahlZeichen)
End Sub
Private Sub Form_Load()
lstSuche.AddItem Item:="Frankfurt"
lstSuche.AddItem Item:="Köln"
lstSuche.AddItem Item:="Düsseldorf"
lstSuche.AddItem Item:="Erfurt"
Dim n As Long
For n = 0 To Screen.FontCount - 1
lstSuche.AddItem Item:=Screen.Fonts(n)
Next
End Sub

Mehr Tipps: Rotierender Text aus TextBox drucken

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt