（同一個表單內）要定義一個，全域陣列，然后在按鈕的事件中對它的某些元素進行賦值
如：在標準模塊中定義
Public date_data1(1 To 32) As Byte '日期、時間、溫濕度引數存盤陣列1
然后 在commad 函式中改變它的某些值
Private Sub Cad_auto_show_Click()
date_date1(1) = 1 '給全域陣列送資料，開智能顯示
End Sub
運行，單擊該按鈕，會提示 “子程式或函式未定義”
Private Sub Cad_auto_show_Click() 變黃色
uj5u.com熱心網友回復：
date_date1(1)date_data1(1)
你變數名弄錯了，打錯字所以出問題了
uj5u.com熱心網友回復：
你要先做一個公共類，就是*.cls檔案，名稱如：資料結構里面有4個變數
Public 日期 As Date
Public 時間 As Date
Public 溫度 As Double
Public 濕度 As Double
這樣組成一個結構
2,模塊a1.bas
Public 資料結構陣列(32) As New 資料結構
3,frm1.frm表單
Private Sub Command1_Click()
資料結構陣列(1).日期 = Now
資料結構陣列(1).時間 = "11:51"
資料結構陣列(1).濕度 = 3.5
資料結構陣列(1).溫度 = 35
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/147730.html
標籤：VB基礎類
下一篇：大神們，VB求助個簡單例子！