返回列表 上一主題 發帖

[發問] 如何使用Click參照

av8d

帖子
700 
主題
275 
精華
0 
積分
1001 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-4-10 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-9-7 12:18 | 只看該作者

[發問] 如何使用Click參照

Private Sub Label1_Click()
Select Case ComboBox1.Value
case "XXX"

Private Sub Label2_Click()
Select Case ComboBox2.Value
case "XXX"


由於Label1的case "XXX"和Label2的case "XXX"
且case "XXX"非常的多~我另外開了一個Module1內容如下
Sub Search()
case "XXX"

然後改寫Label1和Label2的內容~如下
Private Sub Label1_Click()
Select Case ComboBox1.Value
case "XXX"

Private Sub Label2_Click()
Select Case ComboBox2.Value
Call Search

但是卻出現編譯錯誤:"在Select Case 與第一個Case陳述式間，有不正確的陳述式或標籤
收藏 分享

chin15

帖子
227 
主題
3 
精華
1 
積分
273 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-3-22 
最後登錄
2013-1-29 
2#
發表於 2012-9-7 17:39 | 只看該作者
每個事件都只有case "XXX"

然後沒下文了？

TOP

av8d

帖子
700 
主題
275 
精華
0 
積分
1001 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-4-10 
3#
發表於 2012-9-10 09:10 | 只看該作者
回復 2# chin15

我大概敘述一下~暫時A.B.C代表~但是不只3個~到目前為止有50多個

Private Sub Label1_Click()
Select Case ComboBox1.Value
case "A"
UserForm1.Hide
UserForm2.Show
case "B"
UserForm1.Hide
UserForm3.Show
case "C"
UserForm1.Hide
UserForm4.Show

Private Sub Label2_Click()
Select Case ComboBox2.Value
case "A"
UserForm1.Hide
UserForm2.Show
case "B"
UserForm1.Hide
UserForm3.Show
case "C"
UserForm1.Hide
UserForm4.Show

由於Label1的case "XXX"和Label2的case "XXX"
且case "X"非常的多~我另外開了一個Module1內容如下
Sub Search()
case "A"
UserForm1.Hide
UserForm2.Show
case "B"
UserForm1.Hide
UserForm3.Show
case "C"
UserForm1.Hide
UserForm4.Show

然後改寫Label1和Label2的內容~如下
Private Sub Label1_Click()
Select Case ComboBox1.Value
Call Search

Private Sub Label2_Click()
Select Case ComboBox2.Value
Call Search

但是卻出現編譯錯誤:"在Select Case 與第一個Case陳述式間，有不正確的陳述式或標籤

TOP

chin15

帖子
227 
主題
3 
精華
1 
積分
273 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-3-22 
最後登錄
2013-1-29 
4#
發表於 2012-9-10 20:13 | 只看該作者
太高深了看不懂，通常會用物件類別模組處理這類事件。你這樣玩法一定有你特殊的目的。

TOP

luhpro

帖子
824 
主題
6 
精華
0 
積分
904 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2023-12-24 
5#
發表於 2012-9-10 20:57 | 只看該作者
本帖最後由 luhpro 於 2012-9-10 21:00 編輯
回復  chin15

我大概敘述一下~暫時A.B.C代表~但是不只3個~到目前為止有50多個

Private Sub Label1_C ...
av8d 發表於 2012-9-10 09:10

這樣的程式寫法確實是會有問題的.

首先,
每個程序都必須有頭有尾,
不能只有起點而沒有終點.
所以在 兩個 Sub 間必定要有一個 End Sub 以指明前一個 Sub 已經結束,
而最後一個 Sub 下方也一樣要有一個 End Sub 指明其終點.

其次,
Select Case 底下,
不但要有不定數的 Case 表示選擇與分支處理,
更要有表明 Select 已經結束的 End Select.

在你最後的那個程式中,
並非只呼叫副程序就好,
還要把 Select Case 的參數傳過去,
這樣副程序中的 Select Case 才能有處理的依據.
同樣的,
每個程序都不能有頭沒尾,
Select Case 後也不能沒有 Case 與 End Select.

故修改如下 :
  1. Private Sub Label1_Click()
  2.   Call Search(ComboBox1.Value)
  3. End Sub

  5. Private Sub Label2_Click()
  6.   Call Search(ComboBox2.Value)
  7. End Sub
複製代碼
  1. Public Sub Search(Val)
  2.   Select Case Val
  3.     Case "A"
  4.       UserForm1.Hide
  5.       UserForm2.Show
  6.       
  7.     Case "B"
  8.       UserForm1.Hide
  9.       UserForm3.Show
  10.       
  11.     Case "C"
  12.       UserForm1.Hide
  13.       UserForm4.Show
  14.   End Select
  15. End Sub
複製代碼
另外,若相同的物件很多,
建議運用動態或是陣列來建立物件,
這樣程式會比較好寫.

TOP

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
返回列表 上一主題