引用 | 編輯
n1023520
2010-12-04 15:02 |
2樓
▲ ▼ |
第2、3題我已經做出來了,但第1題程式有些問題,解不出來
2. Private Sub Form1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter Me.Cursor = Cursors.Default Me.BackColor = Color.White End Sub Private Sub Form1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave Me.Cursor = Cursors.Default Me.BackColor = Color.Gray End Sub Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove Dim procss As System.Diagnostics.Process = _ New System.Diagnostics.Process() End Sub 3. Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown Dim procss As System.Diagnostics.Process = _ New System.Diagnostics.Process() If e.KeyCode = Keys.B And e.Control = True Then Me.Cursor = Cursors.Default Me.BackColor = Color.White ElseIf e.KeyCode = Keys.G And e.Control = True Then Me.Cursor = Cursors.Default Me.BackColor = Color.Gray End If End Sub x0 |