- Wpisz kod do procedur MouseMove, MouseDown i KeyDown
który spowoduje zakończenie programu/wygaszacza.
Ponieważ Visual Basic może wywołać procedurę MouseMove
kiedy forma jest ładowana pierwszy raz, musisz napisać kod, który będzie ignorował
to pierwsze wywołanie. Oto on:
Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
Static count As Integer
If count > 2 Then
End
Else
count = count + 1
End If
End Sub
Zapobieganie kilkakrotnemu uruchamianiu programu
----------------------------
Ustaw procedurę startową projektu na Sub Main() i dodaj tam następujący kod:
Sub Main ()
If App.PrevInstance Then ' Jeżeli jedna wersja już działa, zakończ program
End
Else
Form1.Show 1 ' Pokaż wygaszacz.
End If
End Sub
Odpalanie wygaszacza
--------------------------
Windows automatycznie to uczyni po określonym przez Ciebie czasie.
Wygaszacze są wybierane i konfigurowane w Panelu sterowania.
Przycisk "Ustawienia" powoduje wywołanie programu wygaszacza z opcją /c.
Kiedy program jest wywołany z tą opcją możesz wtedy wywołać formę odpowiedzialną za
ewentualną konfigurację wygaszacza. Wykrycie parametru /c można wykonać w następujący
sposób:
Sub Form_Load ()
If Command$ = "/c" Then
frmConfig.Show ' display configuration form
Unload Me' bypass regular form
End If
End Sub
Kiedy windows uruchamia wygaszacz, wywołuje go z opcją /s
Możliwe ulepszenia
---------------------
Możesz dodać kod, który spowoduje, że Twój wygaszacz będzie zawsze na wierzchu.
Aby tego dokonać przeszukaj dział tips serwisu vb4all :-)
Komentarze
Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie. Tylko zarejestrowani użytkownicy mogą pisać komentarze.
