usercontrol1.ctl

一个仿office2007的工具条代码

    Cat_Left_on(i).Visible = False
    Cat_Right_on(i).Visible = False
Next

    Cat_Center_on(Index).Visible = True
    Cat_Left_on(Index).Visible = True
    Cat_Right_on(Index).Visible = True
End Sub
Private Sub CatMouse_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
For i = 0 To CatMouse.UBound
    If i = Index Then
        If Cat_Center_on(i).Visible = False Then
            Cat_Center_on(Index).Visible = True
            Cat_Left_on(Index).Visible = True
            Cat_Right_on(Index).Visible = True
            If Cat_Dlg(i).Visible = True Then
                Cat_Dlg_on(Index).Visible = True
            End If
        End If
    Else
        Cat_Center_on(i).Visible = False
        Cat_Left_on(i).Visible = False
        Cat_Right_on(i).Visible = False
        If Cat_Dlg(i).Visible = True Then
            Cat_Dlg_on(i).Visible = False
            Cat_Dlg_over(i).Visible = False
        End If
    End If
    If Cat_Dlg(i).Visible = True Then
        Cat_Dlg_over(i).Visible = False
    End If
Next
For KL = 0 To ButMouse.UBound
    Button_left(KL).Visible = False
    Button_right(KL).Visible = False
    Button_center(KL).Visible = False
Next
For i = 0 To TabMouse.UBound
    Tab_center_over(i).Visible = False
    Tab_left_over(i).Visible = False
    Tab_right_over(i).Visible = False
Next
For i = 0 To TBMouse.UBound
    RibbonTop_over(i).Visible = False
Next
RibbonTopCustom_over.Visible = False
Endon.Visible = False
Maxon.Visible = False
Minon.Visible = False
ButtonRibbonover.Visible = False
ButtonRibbonon.Visible = False
End Sub
Private Sub Endon_Click()
Endon.Visible = False
Unload UserControl.ParentControls.Item(0)
End Sub

Private Sub Maxon_Click()
If UserControl.ParentControls.Item(0).WindowState = 2 Then
    UserControl.ParentControls.Item(0).WindowState = 0
Else
    UserControl.ParentControls.Item(0).WindowState = 2
End If
Maxon.Visible = False
UserControl_Resize
End Sub
Private Sub Minoff_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Endon.Visible = False
Maxon.Visible = False
Minon.Visible = True
For i = 0 To TabMouse.UBound
    Tab_center_over(i).Visible = False
    Tab_left_over(i).Visible = False
    Tab_right_over(i).Visible = False
Next
For i = 0 To CatMouse.UBound
    Cat_Center_on(i).Visible = False
    Cat_Left_on(i).Visible = False
    Cat_Right_on(i).Visible = False
    If Cat_Dlg(i).Visible = True Then
        Cat_Dlg_on(i).Visible = False
        Cat_Dlg_over(i).Visible = False
    End If
Next
For KL = 0 To ButMouse.UBound
    Button_left(KL).Visible = False
    Button_right(KL).Visible = False
    Button_center(KL).Visible = False
Next

For i = 0 To TBMouse.UBound
    RibbonTop_over(i).Visible = False
Next
RibbonTopCustom_over.Visible = False
ButtonRibbonover.Visible = False
ButtonRibbonon.Visible = False
End Sub
Private Sub Maxoff_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Endon.Visible = False
Maxon.Visible = True
Minon.Visible = False
For i = 0 To TabMouse.UBound
    Tab_center_over(i).Visible = False
    Tab_left_over(i).Visible = False
    Tab_right_over(i).Visible = False
Next
For i = 0 To CatMouse.UBound
    Cat_Center_on(i).Visible = False
    Cat_Left_on(i).Visible = False
    Cat_Right_on(i).Visible = False
    If Cat_Dlg(i).Visible = True Then
        Cat_Dlg_on(i).Visible = False
        Cat_Dlg_over(i).Visible = False
    End If
Next
For KL = 0 To ButMouse.UBound
    Button_left(KL).Visible = False
    Button_right(KL).Visible = False
    Button_center(KL).Visible = False
Next

For i = 0 To TBMouse.UBound
    RibbonTop_over(i).Visible = False
Next
RibbonTopCustom_over.Visible = False
ButtonRibbonover.Visible = False
ButtonRibbonon.Visible = False
End Sub
Private Sub Endoff_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Endon.Visible = True
Maxon.Visible = False
Minon.Visible = False
For i = 0 To TabMouse.UBound
    Tab_center_over(i).Visible = False
    Tab_left_over(i).Visible = False
    Tab_right_over(i).Visible = False
Next
For i = 0 To CatMouse.UBound
    Cat_Center_on(i).Visible = False
    Cat_Left_on(i).Visible = False
    Cat_Right_on(i).Visible = False
    If Cat_Dlg(i).Visible = True Then
        Cat_Dlg_on(i).Visible = False
        Cat_Dlg_over(i).Visible = False
    End If
Next
For KL = 0 To ButMouse.UBound
    Button_left(KL).Visible = False
    Button_right(KL).Visible = False
    Button_center(KL).Visible = False
Next

For i = 0 To TBMouse.UBound
    RibbonTop_over(i).Visible = False
Next
RibbonTopCustom_over.Visible = False
ButtonRibbonover.Visible = False
ButtonRibbonon.Visible = False
End Sub
Private Sub Minon_Click()
UserControl.ParentControls.Item(0).WindowState = 1
Minon.Visible = False
End Sub

Private Sub RibbonTopCustom_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
RibbonTopCustom_over.Visible = True
For i = 0 To CatMouse.UBound
    Cat_Center_on(i).Visible = False
    Cat_Left_on(i).Visible = False
    Cat_Right_on(i).Visible = False
    If Cat_Dlg(i).Visible = True Then
        Cat_Dlg_on(i).Visible = False
        Cat_Dlg_over(i).Visible = False
    End If
Next
For i = 0 To TabMouse.UBound
    Tab_center_over(i).Visible = False
    Tab_left_over(i).Visible = False
    Tab_right_over(i).Visible = False
Next
For KL = 0 To ButMouse.UBound
    Button_left(KL).Visible = False
    Button_right(KL).Visible = False
    Button_center(KL).Visible = False
Next

For i = 0 To TBMouse.UBound
    RibbonTop_over(i).Visible = False
Next
ButtonRibbonover.Visible = False
ButtonRibbonon.Visible = False
Endon.Visible = False
Maxon.Visible = False
Minon.Visible = False
End Sub
Private Sub RibbonTopRight_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
RibbonTopCustom_over.Visible = False
For i = 0 To CatMouse.UBound
    Cat_Center_on(i).Visible = False
    Cat_Left_on(i).Visible = False
    Cat_Right_on(i).Visible = False
    If Cat_Dlg(i).Visible = True Then
        Cat_Dlg_on(i).Visible = False
        Cat_Dlg_over(i).Visible = False
    End If
Next
For i = 0 To TabMouse.UBound
    Tab_center_over(i).Visible = False
    Tab_left_over(i).Visible = False
    Tab_right_over(i).Visible = False
Next
For KL = 0 To ButMouse.UBound
    Button_left(KL).Visible = False
    Button_right(KL).Visible = False
    Button_center(KL).Visible = False
Next

For i = 0 To TBMouse.UBound
    RibbonTop_over(i).Visible = False
Next
ButtonRibbonover.Visible = False
ButtonRibbonon.Visible = False
Endon.Visible = False
Maxon.Visible = False
Minon.Visible = False
End Sub
Private Sub TabMouse_Click(Index As Integer)
For i = 0 To TabMouse.UBound
    Tab_center_over(i).Visible = False
    Tab_left_over(i).Visible = False
    Tab_right_over(i).Visible = False
    
    Tab_center(i).Visible = False
    Tab_left(i).Visible = False
    Tab_right(i).Visible = False
    
    Tab_caption(i).ForeColor = vbWhite
Next
Tab_caption(Index).ForeColor = vbBlack
Tab_center(Index).Visible = True
Tab_left(Index).Visible = True
Tab_right(Index).Visible = True
TabSelected = TabID(Index)
CatsUpdate
End Sub
Private Sub TabMouse_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
For i = 0 To TabMouse.UBound
    If i = Index Then
        If Tab_center(i).Visible = False Then
            Tab_center_over(Index).Visible = True
            Tab_left_over(Index).Visible = True
            Tab_right_over(Index).Visible = True
        End If
    Else
        Tab_center_over(i).Visible = False
        Tab_left_over(i).Visible = False
        Tab_right_over(i).Visible = False
    End If
Next
For i = 0 To CatMouse.UBound
    Cat_Center_on(i).Visible = False
    Cat_Left_on(i).Visible = False
    Cat_Right_on(i).Visible = False
    If Cat_Dlg(i).Visible = True Then
        Cat_Dlg_on(i).Visible = False
        Cat_Dlg_over(i).Visible = False
    End If
Next
For KL = 0 To ButMouse.UBound
    Button_left(KL).Visible = False
    Button_right(KL).Visible = False
    Button_center(KL).Visible = False
Next
For i = 0 To TBMouse.UBound
    RibbonTop_over(i).Visible = False
Next
RibbonTopCustom_over.Visible = False
Endon.Visible = False
Maxon.Visible = False
Minon.Visible = False
ButtonRibbonover.Visible = False
ButtonRibbonon.Visible = False
End Sub
Private Sub TBMouse_Click(Index As Integer)
    RaiseEvent MenuClick(TopBID(Index), TopBC(Index))
End Sub
Private Sub TBMouse_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
For i = 0 To TBMouse.UBound
    RibbonTop_over(i).Visible = False
Next
RibbonTop_over(Index).Visible = True
For i = 0 To TabMouse.UBound
    Tab_center_over(i).Visible = False
    Tab_left_over(i).Visible = False
    Tab_right_over(i).Visible = False
Next
For KL = 0 To ButMouse.UBound
    Button_left(KL).Visible = False
    Button_right(KL).Visible = False
    Button_center(KL).Visible = False
Next
For i = 0 To CatMouse.UBound
    Cat_Center_on(i).Visible = False
    Cat_Left_on(i).Visible = False
    Cat_Right_on(i).Visible = False
    If Cat_Dlg(i).Visible = True Then
        Cat_Dlg_on(i).Visible = False
        Cat_Dlg_over(i).Visible = False
    End If
Next
RibbonTopCustom_over.Visible = False
Endon.Visible = False
Maxon.Visible = False
Minon.Visible = False
ButtonRibbonover.Visible = False
ButtonRibbonon.Visible = False
End Sub
Private Sub UserControl_Initialize()
TotalTopButton = 0
TotalButton = 0
TotalTabs = 0
TotalCats = 0

TabSelected = ""

Barra.BackStyle = 0
ButtonRibbon.BackStyle = 0
TabMouse(0).BackStyle = 0
CatMouse(0).BackStyle = 0
TBMouse(0).BackStyle = 0
ButMouse(0).BackStyle = 0

UserControl_Resize
TabsUpdate
CatsUpdate
End Sub
Private Sub TabsUpdate()
On Error Resume Next
For i = 1 To (TotalTabs - 1)
        Unload Tab_caption(i)
        Unload Tab_left(i)
        Unload Tab_center(i)
        Unload Tab_right(i)
        Unload Tab_left_over(i)
        Unload Tab_center_over(i)
        Unload Tab_right_over(i)
        Unload TabMouse(i)
Next
For i = 0 To (TotalTabs - 1)
    If i <> 0 Then
        Load Tab_caption(i)
        Load Tab_left(i)
        Load Tab_center(i)
        Load Tab_right(i)
        Load Tab_left_over(i)
        Load Tab_center_over(i)
        Load Tab_right_over(i)
        Load TabMouse(i)
        Tab_left(i).Left = Tab_right(i - 1).Left + Tab_right(i).Width
    Else
        Tab_left(0).Left = ButtonRibbon.Width
    End If
    TabMouse(i).Left = Tab_left(i).Left
    
    Tab_caption(i).Top = 395 + 60
    Tab_center(i).Top = 395
    Tab_left(i).Top = 395
    Tab_right(i).Top = 395
    Tab_center_over(i).Top = 395
    Tab_left_over(i).Top = 395
    Tab_right_over(i).Top = 395
    TabMouse(i).Top = 395
    
    Tab_caption(i) = TabC(i)
    Tab_center(i).Width = Tab_caption(i).Width
    Tab_center(i).Left = Tab_left(i).Left + Tab_left(i).Width
    Tab_caption(i).Left = Tab_center(i).Left
    Tab_right(i).Left = Tab_center(i).Left + Tab_center(i).Width
    
    Tab_center_over(i).Width = Tab_center(i).Width
    Tab_center_over(i).Left = Tab_center(i).Left
    Tab_left_over(i).Left = Tab_left(i).Left
    Tab_right_over(i).Left = Tab_right(i).Left
    
    TabMouse(i).Width = Tab_left(i).Width + Tab_right(i).Width + Tab_center(i).Width
    
    Tab_caption(i).ForeColor = vbWhite
    
    Tab_caption(i).Visible = True
    If i = 0 Then
        Tab_center(i).Visible = True
        Tab_left(i).Visible = True
        Tab_right(i).Visible = True
        Tab_caption(i).ForeColor = vbBlack
    End If
    TabMouse(i).Visible = True

    Tab_center(i).ZOrder 0
    Tab_left(i).ZOrder 0
    Tab_right(i).ZOrder 0
    
    Tab_center_over(i).ZOrder 0
    Tab_left_over(i).ZOrder 0
    Tab_right_over(i).ZOrder 0
    
    Tab_caption(i).ZOrder 0
    TabMouse(i).ZOrder 0
Next
End Sub
Private Sub CatsUpdate()
'On Error Resume Next
Dim TotalCatsT As Integer
Dim CatsIDT(30) As String
Dim CatsCT(30) As String
Dim CatsTT(30) As String
Dim CatsDT(30) As Boolean
TotalCatsT = 0
For i = 0 To TotalCats
    If CatsT(i) = TabSelected And TabSelected <> "" And CatsT(i) <> "" Then
        CatsIDT(TotalCatsT) = CatsID(i)
        CatsTT(TotalCatsT) = CatsT(i)
        CatsCT(TotalCatsT) = CatsC(i)
        CatsDT(TotalCatsT) = CatsD(i)
        TotalCatsT = TotalCatsT + 1
    End If
Next
For i = 1 To CatMouse.UBound
        Unload Cat_Left_off(i)
        Unload Cat_Left_on(i)
        Unload Cat_Right_off(i)
        Unload Cat_Right_on(i)
        Unload Cat_Center_off(i)
        Unload Cat_Center_on(i)
        Unload Cat_Caption(i)
        Unload CatMouse(i)
        Unload Cat_Dlg(i)
        Unload Cat_Dlg_on(i)
        Unload Cat_Dlg_over(i)
Next
For i = 1 To Button_center.UBound