@乔治大帝 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曾经是那么火,21世纪VB已经没落了