建立无模式窗口_visualbasic教程

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->