|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
珍贵的资金可以用于其他业务的启动,诸如市场、广告或调研和开发等。
将窗口最小化为时钟旁的小图标
创建主窗口"w_main",口界说以下"LocalExternalFuctions":
functionlongLoadLibrary(refstringstring)LIBRARY"KERNEL32"AliasForLoadLibraryA
functionlongFreeLibrary(longlong)LIBRARY"KERNEL32"
functionbooleanShell_NotifyIcon(ulonglong,refs_strstr)LIBRARY"SHELL32"AliasFOR"Shell_NotifyIconA"
functionlongLoadIcon(longlong,longlong)LIBRARY"USER32"AliasForLoadIconA
界说布局型变量:
s_str:
size
Unsignedlong
Hwnd
Long
Id
Unsignedlong
Flags
Unsignedlong
Callbackmessage
Unsignedlong
Icon
Long
tips[64]
Character
界说实例变量:
private:
s_stristr_icon
窗口最小化按钮Click事务写进以下Script:
stringls_resource
Longll_handle
//下三句为装进图标资本,notepad.exe即为写字板,exe实行时显现的图标内定为1
ls_resource="notepad.exe"
ll_handle=loadlibrary(ls_resource)
istr_icon.icon=loadicon(ll_handle,1)
//窗口回调事务号,pbm_custom01即为1024,02为1025,依此类推
istr_icon.callbackmessage=1024
istr_icon.tips="使用程序"
istr_icon.hwnd=handle(parent)
istr_icon.size=88
istr_icon.id=1
//标识值,即为显现tips4,显现icon2,激活窗口对应事务号
istr_icon.flags=7
//显现icon关头函数,0为显现,1为修正,2为删除
shell_notifyicon(0,istr_icon)
parent.hide()
//开释资本
freelibrary(ll_handle)
为窗口创立用户界说事务ue_event,eventid为pbm_custom01,为其写script:
m_popuplm_popup
Integerli_X,li_Y
choosecaselparam
Case513//LButtonUp
//删除图标
Shell_NotifyIcon(2,istr_icon)
//显现窗口
this.show()
CASE517//RButtonUp
li_X=This.X
li_Y=This.Y
//挪动到屏幕外以避免show时看到,你可封闭此句看甚么效果
This.Move(-This.Width-10,-This.Height-10)
//加这句才干看到菜单条(菜单条属于此windows)
This.Show()
lm_popup=CREATEm_popup
lm_popup.m_item.PopMenu(PointerX(),PointerY())
//恢复设置
This.Hide()
This.Move(li_X,li_Y)
DESTROYlm_popup
endchoose
个中,"m_popup"为最小化成TRAYICON图标时点击右键时弹出的菜单。
对于IT经理来说,令他们喜欢的MySQL的简单性还有另一方面。MySQL可以运行的更快速。某些人或许会说MySQL缺少了一些人们想要的功能。 |
|