窗体操作!在线等待

Question

我想操作form1窗体的cmd新增按扭时,同时操作form2窗体的cmd新增按扭.请问大哥大姐VB代码怎样写,

Answer 1

'form1_
private sub cmd_click()
  call form2_cmd_click()
end sub

Answer 2

什么意思？如果想在窗体1的cmd按钮中调用窗体2中cmd事件的话
  fishmans(金脚指) ( ) 的恢复就解决了。

Answer 3

当按下FORM1窗本的CMD新增时，同时也要调用FORM2的CMD新增，请问VB代码怎样写，最好要详细些，我是新手

Answer 4

工程1.vbp文件内容：
Type=Exe
Form=窗体1.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation
Form=窗体2.frm
Startup="窗体1"
HelpFile=""
Command32=""
Name="工程1"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="YIWUSOFT.COM"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1[MS Transaction Server]
AutoRefresh=1

Answer 5

窗体1.frmVERSION 5.00
Begin VB.Form 窗体1 
   Caption         =   "窗体1"
   ClientHeight    =   3195
   ClientLeft      =   3240
   ClientTop       =   3615
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   Begin VB.CommandButton 窗体1新增按钮 
      Caption         =   "窗体1新增按钮"
      Height          =   735
      Left            =   1440
      TabIndex        =   0
      Top             =   1080
      Width           =   1935
   End
End
Attribute VB_Name = "窗体1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option ExplicitPrivate Sub 窗体1新增按钮_Click()
With 窗体1新增按钮
If .Caption = "窗体1新增按钮" Then
.Caption = "已点窗体1新增按钮"
Load 窗体2
窗体2.Visible = True
窗体2.窗体2新增按钮_Click
MsgBox "已点  窗体1新增按钮"
Else
.Caption = "窗体1新增按钮"
End If
End With
End Sub

Answer 6

窗体2.frm
VERSION 5.00
Begin VB.Form 窗体2 
   Caption         =   "窗体2"
   ClientHeight    =   3195
   ClientLeft      =   8490
   ClientTop       =   3615
   ClientWidth     =   4680
   LinkTopic       =   "Form2"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   Begin VB.CommandButton 窗体2新增按钮 
      Caption         =   "窗体2新增按钮"
      Height          =   855
      Left            =   1440
      TabIndex        =   0
      Top             =   1200
      Width           =   1815
   End
End
Attribute VB_Name = "窗体2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option ExplicitPublic Sub 窗体2新增按钮_Click() 'public很重要
MsgBox "已点  窗体2新增按钮"
End Sub

Answer 7

form2 的cmd事件设成 public private sub CMd_click()     call form2.cmd_Click()end sub