標題: 表單Bottom內的程式，如何傳回數值?? [打印本頁]

---

作者: yenwang    時間: 2014-12-2 22:19     標題: 表單Bottom內的程式，如何傳回數值??

大家好
我現在幫同事寫個小程式
其中需要使用者自行挑選需求的顏色
我的方式是在MainProgram中
call ColorList去叫出選單色彩
使用者挑選完之後
按下選單的OK
則OK內的程式碼可以將使用者挑選的顏色和數量紀錄到某個Array中

然後我就卡住了
因為不知道怎麼將判別完成的Array傳回到Main Program中進行後續的計算
想問說板上的大家可否幫忙看看要怎麼解決
thank you!




[attach]19688[/attach]

---

作者: GBKEE    時間: 2014-12-3 07:04

回復 1# yenwang

不清楚,Main Program中進行後續的計算.
試試看

1. Public colorarray()
   
2. Sub MainProgram()
   
3.     Dim Cnt As Variant
   
4.     ColorList
   
5.     For Each Cnt In colorarray
   
6.         MsgBox Cnt
   
7.     Next
   
8. End Sub

複製代碼

1. Private Sub cmdOk_Click()
   
2.     Dim i
   
3.     Dim Cnt As Variant    '用來取得共有多少checkbox選上
   
4.     i = 0
   
5.     For Each Cnt In Controls
   
6.         If TypeName(Cnt) = "CheckBox" Then
   
7.             If Cnt.Value Then
   
8.                 ReDim Preserve colorarray(0 To i)
   
9.                  colorarray(i) = Cnt.Tag
   
10.                 i = i + 1
    
11.             End If
    
12.         End If
    
13.     Next
    
14.    
    
15. End Sub
    
16. Private Sub cmdCancel_Click()
    
17.     Unload Me
    
18. End Sub

複製代碼

---

作者: yenwang    時間: 2014-12-6 16:47

感謝，我最後也找到解決方式
用公用變數就可以解決了^^

---

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