Form1 ============================== Option ExplicitPublic Sub Command1_Click() MsgBox "ok" End SubPrivate Sub Form_Load() Form2.Show End Sub ========================= Form2 ========================= Option ExplicitPrivate Sub Command1_Click() Call Form1.Command1_Click End Sub ========================= 这样不可以吗?为什么一定要是私有的
不必改任何代码,要知道窗体中的控件可以引用的,所以: Form1 ============================== Option ExplicitPrivate Sub Command1_Click() MsgBox "ok" End SubPrivate Sub Form_Load() Form2.Show End Sub ========================= Form2 ========================= Option ExplicitPrivate Sub Command1_Click() Form1.Command1.Value = True End Sub =========================
==============================
Option ExplicitPublic Sub Command1_Click()
MsgBox "ok"
End SubPrivate Sub Form_Load()
Form2.Show
End Sub
=========================
Form2
=========================
Option ExplicitPrivate Sub Command1_Click()
Call Form1.Command1_Click
End Sub
=========================
这样不可以吗?为什么一定要是私有的
Form1
==============================
Option ExplicitPrivate Sub Command1_Click()
MsgBox "ok"
End SubPrivate Sub Form_Load()
Form2.Show
End Sub
=========================
Form2
=========================
Option ExplicitPrivate Sub Command1_Click()
Form1.Command1.Value = True
End Sub
=========================
一定要做成公有就把private改为public吧
我一般也用这个方法模拟按键