1樓:匿名使用者
'新增一個timer控制元件,timer1
'設定timer1的屬性intelval為5000(單位為毫秒)private sub timer1_timer()form1.hide
form2.show
timer1.enabled = falseend sub
'另外你要再新增一個窗體form2
2樓:匿名使用者
這個視窗是自己程式的視窗嗎?
如果是:
'兩個窗體(form),一個timer在form1private sub form_load()timer1.interval = 1000end sub
private sub timer1_timer()static n as integer
n = n + 1
if n = 5 then
form2.show
form1.hide '把第一個窗體隱藏
end if
end sub
如果不是:
再說吧。
3樓:捌零老陳
public a as integer
'設定timer1為1000(interal)private sub form_load()a = 1
timer1.enabled = trueend sub
private sub timer1_timer()a = a + 1
doevents
if a > 5 then
timer1.enabled = falseunload me
form2.show
end if
end sub
c點選按鈕跳轉到另視窗,c 點選按鈕跳轉到另一個視窗
跳轉到另一個視窗的話 是要新建一個窗體的,例如新建了newform在點選事件裡面 button click 就可以實現了 在form1 load事件中宣告form2物件,例 form2 a new form2 並在form2類中宣告全域性變數form1象 public form1 b 在form1 ...
用VB程式移動某個程式的視窗至300,600 螢幕座標
declare function findwindow lib user32 alias findwindowa byval lpclassname as string,byval lpwindowname as string as long 這個函式有兩個引數,第一個是要找的視窗的類,第二個是要找...
VB MDI視窗問題,關於VB中的MDI父窗體與子窗體的問題?
private sub a click form2.hide form1.show end sub private sub b click form1.hide form2.show end sub form1 form2的mdichild屬性均設為true 再新增一個mdi窗體 系統預設載入for...