建立无模式窗口
2006-02-27 21:13:20 来源:WEB开发网核心提示:'makeanewPRoject;twoforms'onform1acommandbutton'putthecodeintherightplaces'pressF5SubForm2_load()'intheform2_loadevent'besuretomakethefo
'makeanewPRoject;twoforms
'onform1acommandbutton
'putthecodeintherightplaces
'pressF5
SubForm2_load()
'intheform2_loadevent
'besuretomaketheform2smallerthenform1!
lngOrigParenthWnd=SetWindowWord(Me.hwnd,-8,mdiMain.hwnd)
EndSub
PrivateSubForm_Unload(CancelAsInteger)
'intheform2_unloadevent
DimlngResult&
lngResult=SetWindowWord(Me.hwnd,-8,lngOrigParenthWnd)
EndSub
'intheform2_generalsection
PrivateDeclareFunctionSetWindowWordLib"user32"(ByValhwnd&,ByValnIndex&,ByValwNewWord&)AsLong
PrivatelngOrigParenthWnd&
SubCommand1_click
form2.Show
EndSub->
'onform1acommandbutton
'putthecodeintherightplaces
'pressF5
SubForm2_load()
'intheform2_loadevent
'besuretomaketheform2smallerthenform1!
lngOrigParenthWnd=SetWindowWord(Me.hwnd,-8,mdiMain.hwnd)
EndSub
PrivateSubForm_Unload(CancelAsInteger)
'intheform2_unloadevent
DimlngResult&
lngResult=SetWindowWord(Me.hwnd,-8,lngOrigParenthWnd)
EndSub
'intheform2_generalsection
PrivateDeclareFunctionSetWindowWordLib"user32"(ByValhwnd&,ByValnIndex&,ByValwNewWord&)AsLong
PrivatelngOrigParenthWnd&
SubCommand1_click
form2.Show
EndSub->
- ››建立唯美图片特效,十个jQuery插件分享
- ››模式作用域:初级读本和最佳实践
- ››建立自己的TextView和ImageView的组合View类
- ››建立虚拟专用网 使用SSH保护网络通信
- ››建立一个 Derby 日历,第 3 部分: 使用事务和锁定...
- ››建立一个 Derby 日历,第 3 部分: 使用事务和锁定...
- ››建立一个 Derby 日历,第 1 部分: 理解 JDBC
- ››建立一个 Derby 日历,第 2 部分: 嵌入选项(上)...
- ››建立一个 Derby 日历,第 2 部分: 嵌入选项(下)...
- ››建立 qt for symbian 的开发环境
- ››建立一个 Android 项目的实例
- ››模式 + GWT + Ajax = 易用性
更多精彩
赞助商链接