@乔治大帝 反正我还是玩VB和cmd

@vb大佬 我玩Java和cmd

@乔治大帝 Dim POS As POINTAPI '定义这个变量是取得鼠标坐标 Dim i As Long '公有变量 Public Value As Long Public Event Click() Private Sub LA_Change() SH_check_Resize End Sub Private Sub ltit_Change() UserControl_Resize End Sub Private Sub ltit_Click() UserControl_Click RaiseEvent Click End Sub Private Sub SH_check_Resize() LA.Move (SH_check.ScaleWidth - LA.Width) / 2, (SH_check.ScaleHeight - LA.Height) / 2 End Sub Private Sub TMIN_Timer() '移动时 RGB(23,116,122) '初始时 RGB(9,28,35) '相差值 RGB(14，88，87) i = i + 1 SBK.BackColor = RGB(9 + i, 28 + 6 * i, 35 + 6 * i) If i >= 14 Then TMIN.Enabled = False i = 0 SBK.BackColor = &H7A7417 TMOUT.Enabled = True End If End Sub Private Sub TMOUT_Timer() Dim R As RECT, P As POINTAPI, L As Long Dim Rtn As Long L = GetWindowRect(UserControl.hWnd, R) L = GetCursorPos(P) GetCursorPos POS If P.X < R.Left Or P.X > R.Right Or P.Y < R.Top Or P.Y > R.Bottom Then '移出界面 TMIN.Enabled = False SBK.BackColor = &H231C09 i = 0 Else If IS_AM = True Then If SBK.BackColor <> &H7A7417 Then TMIN.Enabled = True Else SBK.BackColor = &H7A7417 End If End If REFRESH_ME End Sub Private Sub UserControl_Click() If Value = 0 Then Value = 1 Else Value = 0 RaiseEvent Click End Sub Private Sub UserControl_Initialize() i = 0 Value = 0 TMOUT.Enabled = True TMIN.Enabled = False On Error Resume Next SBK.BackColor = &H231C09 ltit.FontName = "微软雅黑" End Sub Private Sub UserControl_Resize() SBK.Move 0, 0, UserControl.ScaleWidth, UserControl.ScaleHeight SH_check.Move 0, 0, 33, UserControl.ScaleHeight ltit.Move (UserControl.ScaleWidth - ltit.Width + SH_check.Width) / 2, (UserControl.ScaleHeight - ltit.Height) / 2 End Sub Public Sub SETTXT(Tit As String) ltit.Caption = Tit End Sub Public Sub REFRESH_ME() If Value = 1 Then SH_check.BackColor = &H28D985 LA.Caption = "ON" Else SH_check.BackColor = &H1F1FE2 LA.Caption = "OFF" End If End Sub

@乔治大帝 刚编的vb，大佬过目