Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Label Kollision
Autor: manyki
Datum: 12.05.02 02:10
Hm, mal sehen, ob ich verstehe: Du hast ein Label, auf dem (sagen wir mal in der Mitte) ein Kreuz drauf ist. Wenn die Maus innerhalb des Labels, aber auch irgendwo über dem Kreuz ist, erst dann soll es möglich sein mit Leertaste zu schiessen. Richtig? Leg eine Variable im Allgemeinteil der Form an: Dim Zustand As Boolean Dann würd’ ich erstmal die Mauskoordinaten abfragen, also wo die Maus gerade im Label ist: Private Sub Label1_MouseMove(Button As Integer, _ Shift As Integer, X As Single, Y As Single) Zustand = False ‚zunächst immer False, also gesperrt Select Case X Case 100 To 200 'Nehme einfach mal an, dass Dein Kreuz 100 Twips breit ist Select Case Y Case 100 To 200 'Und 100 Twips hoch ist Zustand = True 'Taste wird freigegeben End Select End Select End Sub Und im KeyPress der Form (ein Label hat leider kein KeyPress-Ereignis): Private Sub Form_KeyPress(KeyAscii As Integer, Shift As Integer) Select Case KeyAscii Case 32 If Zustand = True Then WasBeiSpacePassiert KeyAscii ElseIf Zustand = False Then KeyAscii = 0 End If End Sub KeyPreview der Form auf True setzen nicht vergessen Und dann eine Sub, in der Du Dein Programm fortsetzt, also was überhaupt bei Betätigung der Spacetaste gemacht werden soll. Sub WasBeiSpacePassiert(KeyAscii) 'Irgendwelche Anweisungen End Sub Sollte klappen Gruß Manyki

Label Kollision	45	Lord Nekron	11.05.02 15:51
Re: Label Kollision	35	manyki	11.05.02 18:43
Re: Label Kollision	26	Lord Nekron	11.05.02 20:59
Re: Label Kollision	27	manyki	12.05.02 02:10

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