亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? usercontrol1.ctl

?? vb.net開發的考試系統,界面美觀
?? CTL
?? 第 1 頁 / 共 4 頁
字號: 
End Sub

Private Sub CatMouse_Click(Index As Integer)
For i = 0 To CatMouse.UBound
    Cat_Center_on(i).Visible = False
    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)

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
亚洲动漫第一页| 97超碰欧美中文字幕| 粉嫩一区二区三区性色av| 色久优优欧美色久优优| 欧美成人精精品一区二区频| 亚洲天堂福利av| 国产精品中文欧美| 欧美一区二区成人| 亚洲一区影音先锋| a美女胸又www黄视频久久| 精品99一区二区| 日韩高清不卡在线| 欧美人成免费网站| 一区二区三区日韩精品| jlzzjlzz欧美大全| 国产日韩欧美精品在线| 国内成人免费视频| 精品播放一区二区| 免费亚洲电影在线| 91精品国产综合久久国产大片| 亚洲一区二区三区四区在线观看| 成人av在线一区二区三区| 久久综合久久综合久久| 久久99在线观看| 日韩久久精品一区| 轻轻草成人在线| 欧美一区二区三区四区五区| 午夜久久电影网| 欧美精品第一页| 日韩精品色哟哟| 日韩欧美不卡一区| 久久国产精品无码网站| 精品国产一区二区亚洲人成毛片 | 欧美日韩卡一卡二| 亚洲精品综合在线| 色综合色狠狠综合色| 久久精品国产亚洲一区二区三区| 日韩欧美亚洲国产精品字幕久久久| 天堂久久久久va久久久久| 欧美亚洲综合在线| 日韩av一区二区在线影视| 欧美区在线观看| 蜜臀a∨国产成人精品| 欧美一区二区三区在线观看视频| 日韩国产在线观看一区| 欧美一区二区在线视频| 极品少妇一区二区| 久久国内精品视频| 日本一区二区三区高清不卡| 成人黄色av网站在线| 亚洲最大成人网4388xx| 欧美肥大bbwbbw高潮| 麻豆成人久久精品二区三区红| 精品对白一区国产伦| 99麻豆久久久国产精品免费优播| 亚洲欧美日韩国产一区二区三区| 91福利小视频| 久久99深爱久久99精品| 国产精品美女久久福利网站| 在线观看亚洲成人| 日韩不卡免费视频| 欧美国产1区2区| 欧美视频精品在线| 激情综合色丁香一区二区| 国产精品女主播在线观看| 91黄色在线观看| 精品中文字幕一区二区小辣椒| 久久精品视频一区二区| 在线一区二区三区四区| 久久精品72免费观看| 国产精品久久久久影院| 欧美一区二区三区四区视频| 国产很黄免费观看久久| 婷婷六月综合亚洲| 国产精品丝袜一区| 日韩一区二区三区av| 99国产精品国产精品久久| 蜜桃av噜噜一区二区三区小说| 最新日韩在线视频| 精品国产一区二区三区四区四| 91论坛在线播放| 国产另类ts人妖一区二区| 天天操天天干天天综合网| 国产精品美日韩| xnxx国产精品| 91精品国产全国免费观看 | 在线免费视频一区二区| 国产精品夜夜嗨| 青青草伊人久久| 亚洲一区二区三区四区五区黄| 国产欧美在线观看一区| 欧美一区二区在线不卡| 欧洲人成人精品| www.久久精品| 成+人+亚洲+综合天堂| 黄色日韩三级电影| 亚洲成人免费看| 中文字幕一区二区三区不卡| 欧美精品一区二区高清在线观看| 欧美亚洲动漫另类| 91丝袜高跟美女视频| 国产99久久久国产精品免费看| 免费看黄色91| 日韩国产一区二| 日韩精品一卡二卡三卡四卡无卡 | 国产精品污污网站在线观看| 精品少妇一区二区三区在线视频| 欧美亚洲国产一区在线观看网站| 色综合久久久久网| 色综合久久久久久久| www.欧美色图| 99re亚洲国产精品| 99re这里只有精品6| 色悠久久久久综合欧美99| av资源网一区| 在线欧美一区二区| 欧美日韩亚洲综合| 欧美日韩激情在线| 欧美日韩亚洲国产综合| 欧美日韩中文字幕精品| 欧美日韩午夜在线| 欧美高清视频www夜色资源网| 欧美日韩国产一区| 制服视频三区第一页精品| 欧美一区二区三区视频在线| 欧美日产在线观看| 欧美一区二区三区思思人| 精品蜜桃在线看| 国产精品久久久久毛片软件| 亚洲丝袜另类动漫二区| 日韩美女视频一区| 亚洲无线码一区二区三区| 天天免费综合色| 国产一区二三区好的| 成人激情小说乱人伦| 色综合久久中文字幕| 欧美日韩一二三区| 欧美精品一区二区在线播放| 久久久亚洲国产美女国产盗摄| 欧美国产视频在线| 亚洲午夜在线观看视频在线| 麻豆精品一区二区三区| 国内成人精品2018免费看| 99久久综合国产精品| 欧美人与性动xxxx| 国产欧美综合在线观看第十页| 亚洲三级久久久| 免费视频一区二区| 色综合中文字幕| 精品人在线二区三区| 亚洲色图在线看| 久久激情综合网| 91成人免费在线视频| 精品国产人成亚洲区| 亚洲欧美国产毛片在线| 另类小说一区二区三区| 一本大道久久a久久综合| 日韩欧美自拍偷拍| 尤物av一区二区| 国产成人精品免费一区二区| 欧美性淫爽ww久久久久无| 久久精品一区蜜桃臀影院| 亚洲福中文字幕伊人影院| 国产精品99久久久久久似苏梦涵 | 91香蕉视频mp4| 欧美v亚洲v综合ⅴ国产v| 亚洲激情男女视频| 国产成人精品免费网站| 日韩一级在线观看| 亚洲国产aⅴ天堂久久| 粉嫩一区二区三区性色av| 欧美一级欧美一级在线播放| 亚洲一区视频在线观看视频| a4yy欧美一区二区三区| 久久久久久一二三区| 青青草国产精品亚洲专区无| 欧美三级日韩三级国产三级| 中文字幕亚洲区| 国产成人亚洲综合色影视| 欧美一级黄色大片| 亚洲成精国产精品女| 色婷婷精品大在线视频| 国产精品美女久久福利网站| 国产一二精品视频| 久久色在线视频| 九九九久久久精品| 91精品国产麻豆国产自产在线| 一区二区久久久久久| 日本乱人伦aⅴ精品| 国产精品国产馆在线真实露脸 | 久久99久久99| 日韩一区二区中文字幕| 午夜精品久久久久久| 欧美日韩一级黄| 五月激情六月综合| 欧美精品九九99久久| 日韩av在线播放中文字幕| 日韩欧美一级在线播放| 免费观看一级特黄欧美大片| 日韩精品专区在线影院重磅|