VB.NET-Quellcode
- Public Class Form1
- Private Sub Form1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
- Select Case e.KeyCode
- Case Keys.F1
- MsgBox("F1")
- End Select
- End Sub
- Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
- If Not My.Computer.FileSystem.FileExists(Application.StartupPath & "/Screen.swf") Then
- My.Computer.FileSystem.WriteAllBytes(Application.StartupPath & "/Screen.swf", My.Resources.Matrix_screen_saver, False)
- Else
- ScreenSaver.Movie = Application.StartupPath & "\Screen.swf"
- ScreenSaver.Play()
- Windows.Forms.Cursor.Hide()
- Me.Activate()
- End If
- End Sub
- End Class
Ich arbeite mit einen swf object das über die gesamte form geht
und wenn ich dann F1 presse macht es nichts warum?