一个没有读懂的代码?
在网上流行的系统托盘程序,按说明试了一下,没有成功,代码中有这样一句代码,是调用模块中的函数来向系统栏中加入图标的作用,Call Icon_Add(Me.hwnd, Me.Caption, IcCardMain.Icon, 0)
其中IcCardMain.Icon是取得图标的句柄,可这个IcCardMain是什么对象呢,例程中仅创建了一个FORM1和为它指定了一个标题栏图标,整个程序除了上述调用,其它再没有涉及到它,请教明白的同仁解答一下.
其涉及到的子过程如下:
Private Sub Form1_Resize()
'判断窗口是否最小化状态,并且是按最小化按纽后第一次发生Resize事件
If IsIconic(Me.hwnd) <> 0 And MinFlag = False Then
MinFlag = True
IcCardMain.Visible = False '隐藏窗口
'将窗口图标加入通知栏
Call Icon_Add(Me.hwnd, Me.Caption, IcCardMain.Icon, 0) //就是这句没看懂
End If
End Sub
源代码文本见附件
系统托盘程序源码.rar
(2.33 KB)
[[it] 本帖最后由 zzhh612 于 2008-4-12 17:18 编辑 [/it]]