返回列表 上一主題 發帖

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

yutakano

帖子
2 
主題
1 
精華
0 
積分
9 
點名
0  
作業系統
WinXP 
軟體版本
Office2010 
閱讀權限
10 
註冊時間
2013-5-7 
最後登錄
2013-7-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-7-7 11:58 | 只看該作者

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

版本:VBA 7.0

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

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

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

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

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

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2013-7-7 14:56 | 只看該作者
回復 1# yutakano
用一個表單就能實現了，當按下選項按鈕時去顯示/隱藏其他控制項就可以了。

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
3#
發表於 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
複製代碼

TOP

yutakano

帖子
2 
主題
1 
精華
0 
積分
9 
點名
0  
作業系統
WinXP 
軟體版本
Office2010 
閱讀權限
10 
註冊時間
2013-5-7 
最後登錄
2013-7-8 
4#
發表於 2013-7-8 13:17 | 只看該作者
回復 3# stillfish00

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

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題