Form1.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports System.Reflection
'源码下载 www.51aspx.com'
Public Class Form1
    '导入光标的API声明
    Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" _
            (ByVal lpName As String) As IntPtr
    '播放mid音乐的API声明
    Private Declare Function mciSendStringA Lib "winmm.dll" _
            (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
            ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

    Private mouse_offset As Point

    Private bExit As Boolean


    '将毫秒转换为：天时分秒
    Private Function DateFormat(ByVal ms As Long) As String

        Dim ss As Integer = 1000
        Dim mi As Integer = ss * 60
        Dim hh As Integer = mi * 60
        Dim dd As Integer = hh * 24

        Dim lday As Long = ms \ dd
        Dim lhour As Long = (ms - lday * dd) \ hh
        Dim lminute As Long = (ms - lday * dd - lhour * hh) \ mi
        Dim lsecond As Long = (ms - lday * dd - lhour * hh - lminute * mi) \ ss
        Dim lmilliSecond As Long = ms - lday * dd - lhour * hh - lminute * mi - lsecond * ss

        Dim strDay As String = IIf(lday < 10, "0" + lday.ToString(), "" + lday.ToString())
        Dim strHour As String = IIf(lhour < 10, "0" + lhour.ToString(), "" + lhour.ToString())
        Dim strMinute As String = IIf(lminute < 10, "0" + lminute.ToString(), "" + lminute.ToString())
        Dim strSecond As String = IIf(lsecond < 10, "0" + lsecond.ToString(), "" + lsecond.ToString())
        Dim strMilliSecond As String = IIf(lmilliSecond < 10, "0" + lmilliSecond.ToString(), "" + lmilliSecond.ToString())
        strMilliSecond = IIf(lmilliSecond < 100, "0" + strMilliSecond, "" + strMilliSecond)

        Return strDay + "天" + strHour + "小时" + strMinute + "分钟" + strSecond + "秒" '+ strMilliSecond

    End Function

    '供Form2调用，显示收到多少礼物
    Public Sub ShowPopInfo()
        Static iCount As Integer

        iCount = iCount + 1

        NotifyIcon1.BalloonTipText = "收到" + iCount.ToString + "份礼物"
        NotifyIcon1.BalloonTipTitle = "提示信息"
        NotifyIcon1.ShowBalloonTip(2000)

    End Sub

    '下雪特效
    Private Sub DoSnow()


        Dim workArea As Rectangle = Screen.PrimaryScreen.WorkingArea
        Dim screenWidth As Integer = workArea.Width
        Dim interval As Integer = 50