option explicit
private declare function setwindowpos lib "user32" (byval hwnd as long, byval hwndinsertafter as long, byval x as long, byval y as long, byval cx as long, byval cy as long, byval wflags as long) as long
const hwnd_topmost = -1 窗口置顶
const swp_showwindow = &h40 ‘显示窗体
const swp_nosize = &h1 不允许改变大小
private sub form_load()
设置窗体永远置顶
setwindowpos me.hwnd, hwnd_topmost, me.top, me.left, me.width, me.height, swp_nosize or swp_showwindow
end sub
time1 and time2 配合达到延时效果
private sub timer1_timer()
timer2.enabled = true
mdiform1.show
end sub
private sub timer2_timer()
unload me
end sub
private sub form_keydown(keycode as integer, shift as integer)
unload me
mdiform1.show
end sub
private sub image1_click()
unload me
mdiform1.show
end sub
文章整理:站长天空 网址:http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!




