vb里一个窗体中的命令按钮 按下去 会执行另外一个窗体中的命令按钮的命令 要怎么做

Question

谢谢
按了A窗体中命令按钮相当于按了B窗体中命令按钮 这样的作用

Answer 1

实现方法：

1）在当前窗口按钮的Click事件中对执行窗体的按钮的Value 属性赋值True事项。

Value 属性，CommandButton 控件－返回或设置指示该按钮是否可选的值；在设计时不可用。

Private Sub Command1_Click()
    Form2.Command1.Value = True
End Sub

2）VB中只需在另一窗体添加一个Timer控件，在当前窗体呼唤该窗体的Timer控件改变它的

Enabled 属性或Interval 属性来实现。

Timer 控件，通过引发 Timer 事件，Timer 控件可以有规律地隔一段时间执行一次代码。

Enabled 属性，返回或设置一个值，该值用来确定一个窗体或控件是否能够对用户产生的事件作出反应。

Interval 属性，返回或设置对 Timer 控件的计时事件各调用间的毫秒数。



以下是改变Timer控件的Enabled 属性的代码实例：

Form2代码：

Option Explicit
    Dim i As Long
    
Private Sub Command1_Click()
    Me.Cls
    i = i + 1
    Me.Print i
End Sub

Private Sub Form_Load()
    Timer1.Interval = 1
    Timer1.Enabled = False
    Form2.Show
End Sub

Private Sub Timer1_Timer()
    Command1_Click
    Timer1.Enabled = False
End Sub

Form1代码：

Option Explicit
    Dim i As Long
    
Private Sub Command1_Click()
    Form2.Timer1.Enabled = True
End Sub

Private Sub Form_Load()
    Form2.Show
End Sub

Private Sub Timer1_Timer()
    Command1_Click
End Sub

Answer 2

private sub command1_click() 'A窗体中的command1按钮按下
FormB.command1_click() '调用B窗体的command1按钮按下事件
End sub

Answer 3

在A窗体的命令按钮代码中写
B窗体名.B窗体命令按钮.click()

Answer 4

用command的value属性，如：
private sub command1_click() 'A窗体中的command1按钮按下
FormB.command1.value=true '调用B窗体的command1按钮按下事件
End sub

Answer 5

form 1 form2
在A窗体 FORM1 中COMMAND1 的click事件中执行
form2.command1的操作就行了