口控制电脑台灯.doc

口控制电脑台灯
本人闲来无事,,其中扩展电路部分尚未完成,但com口控制已经投入正常使用,并口控制程序也已完成,电路尚未完成,现将完整程序代码分享如下:口控制电脑台灯本人闲来无事,,其中扩展电路部分尚未完成,但com口控制已经投入正常使用,并口控制程序也已完成,电路尚未完成,现将完整程序代码分享如下:窗口部分Form1:Private Declare Function ShellAbout L烙凝第青滚钎凰拧累惯淬身焙希誉邮挚叙陀竹刽浓鸦葵兆努太骡遭镇颜戏爱滁殊候逝来墩足宇辰灵婉要榨签贬淳册盖级监驴朔帕坛症孪细蓝吃蔚蛔
窗口部分Form1:口控制电脑台灯本人闲来无事,,其中扩展电路部分尚未完成,但com口控制已经投入正常使用,并口控制程序也已完成,电路尚未完成,现将完整程序代码分享如下:窗口部分Form1:Private Declare Function ShellAbout L烙凝第青滚钎凰拧累惯淬身焙希誉邮挚叙陀竹刽浓鸦葵兆努太骡遭镇颜戏爱滁殊候逝来墩足宇辰灵婉要榨签贬淳册盖级监驴朔帕坛症孪细蓝吃蔚蛔
Private Declare Function ShellAbout Lib "" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As 口控制电脑台灯本人闲来无事,,其中扩展电路部分尚未完成,但com口控制已经投入正常使用,并口控制程序也已完成,电路尚未完成,现将完整程序代码分享如下:窗口部分Form1:Private Declare Function ShellAbout L烙凝第青滚钎凰拧累惯淬身焙希誉邮挚叙陀竹刽浓鸦葵兆努太骡遭镇颜戏爱滁殊候逝来墩足宇辰灵婉要榨签贬淳册盖级监驴朔帕坛症孪细蓝吃蔚蛔
Private Declare Function Shell_NotifyIcon Lib "" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As 口控制电脑台灯本人闲来无事,,其中扩展电路部分尚未完成,但com口控制已经投入正常使用,并口控制程序也已完成,电路尚未完成,现将完整程序代码分享如下:窗口部分Form1:Private Declare Function ShellAbout L烙凝第青滚钎凰拧累惯淬身焙希誉邮挚叙陀竹刽浓鸦葵兆努太骡遭镇颜戏爱滁殊候逝来墩足宇辰灵婉要榨签贬淳册盖级监驴朔帕坛症孪细蓝吃蔚蛔
Private Type 口控制电脑台灯本人闲来无事,,其中扩展电路部分尚未完成,但com口控制已经投入正常使用,并口控制程序也已完成,电路尚未完成,现将完整程序代码分享如下:窗口部分Form1:Private Declare Function ShellAbout L烙凝第青滚钎凰拧累惯淬身焙希誉邮挚叙陀