VB使用堆叠对话框的一个方法
2024-07-21 02:20:36
供稿：网友
中国最大的web开发资源网站及技术社区，
第一次使用vb，想做一个堆叠对话框的程序。
就是想标签控件那种，但是不想把每个页上的控件都放在一个主控件里。想把每个页都使用一个form或propertypage来组织。
经过大量的实验和csdn上同仁的友情帮助，略有小成，不敢独享，放在这里，抛砖引玉。希望大家还有更好的办法。
step 1 声明如下说明
public declare function setparent lib "user32" (byval hwndchild as long, byval hwndnewparent as long) as long
public declare function setwindowlong lib "user32" alias "setwindowlonga" (byval hwnd as long, byval nindex as long, byval dwnewlong as long) as long
public declare function getwindowlong lib "user32" alias "getwindowlonga" (byval hwnd as long, byval nindex as long) as long
step 2 在主窗体上放置frame控件(fracontainer), 以放置堆叠页面的容器
step 3 建立函数initializepage
private sub initializepage(frmpage as form, hwndparent as long)
dim dwstyle as long
load frmpage
dwstyle = getwindowlong(frmpage.hwnd, -16)
dwstyle = dwstyle or &h40000000
setwindowlong frmpage.hwnd, -16, dwstyle
setparent frmpage.hwnd, hwndparent
end sub
step 4 建立需要切换的页面form1 和 form2, 修改为无边框，并将相应的起始属性(startupposition)改为manual,left top 均为0
step 5 建立页初始化函数
public sub initializepages()
set frm1 = new form1
set frm2 = new form2
initializepage frm1, frmmain.fracontainer.hwnd
initializepage frm2, frmmain.fracontainer.hwnd
end sub
step 6 建立全局变量frmactive 保存当前活动的页面
step 7 建立切换页面切换函数
public sub changepage(frmchange as form)
if frmchange is nothing then exit sub
if not frmactive is nothing then
if frmactive.hwnd <> frmchange.hwnd then
frmactive.hide
frmchange.show 0, me
set frmactive = frmchange
end if
else
frmchange.show 0, me
set frmactive = frmchange
end if
end sub
step 8 在主页面的unload 中加入如下代码
unload frm1
unload frm2
set frm1 = nothing
set frm2 = nothing
如此一个可以切换两个页面的代码完成，不过还有一些问题，
1. 在每个页面切入切出时没有相应的处理函数。
2. 页面没有焦点。
对于切入切出的问题，本来想用如下方式，从form中派生一个propertyform类，然后加入onsetactive 和 onkillactive函数，然后所有页面从此类生成，但是不知道怎么做，呵呵。vb的功能还是弱了点。c++我可以为所欲为，vb不会就没有一点办法。:)
希望vb高手可以指教
