vb6.0动态工具栏 [英] vb6.0 Dynamic toolbar

问题描述

我创建了一个vb项目工具栏，将其添加到mdi表单，并且该工具栏使用了所有子表单，请plz如何帮助我.

Am create one vb project toolbar add to mdi form and the toolbar using all child forms how is it possible plz help me.

推荐答案

您可以尝试做这样.

You can try doing it this way.

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    If Button.Caption = "save" Then
        Call mySave
    ElseIf Button.Caption = "new" Then
        Call myNew
    End If
End Sub

Sub mySave()
    If Me.ActiveForm Is Nothing Then Exit Sub
    Dim f As Form
    Set f = Me.ActiveForm
    Select Case f.Name
        Case "Form1"
            ''do your save for form1
        Case "Form2"
            ''do your save for form2
    End Select
End Sub

Sub myNew()
    If Me.ActiveForm Is Nothing Then Exit Sub
    Dim f As Form
    Set f = Me.ActiveForm
    Select Case f.Name
        Case "Form1"
            ''do your new for form1
        Case "Form2"
            ''do your new for form2
    End Select
End Sub

这篇关于vb6.0动态工具栏的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！