界面的相同部分的合并

Question

有三个Form 分别为FormA,FormB,FormC ,在每一个Form 都有相同的三个按钮分别为ButtonA,ButtonB,ButtonC 他们的代码是相同的,即点击ButtonA 切换到FormA,点ButtonB 切换到FormB等,我如何做使三个Form共用一个按钮模块而不是每个Form上都有个这个按钮模块?  谢谢

Answer 1

没看懂什么意思，buttona在forma上，那切换什么啊？

Answer 2

添加一个普通模块，写公用函数：Public Sub OpenFrm(frmname As String)
    Select Case frmname
        Case "formA"
            FormA.Show
        Case "formB"
            FormB.Show
        Case "formC"
            FormC.Show
    End Select
End Sub在窗体模块中，给按钮添加事件过程：Private Sub Command1_Click()    OpenFrm "formA"End SubPrivate Sub Command2_Click()    OpenFrm "formB"End SubPrivate Sub Command3_Click()
    
    OpenFrm "formC"
    
End Sub

Answer 3

将三个窗体合3为1个窗体！！然后用SStab吧！！

Answer 4

每个Form 上的操作比较多,如果用一个窗体很是麻烦,victorycyz(中海)的方法当然可以,目前也是这么做的,每一个Form上实际上有很多控件是相同的

Answer 5

或者吧三个button放到一个picbox里
设置picbox.container=formx

Answer 6

每个Form 上的操作比较多,如果用一个窗体很是麻烦,victorycyz(中海)的方法当然可以,目前也是这么做的,每一个Form上实际上有很多控件是相同的
-----------------------------------------------------------
那就把按钮控件加到类模块里。事件传送到类模块中处理。