[發問] 表單設計 顯示“額外選項”

yutakano

版本:VBA 7.0

請問各位大大
我在設計表單的時候遇到一個問題
我想做一個和下圖類似功能的顯示方式

下載 (48.68 KB)

2013-7-7 11:53

在按"選項"後表單會出現額外的選項

假設　一般選項表單為　　　　　表單一
　　　包含額外選項的表單為　　表單二

我現在的做法是做了兩份表單
在按"按選"項後顯示表單二
但是這樣做在顯示表單二的過程會卡卡的
而且表單的名稱(name)也會改變
但Excel的按"選項"的時候不會有以上問題
表單名稱改變原因是因為我設了兩個表單
那Excel裡沒有變是因為它只用了一個表單而已嗎?

我現在不知道該怎麼解決
麻煩各位大大了

stillfish00

回復 1# yutakano
用一個表單就能實現了，當按下選項按鈕時去顯示/隱藏其他控制項就可以了。

stillfish00

回復 1# yutakano
簡單範例: https://www.dropbox.com/s/0yulvt5j01mkjxa/%E7%AF%84%E4%BE%8B.xlsm

1. Private Sub CommandButton1_Click()
   
2.     Static bControl As Boolean  '控制是否展開
   
3.     bControl = Not bControl
   
4.    
   
5.     If bControl Then
   
6.         CommandButton1.Caption = "選項<<"
   
7.         CommandButton1.Top = 100
   
8.         ComboBox2.Width = 100
   
9.         Label2.Visible = True
   
10.         ComboBox1.Visible = True
    
11.         CheckBox1.Visible = True
    
12.     Else
    
13.         CommandButton1.Caption = "選項>>"
    
14.         CommandButton1.Top = 36
    
15.         ComboBox2.Width = 180
    
16.         Label2.Visible = False
    
17.         ComboBox1.Visible = False
    
18.         CheckBox1.Visible = False
    
19.     End If
    
20. End Sub

複製代碼

yutakano

回復 3# stillfish00

謝謝stillfish00大，這真是一個有效又簡單的方法!