Board logo

標題: [發問] 表單設計 顯示“額外選項” [打印本頁]

作者: yutakano    時間: 2013-7-7 11:58     標題: 表單設計 顯示“額外選項”

版本:VBA 7.0

請問各位大大
我在設計表單的時候遇到一個問題
我想做一個和下圖類似功能的顯示方式
[attach]15381[/attach]
在按"選項"後表單會出現額外的選項

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

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

我現在不知道該怎麼解決
麻煩各位大大了
作者: stillfish00    時間: 2013-7-7 14:56

回復 1# yutakano
用一個表單就能實現了,當按下選項按鈕時去顯示/隱藏其他控制項就可以了。
作者: stillfish00    時間: 2013-7-7 15:22

本帖最後由 stillfish00 於 2013-7-7 15:24 編輯

回復 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    時間: 2013-7-8 13:17

回復 3# stillfish00

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




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)