Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Problem mit API und Maus
Autor: Martin01
Datum: 09.05.03 00:26
'------------------------------------------------------------------------------ 'Form1.frm 'mit ' Command1 ' Command2 '------------------------------------------------------------------------------ Option Explicit Private Sub Form_Unload(Cancel As Integer) 'Wichtig wenn im Programm die MouseCursorHide ist MouseCursorShow End Sub Private Sub Command1_Click() 'Kick kommt an wenn: ' .Enabled = True MouseCursorHide End Sub Private Sub Command2_Click() 'Kick kommt an wenn: ' .Enabled = True MouseCursorShow End Sub '------------------------------------------------------------------------------ '------------------------------------------------------------------------------ 'Modul1.bas '------------------------------------------------------------------------------ Option Explicit Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long 'Wichtig: 'Wenn auch ein anderer den Mauscursor nur mit ShowCursor False verstecken 'kann der Anwender den Mauscursor erst nach Neustart wieder sehen. 'ShowCursor setzt auch eine Zähler Public Sub MouseCursorHide() 'Mauscursor verstecken While ShowCursor(False) >= 0 Wend End Sub Public Sub MouseCursorShow() 'Mauscursor anzeigen While ShowCursor(True) < 0 Wend End Sub '------------------------------------------------------------------------------

Problem mit API und Maus	444	Fex	08.05.03 20:50
Re: Problem mit API und Maus	268	Marcus W	08.05.03 22:42
Re: Problem mit API und Maus	245	Fex	08.05.03 23:00
Re: Problem mit API und Maus	52	Martin01	09.05.03 00:26

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen