VB-Homepage Tipp 005
Mausspur definieren (16Bit)
General / Declarations
Declare Function Escape Lib "GDI" (ByVal hDC As Integer, ByVal nEscape As Integer, ByVal nCount As Integer, lpInData As Any, lpOutData As Any) As Integer
Const MouseTrails = 39
Const SizeOfWord = 2

Form1/Load oder Command1/Click
result% = Escape(Form1.hDC, MouseTrails, SizeOfWord, 7, 0&)

Mausspur wieder aufheben
Form1/Unload oder Command2/Click
result% = Escape(Form1.hDC, MouseTrails, SizeOfWord, 0, 0&)
Tipp-Download
Quelle :
Zurück zur Übersichtsseite