如何在后台运行程序

Question

我想写一个程序，功能是：每个月的最后一天自动做一些事情，要求一开机就启动这个程序，并且最小化在右下角，变成一个托盘图标。

Answer 1

做个托盘,放在windows的启动里面,程序启动就判断是否是最后一天,最后一天不好判断的话就判断每月第一天做上个月的事情,然后就搞定了,难度没有.不过这种东西有必要一直留在进程里吗?一般都是不符合日期就over的,符合日期了执行完你的东西也over,你一直放进程里面是巨大的浪费

Answer 2

不用做托盘,你在form里面加下面的代码都可以实现你的功能了
Private Sub Form_Load()
    Me.Hide
    If Format(Date, "dd") = "01" Then
        MsgBox "符合"
        ...
        ...'你想要执行的东西
    Else
        End
    End If
End Sub
把这个做成exe加到windows的启动下面,都可以完成你所有要求了,做托盘干吗

Answer 3

Private Const NIM_ADD = &H0
Private Const NIM_DELETE = &H2
Private Const WM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_RBUTTONUP = &H205
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Type NOTIFYICONDATA
        cbSize As Long
        hWnd As Long
        uID As Long
        uFlags As Long
        uCallbackMessage As Long
        hIcon As Long
        szTip As String * 10
End Type
Private Declare Function Shell_NotifyIcon Lib "shell32" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Boolean
Dim nid As NOTIFYICONDATAPrivate Sub Form_Load()
Dim sTip As String
Dim nid As NOTIFYICONDATA
nid.szTip = "托盘程序"
nid.cbSize = LenB(nid)
nid.hWnd = Me.hWnd
nid.uID = 0
nid.hIcon = Me.Icon.Handle
nid.uCallbackMessage = WM_MOUSEMOVE
nid.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
Shell_NotifyIcon NIM_ADD, nid
Me.hide
End Sub以上这样写就可以实现一个托盘程序~~至于到了什么时间做什么事你可以用TIMER控件判断和实现~不过像楼上所说的~~有必要这样做吗?~~

Answer 4

用托盘的一般都用popmenu菜单完成单击右键出现菜单