📄 frmextra.frm
字号:
Private Sub lblshowtaskbar_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblshowtaskbar.BackColor = &HFFC0C0
End Sub
Private Sub lblshowtaskbar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblshowtaskbar.BackColor = &H800000
lblhidedesktop.BackColor = &H8
lblshowdesktop.BackColor = &H8
lblhidestart.BackColor = &H8
lblshowstart.BackColor = &H8
lblhidetaskbar.BackColor = &H8
lblopencd.BackColor = &H8
lblclosecd.BackColor = &H8
lblstartspeaker.BackColor = &H8
lblstopspeaker.BackColor = &H8
lblmonitoron.BackColor = &H8
lblmonitoroff.BackColor = &H8
lblctrlon.BackColor = &H8
lblctrloff.BackColor = &H8
lblscrollon.BackColor = &H8
lblscrolloff.BackColor = &H8
lblcapson.BackColor = &H8
lblcapsoff.BackColor = &H8
lblnumon.BackColor = &H8
lblnumoff.BackColor = &H8
End Sub
Private Sub lblopencd_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblopencd.BackColor = &HFFC0C0
End Sub
Private Sub lblopencd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblopencd.BackColor = &H800000
lblhidedesktop.BackColor = &H8
lblshowdesktop.BackColor = &H8
lblhidestart.BackColor = &H8
lblshowstart.BackColor = &H8
lblhidetaskbar.BackColor = &H8
lblshowtaskbar.BackColor = &H8
lblclosecd.BackColor = &H8
lblstartspeaker.BackColor = &H8
lblstopspeaker.BackColor = &H8
lblmonitoron.BackColor = &H8
lblmonitoroff.BackColor = &H8
lblctrlon.BackColor = &H8
lblctrloff.BackColor = &H8
lblscrollon.BackColor = &H8
lblscrolloff.BackColor = &H8
lblcapson.BackColor = &H8
lblcapsoff.BackColor = &H8
lblnumon.BackColor = &H8
lblnumoff.BackColor = &H8
End Sub
Private Sub lblclosecd_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblclosecd.BackColor = &HFFC0C0
End Sub
Private Sub lblclosecd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblclosecd.BackColor = &H800000
lblhidedesktop.BackColor = &H8
lblshowdesktop.BackColor = &H8
lblhidestart.BackColor = &H8
lblshowstart.BackColor = &H8
lblhidetaskbar.BackColor = &H8
lblshowtaskbar.BackColor = &H8
lblopencd.BackColor = &H8
lblstartspeaker.BackColor = &H8
lblstopspeaker.BackColor = &H8
lblmonitoron.BackColor = &H8
lblmonitoroff.BackColor = &H8
lblctrlon.BackColor = &H8
lblctrloff.BackColor = &H8
lblscrollon.BackColor = &H8
lblscrolloff.BackColor = &H8
lblcapson.BackColor = &H8
lblcapsoff.BackColor = &H8
lblnumon.BackColor = &H8
lblnumoff.BackColor = &H8
End Sub
Private Sub lblstartspeaker_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblstartspeaker.BackColor = &HFFC0C0
End Sub
Private Sub lblstartspeaker_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblstartspeaker.BackColor = &H800000
lblhidedesktop.BackColor = &H8
lblshowdesktop.BackColor = &H8
lblhidestart.BackColor = &H8
lblshowstart.BackColor = &H8
lblhidetaskbar.BackColor = &H8
lblshowtaskbar.BackColor = &H8
lblopencd.BackColor = &H8
lblclosecd.BackColor = &H8
lblstopspeaker.BackColor = &H8
lblmonitoron.BackColor = &H8
lblmonitoroff.BackColor = &H8
lblctrlon.BackColor = &H8
lblctrloff.BackColor = &H8
lblscrollon.BackColor = &H8
lblscrolloff.BackColor = &H8
lblcapson.BackColor = &H8
lblcapsoff.BackColor = &H8
lblnumon.BackColor = &H8
lblnumoff.BackColor = &H8
End Sub
Private Sub lblstopspeaker_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblstopspeaker.BackColor = &HFFC0C0
End Sub
Private Sub lblstopspeaker_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblstopspeaker.BackColor = &H800000
lblhidedesktop.BackColor = &H8
lblshowdesktop.BackColor = &H8
lblhidestart.BackColor = &H8
lblshowstart.BackColor = &H8
lblhidetaskbar.BackColor = &H8
lblshowtaskbar.BackColor = &H8
lblopencd.BackColor = &H8
lblclosecd.BackColor = &H8
lblstartspeaker.BackColor = &H8
lblmonitoron.BackColor = &H8
lblmonitoroff.BackColor = &H8
lblctrlon.BackColor = &H8
lblctrloff.BackColor = &H8
lblscrollon.BackColor = &H8
lblscrolloff.BackColor = &H8
lblcapson.BackColor = &H8
lblcapsoff.BackColor = &H8
lblnumon.BackColor = &H8
lblnumoff.BackColor = &H8
End Sub
Private Sub lblmonitoron_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblmonitoron.BackColor = &HFFC0C0
End Sub
Private Sub lblmonitoron_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblmonitoron.BackColor = &H800000
lblhidedesktop.BackColor = &H8
lblshowdesktop.BackColor = &H8
lblhidestart.BackColor = &H8
lblshowstart.BackColor = &H8
lblhidetaskbar.BackColor = &H8
lblshowtaskbar.BackColor = &H8
lblopencd.BackColor = &H8
lblclosecd.BackColor = &H8
lblstartspeaker.BackColor = &H8
lblstopspeaker.BackColor = &H8
lblmonitoroff.BackColor = &H8
lblctrlon.BackColor = &H8
lblctrloff.BackColor = &H8
lblscrollon.BackColor = &H8
lblscrolloff.BackColor = &H8
lblcapson.BackColor = &H8
lblcapsoff.BackColor = &H8
lblnumon.BackColor = &H8
lblnumoff.BackColor = &H8
End Sub
Private Sub lblmonitoroff_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblmonitoroff.BackColor = &HFFC0C0
End Sub
Private Sub lblmonitoroff_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblmonitoroff.BackColor = &H800000
lblhidedesktop.BackColor = &H8
lblshowdesktop.BackColor = &H8
lblhidestart.BackColor = &H8
lblshowstart.BackColor = &H8
lblhidetaskbar.BackColor = &H8
lblshowtaskbar.BackColor = &H8
lblopencd.BackColor = &H8
lblclosecd.BackColor = &H8
lblstartspeaker.BackColor = &H8
lblstopspeaker.BackColor = &H8
lblmonitoron.BackColor = &H8
lblctrlon.BackColor = &H8
lblctrloff.BackColor = &H8
lblscrollon.BackColor = &H8
lblscrolloff.BackColor = &H8
lblcapson.BackColor = &H8
lblcapsoff.BackColor = &H8
lblnumon.BackColor = &H8
lblnumoff.BackColor = &H8
End Sub
Private Sub lblctrlon_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblctrlon.BackColor = &HFFC0C0
End Sub
Private Sub lblctrlon_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblctrlon.BackColor = &H800000
lblhidedesktop.BackColor = &H8
lblshowdesktop.BackColor = &H8
lblhidestart.BackColor = &H8
lblshowstart.BackColor = &H8
lblhidetaskbar.BackColor = &H8
lblshowtaskbar.BackColor = &H8
lblopencd.BackColor = &H8
lblclosecd.BackColor = &H8
lblstartspeaker.BackColor = &H8
lblstopspeaker.BackColor = &H8
lblmonitoron.BackColor = &H8
lblmonitoroff.BackColor = &H8
lblctrloff.BackColor = &H8
lblscrollon.BackColor = &H8
lblscrolloff.BackColor = &H8
lblcapson.BackColor = &H8
lblcapsoff.BackColor = &H8
lblnumon.BackColor = &H8
lblnumoff.BackColor = &H8
End Sub
Private Sub lblctrloff_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblctrloff.BackColor = &HFFC0C0
End Sub
Private Sub lblctrloff_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblctrloff.BackColor = &H800000
lblhidedesktop.BackColor = &H8
lblshowdesktop.BackColor = &H8
lblhidestart.BackColor = &H8
lblshowstart.BackColor = &H8
lblhidetaskbar.BackColor = &H8
lblshowtaskbar.BackColor = &H8
lblopencd.BackColor = &H8
lblclosecd.BackColor = &H8
lblstartspeaker.BackColor = &H8
lblstopspeaker.BackColor = &H8
lblmonitoron.BackColor = &H8
lblmonitoroff.BackColor = &H8
lblctrlon.BackColor = &H8
lblscrollon.BackColor = &H8
lblscrolloff.BackColor = &H8
lblcapson.BackColor = &H8
lblcapsoff.BackColor = &H8
lblnumon.BackColor = &H8
lblnumoff.BackColor = &H8
End Sub
Private Sub lblscrollon_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblscrollon.BackColor = &HFFC0C0
End Sub
Private Sub lblscrollon_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblscrollon.BackColor = &H800000
lblhidedesktop.BackColor = &H8
lblshowdesktop.BackColor = &H8
lblhidestart.BackColor = &H8
lblshowstart.BackColor = &H8
lblhidetaskbar.BackColor = &H8
lblshowtaskbar.BackColor = &H8
lblopencd.BackColor = &H8
lblclosecd.BackColor = &H8
lblstartspeaker.BackColor = &H8
lblstopspeaker.BackColor = &H8
lblmonitoron.BackColor = &H8
lblmonitoroff.BackColor = &H8
lblctrlon.BackColor = &H8
lblctrloff.BackColor = &H8
lblscrolloff.BackColor = &H8
lblcapson.BackColor = &H8
lblcapsoff.BackColor = &H8
lblnumon.BackColor = &H8
lblnumoff.BackColor = &H8
End Sub
Private Sub lblscrolloff_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblscrolloff.BackColor = &HFFC0C0
End Sub
Private Sub lblscrolloff_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblscrolloff.BackColor = &H800000
lblhidedesktop.BackColor = &H8
lblshowdesktop.BackColor = &H8
lblhidestart.BackColor = &H8
lblshowstart.BackColor = &H8
lblhidetaskbar.BackColor = &H8
lblshowtaskbar.BackColor = &H8
lblopencd.BackColor = &H8
lblclosecd.BackColor = &H8
lblstartspeaker.BackColor = &H8
lblstopspeaker.BackColor = &H8
lblmonitoron.BackColor = &H8
lblmonitoroff.BackColor = &H8
lblctrlon.BackColor = &H8
lblctrloff.BackColor = &H8
lblscrollon.BackColor = &H8
lblcapson.BackColor = &H8
lblcapsoff.BackColor = &H8
lblnumon.BackColor = &H8
lblnumoff.BackColor = &H8
End Sub
Private Sub lblcapson_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblcapson.BackColor = &HFFC0C0
End Sub
Private Sub lblcapson_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblcapson.BackColor = &H800000
lblhidedesktop.BackColor = &H8
lblshowdesktop.BackColor = &H8
lblhidestart.BackColor = &H8
lblshowstart.BackColor = &H8
lblhidetaskbar.BackColor = &H8
lblshowtaskbar.BackColor = &H8
lblopencd.BackColor = &H8
lblclosecd.BackColor = &H8
lblstartspeaker.BackColor = &H8
lblstopspeaker.BackColor = &H8
lblmonitoron.BackColor = &H8
lblmonitoroff.BackColor = &H8
lblctrlon.BackColor = &H8
lblctrloff.BackColor = &H8
lblscrollon.BackColor = &H8
lblscrolloff.BackColor = &H8
lblcapsoff.BackColor = &H8
lblnumon.BackColor = &H8
lblnumoff.BackColor = &H8
End Sub
Private Sub lblcapsoff_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblcapsoff.BackColor = &HFFC0C0
End Sub
Private Sub lblcapsoff_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblcapsoff.BackColor = &H800000
lblhidedesktop.BackColor = &H8
lblshowdesktop.BackColor = &H8
lblhidestart.BackColor = &H8
lblshowstart.BackColor = &H8
lblhidetaskbar.BackColor = &H8
lblshowtaskbar.BackColor = &H8
lblopencd.BackColor = &H8
lblclosecd.BackColor = &H8
lblstartspeaker.BackColor = &H8
lblstopspeaker.BackColor = &H8
lblmonitoron.BackColor = &H8
lblmonitoroff.BackColor = &H8
lblctrlon.BackColor = &H8
lblctrloff.BackColor = &H8
lblscrollon.BackColor = &H8
lblscrolloff.BackColor = &H8
lblcapson.BackColor = &H8
lblnumon.BackColor = &H8
lblnumoff.BackColor = &H8
End Sub
Private Sub lblnumon_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblnumon.BackColor = &HFFC0C0
End Sub
Private Sub lblnumon_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblnumon.BackColor = &H800000
lblhidedesktop.BackColor = &H8
lblshowdesktop.BackColor = &H8
lblhidestart.BackColor = &H8
lblshowstart.BackColor = &H8
lblhidetaskbar.BackColor = &H8
lblshowtaskbar.BackColor = &H8
lblopencd.BackColor = &H8
lblclosecd.BackColor = &H8
lblstartspeaker.BackColor = &H8
lblstopspeaker.BackColor = &H8
lblmonitoron.BackColor = &H8
lblmonitoroff.BackColor = &H8
lblctrlon.BackColor = &H8
lblctrloff.BackColor = &H8
lblscrollon.BackColor = &H8
lblscrolloff.BackColor = &H8
lblcapson.BackColor = &H8
lblcapsoff.BackColor = &H8
lblnumoff.BackColor = &H8
End Sub
Private Sub lblnumoff_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblnumoff.BackColor = &HFFC0C0
End Sub
Private Sub lblnumoff_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblnumoff.BackColor = &H800000
lblhidedesktop.BackColor = &H8
lblshowdesktop.BackColor = &H8
lblhidestart.BackColor = &H8
lblshowstart.BackColor = &H8
lblhidetaskbar.BackColor = &H8
lblshowtaskbar.BackColor = &H8
lblopencd.BackColor = &H8
lblclosecd.BackColor = &H8
lblstartspeaker.BackColor = &H8
lblstopspeaker.BackColor = &H8
lblmonitoron.BackColor = &H8
lblmonitoroff.BackColor = &H8
lblctrlon.BackColor = &H8
lblctrloff.BackColor = &H8
lblscrollon.BackColor = &H8
lblscrolloff.BackColor = &H8
lblcapson.BackColor = &H8
lblcapsoff.BackColor = &H8
lblnumon.BackColor = &H8
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -