Private Sub Form_Click()
Dim a%, b%
a = 3: b = 4
Call s(a, b)
Print a, b
End Sub
Private Sub s(x As Integer, y As Integer)
x = x * 100
y = y * 100
End Sub
uj5u.com熱心網友回復：
加上：Private Sub Command1_Click()
Form_Click
End Sub
或者干脆改成
Private Sub Command1_Click()
Dim a%, b%
a = 3: b = 4
Call s(a, b)
Print a, b
End Sub
uj5u.com熱心網友回復：
你的代碼：Form_Click()這個程序，是“單擊表單”觸發的事件（要在表單客戶區內、沒有控制元件的地方單擊）。
你單擊“按鈕”，卻沒有對應的“事件程序”代碼，當然看起來就會是“無回應”的啊。
在表單設計器中，雙擊那個“按鈕”，VB6會自動彈出代碼視窗、給你“搭好事件程序代碼框架”，
你只需要在對應的 Privete Sub ………… End Sub 之間，寫好需要的代碼就行了。
uj5u.com熱心網友回復：
建議你畫個按鈕出來，然后寫單擊按鈕回應的代碼出來。uj5u.com熱心網友回復：
如果你表單上有一個按鈕控制元件（Button1），你點擊這個控制元件肯定沒反應，因為你的陳述句是點擊表單的事件。將這些內容放入按鈕控制元件的單擊事件里面
Dim a%, b%
a = 3: b = 4
Call s(a, b)
Print a, b
Private Sub Command1_Click()
放在這里
End Sub
如果你本來就是單擊表單，那是否因為表單左上角有其他控制元件遮擋了？
或者將Print a,b 改成 Me.Caption = a & "/" & b，讓結果顯示到表單標題上試試。
uj5u.com熱心網友回復：
Private Sub Form_Click()Dim a%, b%
a = 3: b = 4
Call s(a, b)
Print a, b
End Sub
Private Sub s(byref x As Integer, byref y As Integer)
x = x * 100
y = y * 100
End Sub
uj5u.com熱心網友回復：
LZ的代碼無錯誤，只是VB的Form的AutoRadraw屬性未設定為True，導致表單不顯示內容。
AutoRedraw 屬性，回傳或設定從圖形方法到持久圖形.的輸出。
需要在表單屬性頁設定，或者在表單的Load時間中加一句：
Me.Show
Private Sub Form_Load()
Me.Show
End Sub
Private Sub Form_Click()
Dim a%, b%
a = 3: b = 4
Call s(a, b)
Print a, b
End Sub
Private Sub s(x As Integer, y As Integer)
x = x * 100
y = y * 100
uj5u.com熱心網友回復：
你的代碼寫在單擊form上，你單擊按鈕當然沒有反應了轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/50016.html
標籤：VB基礎類
上一篇：VB.net如何發POST請求
下一篇：請教：如何避免隱藏的錯誤