Question

vb中创建两个按钮，单击按钮1，，在按钮2中输入一段指定代码，，不知可否实现

RT

Answer 1

Public codeCr As Boolean
Private Sub Form_Load()
codeCr = False
End Sub
Private Sub Command1_Click()
codeCr = True
End Sub
Private Sub Command2_Click()
If codeCr = True Then
'一段代码
Else
'正常执行代码
End If
End Sub

Answer 2

private sub command1_click()
command2.caption="你要指定的代码"
end sub

Answer 3

不明白，你要做什么