VB 按鈕問題

使用兩種窗體建立乙個新專案：form1、form2

form1 上有兩個控制項：命令按鈕 command1 和 timer1form2 上有兩個控制項：label label1 和 timer1 在程式執行時點選命令按鈕，命令按鈕消失，等待 1 秒，然後彈出表單 2 顯示：

按下按鈕，請稍候！ 等待 3 秒鐘並顯示：已完成。

再等三秒鐘，讓 Form 2 消失並返回 Form 1。

表格 1**：

private sub command1_click()= false '使按鈕不可見"

1000 '啟動計時器。

end sub

private sub form_load()= "按鈕" '為按鈕命名。

end sub

private sub timer1_timer()'顯示表單 2

false '使表單 1 不可用。

0 '關閉表格 1 的計時器。

end sub

表格 2**：

dim i as integer

private sub form_load()= "按下按鈕，請稍候！ " '顯示按下按鈕，請稍等片刻。

3000 '以 3 秒的間隔啟動計時器。

i = 0end sub

private sub timer1_timer()= "大功告成！" '顯示已完成。

if i = 1 then '等待三秒鐘，讓 Form 2 消失。

true true

unload me

end if

i = i + 1

end sub

您可以建立窗體和控制項，並將其直接複製到窗體中進行執行。

private sub command1_click()= true

falsefalse

end sub

private sub form_load()= false '將 timer1 屬性定義為 falseend sub

private sub timer1_timer()dim a as integer

do while a < 10 '設定 10sa = a+1

顯示 form2，也可以在此處將其更改為其他事件，例如 msgbox 等。 也可以編寫 Form2 來處理事件。

false '停止計時器。

end sub

我希望這就是你的意思。

在窗體上建立 command1 按鈕和 timer1。

在 form2 表單中填寫上面的文字"大功告成"

然後直接複製上面的**，

1.有效期：已啟用

2.可見性：可見

3.表單啟用：show

4.LostFocus：LostFocus

5.移動物件（包括引數）：向左移動為單個，[top]，width]，height]。

6.獲取焦點：gotfocus

7.輸出：列印

8.清除顯示：CLS

9.表單最大化按鈕：maxbutton

10.表單最小化按鈕：minbutton

11.表單控制選單框：控制框

12.表單邊框（5個值和含義，寫清楚）：邊框樣式

5 個價值和含義---

0 無 無（無邊框或與邊框相關的元素）。

1個固定單。 可以包含控制選單框、標題欄、"最大化"button 和"最小化"按鈕

2 個可調節（預設）可調節邊框。

3 固定對話方塊。 它可以包含控制項選單框和標題欄，但不能包含最大化和最小化按鈕，也不能更改尺寸。

4.固定工具視窗。 無法更改大小。 顯示關閉按鈕，並以縮小字型顯示標題欄。 窗體不會顯示在 Windows 95 的工作列中。

5 個相當大的工具視窗。 可變大小。 顯示關閉按鈕，並以縮小字型顯示標題欄。 窗體不會顯示在 Windows 95 的工作列中。

13.表單左上角圖示：圖示

私人群影1 click（）。

= 1'使用下面的兩個注釋。

“ = true

vbchecked

end sub