|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
你这个也能破解的,userform2 的代码如下:
Option Explicit
Private Sub cmdOk_Click()
Unload Me
End Sub
Private Sub lblMyEmailC_Click()
ShellExecute 0, "Open", "mailto:ldhyob@163.com", "", "", SW_SHOWNORMAL
End Sub
Private Sub lblMyEmailC_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.lblMyHomeC.ForeColor = &H80000008
Me.lblMyEmailC.ForeColor = &HFF0000
End Sub
Private Sub lblMyHomeC_Click()
ShellExecute 0, "Open", "http://ldhyob.top263.net", "", "", SW_SHOWNORMAL
End Sub
Private Sub lblMyHomeC_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.lblMyHomeC.ForeColor = &HFF0000
Me.lblMyEmailC.ForeColor = &H80000008
End Sub
Private Sub UserForm_Initialize()
Me.Caption = "关于 " & Me.lblApp.Caption
Beep
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.lblMyHomeC.ForeColor = &H80000008
Me.lblMyEmailC.ForeColor = &H80000008
End Sub |
|