1. Verwenden Sie die API, um den Titel des Fensters abzurufen? Der Ruderstrafenkalender, insbesondere der Manlu-Code:
OptionExplicit
PrivateDeclareFunction nGetWindowTextLibbus—
er32"Alias"GetWindowTextA"(ByValhwndAs
Long, ByVallpStringAsString, ByValchAs
Ｌｏｎ）ＡＬｏｇ
＇Beschreibung der API-Funktion „GetWindowText“ im Abschnitt „Formulardeklaration“ hinzufügen
'Die Funktion lädt die abzurufende Formularerfassung in lpstring
PrivateSubCommand1_Click()
DimreturncodeAsLong
DimcaptextAsString
DimcapplenAsLong
captext=String$(100,0)
caplen=99
returncode=GetWindowText(ByValme.hwnd,
ByValcaptex, ByValcaplen)
Rückgabecode drucken
Printcaptext
Printcaplen
EndSub
2. Wie erhalte ich die Bildschirmkoordinaten der Maus im aktuellen Fenster (Clientbereich)? Erstellen Sie ein neues Projektformular form1 und fügen Sie die Steuertextfelder Text1 und Text2 hinzu?橹悺淙怄Han
OptionExplicit
PrivateDeclareFunction GetCursorPosLibuser32"
(lpPointAsPOINTAPI)AsLong
PrivateTypePOINTAPI
XAsLongYAsLong
EndType
DimptAsPOINTAPI
DimreturncodeAsLong
PrivateSubForm_Load()
Text 1. Text=""
Text2. Text=""
MaxButton＝False
MinButton=False
Formular1. WindowState=2
EndSub
PrivateSubForm_Mouse Move(ButtonAsInteger,
ShiftAsInteger, XAsSingle, YAsSingle)
'Beachten Sie, dass die pt-Struktur als Referenz übergeben wird
returncode=GetCursorPos(pt)
Text 1. Text=pt. Ｘ
Text2. Text=pt. Y
EndSub
3. Zeichnen Sie die Windows-Nutzungszeit auf
Erstellen Sie ein neues Projektfenster form1 und geben Sie den Code ein:
PrivateSubForm_Load()
Formular1. sichtbar=falsch
Openapp. path+"memo.txt"ForAppendAs#1
Print#1,"Windows starten:"&CStr(Jetzt)
Schließen#1
EndSub
PrivateSubForm_Unload(CancelAsInteger)
Openapp. path+"memo.txt"ForAppendAs#1
Print#1, „Fenster schließen:“&CStr(Jetzt)
Schließen#1
Ende
EndSub
Abschließend fügen Sie das Programm zur Startgruppe hinzu. (->