1. ใช้ API เพื่อรับชื่อหน้าต่างหรือไม่ ปฏิทินการลงโทษไม้พาย โดยเฉพาะรหัส manlu:
ตัวเลือกที่ชัดเจน
ฟังก์ชั่นการประกาศส่วนตัว nGetWindowTextLibbus—
er32 "นามแฝง" GetWindowTextA "(ByValhwndAs
ยาว ByVallpStringAsString, ByValchAs
Lon)ALog
'เพิ่มคำอธิบายของฟังก์ชัน API "GetWindowText" ในส่วนการประกาศแบบฟอร์ม
'ฟังก์ชันจะโหลดการจับแบบฟอร์มที่จะได้รับลงใน lpstring'
PrivateSubCommand1_คลิก()
DimreturncodeAsLong
DimcaptextAsString
ดิมแอปเปิลนแอสลอง
ข้อความบรรยาย=สตริง$(100,0)
แคปเลน=99
returncode=GetWindowText(ByValme.hwnd,
บายวัลแคปเท็กซ์, บายวัลแคปเลน)
พิมพ์รหัสส่งคืน
พิมพ์ข้อความแคป
พิมพ์แคปเลน
สิ้นสุดย่อย
2. จะรับพิกัดหน้าจอของเมาส์ในหน้าต่างปัจจุบัน (พื้นที่ไคลเอนต์) ได้อย่างไร สร้างแบบฟอร์มโครงการใหม่ form1 และเพิ่มกล่องข้อความควบคุม Text1 และ Text2橹悺淙怄ฮั่น
ตัวเลือกที่ชัดเจน
ฟังก์ชั่นการประกาศส่วนตัว รับเคอร์เซอร์ PosLibuser32"
(lpPointAsPOINTAPI)ตราบเท่าที่
ประเภทส่วนตัวPOINTAPI
XAsLongYAsLong
ประเภทสิ้นสุด
ดิมท์แอสพอยตาปิ
DimreturncodeAsLong
ส่วนตัวSubForm_Load()
ข้อความ 1. ข้อความ = ""
ข้อความ2. ข้อความ = ""
MaxButton=เท็จ
MinButton=เท็จ
แบบฟอร์ม1. สถานะหน้าต่าง=2
สิ้นสุดย่อย
PrivateSubForm_Mouse ย้าย (ปุ่ม AsInteger,
ShiftAsInteger, XAsSingle, YAsSingle)
'โปรดทราบว่าโครงสร้าง pt ถูกส่งผ่านโดยการอ้างอิง
returncode=GetCursorPos(pt)
ข้อความ 1. ข้อความ=จุด X
ข้อความ2. ข้อความ=จุด ย
สิ้นสุดย่อย
3. บันทึกเวลาการใช้งาน Windows
สร้างหน้าต่างโครงการใหม่ form1 และป้อนรหัส:
ส่วนตัวSubForm_Load()
แบบฟอร์ม1. มองเห็น=เท็จ
เปิดแอป เส้นทาง + "memo.txt"ForAppendAs#1
พิมพ์#1,"เริ่มหน้าต่าง:"&CStr(ตอนนี้)
ปิด#1
สิ้นสุดย่อย
PrivateSubForm_Unload (ยกเลิก AsInteger)
เปิดแอป เส้นทาง + "memo.txt"ForAppendAs#1
พิมพ์#1,"ปิดหน้าต่าง:"&CStr(ตอนนี้)
ปิด#1
จบ
สิ้นสุดย่อย
สุดท้ายเพิ่มโปรแกรมในกลุ่มเริ่มต้น -