home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Ribbon_20020383512192006.psc / MDIForm1.frm < prev    next >
Text File  |  2006-12-19  |  5KB  |  172 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.MDIForm MDIForm1 
  4.    BackColor       =   &H8000000C&
  5.    Caption         =   "MDIForm1"
  6.    ClientHeight    =   6240
  7.    ClientLeft      =   60
  8.    ClientTop       =   420
  9.    ClientWidth     =   9285
  10.    LinkTopic       =   "MDIForm1"
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin Project1.ACPRibbon ACPRibbon1 
  13.       Align           =   1  'Align Top
  14.       Height          =   1740
  15.       Left            =   0
  16.       TabIndex        =   0
  17.       Top             =   0
  18.       Width           =   9285
  19.       _ExtentX        =   16378
  20.       _ExtentY        =   3069
  21.       BackColor       =   4210752
  22.       ForeColor       =   -2147483630
  23.    End
  24.    Begin MSComctlLib.ImageList ImageList1 
  25.       Left            =   2160
  26.       Top             =   2520
  27.       _ExtentX        =   1005
  28.       _ExtentY        =   1005
  29.       BackColor       =   -2147483643
  30.       ImageWidth      =   24
  31.       ImageHeight     =   23
  32.       MaskColor       =   12632256
  33.       _Version        =   393216
  34.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  35.          NumListImages   =   5
  36.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  37.             Picture         =   "MDIForm1.frx":0000
  38.             Key             =   ""
  39.          EndProperty
  40.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  41.             Picture         =   "MDIForm1.frx":05B5
  42.             Key             =   ""
  43.          EndProperty
  44.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  45.             Picture         =   "MDIForm1.frx":0BD9
  46.             Key             =   ""
  47.          EndProperty
  48.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  49.             Picture         =   "MDIForm1.frx":119F
  50.             Key             =   ""
  51.          EndProperty
  52.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  53.             Picture         =   "MDIForm1.frx":1752
  54.             Key             =   ""
  55.          EndProperty
  56.       EndProperty
  57.    End
  58. End
  59. Attribute VB_Name = "MDIForm1"
  60. Attribute VB_GlobalNameSpace = False
  61. Attribute VB_Creatable = False
  62. Attribute VB_PredeclaredId = True
  63. Attribute VB_Exposed = False
  64. Dim Theme As Integer
  65. Dim fchild As ChildMDI
  66.  
  67.  
  68. Private Sub ACPRibbon1_ButtonClick(ByVal ID As String, ByVal Caption As String)
  69. If ID = 0 Then
  70.     Theme = Theme + 1
  71.     If Theme = 3 Then Theme = 0
  72.     '# Set Theme
  73.     ACPRibbon1.Theme = Theme
  74.     '# Refresh control
  75.     ACPRibbon1.Refresh
  76.     
  77.     '# OPTIONAL - Load Background for Form.
  78.     MDIForm1.Picture = ACPRibbon1.LoadBackground
  79.     
  80.     '# OPTIONAL - Load Background for Form
  81.     MDIForm1.BackColor = ACPRibbon1.BackColor
  82.     
  83.     
  84.     '# Search for all MDIChild loaded
  85.     For i = 0 To Forms.Count - 1
  86.         If Forms(i).Name = "ChildMDI" Then
  87.             '# Change Theme from MDIChild Forms
  88.             Forms(i).Picture = ACPRibbon1.LoadBackground
  89.             Forms(i).BackColor = ACPRibbon1.BackColor
  90.             '# Change Forecolor from all Labels on MDIChild forms
  91.             For Each ctl In Forms(i)
  92.                 If TypeOf ctl Is Label Then ctl.ForeColor = ACPRibbon1.ForeColor
  93.             Next
  94.         End If
  95.     Next
  96.     
  97.     
  98.     
  99.     
  100. End If
  101.  
  102. If ID = 1 Then
  103.     '# Open a new Child Form
  104.     Set fchild = New ChildMDI
  105.     fchild.Show
  106.     
  107.     '# Set Theme for new Child Form
  108.     fchild.Picture = ACPRibbon1.LoadBackground
  109.     fchild.BackColor = ACPRibbon1.BackColor
  110.     
  111. End If
  112.  
  113.  
  114. End Sub
  115.  
  116.  
  117. Private Sub MDIForm_Load()
  118.  
  119.  
  120. Theme = 1
  121.  
  122. '# SET Theme
  123. ACPRibbon1.Theme = Theme    ' 0 - Black
  124.                             ' 1 - Blue
  125.                             ' 2 - Silver
  126.                         
  127.  
  128. '# OPTIONAL - Load Background for Form.
  129. MDIForm1.Picture = ACPRibbon1.LoadBackground
  130.  
  131. '# OPTIONAL - Load Background for Form
  132. MDIForm1.BackColor = ACPRibbon1.BackColor
  133.  
  134. '# Set ImageList to use for icons
  135. ACPRibbon1.ImageList = ImageList1
  136.  
  137. '# Set Buttons on Center verticaly    (True = Center, False(Default) = Align on Top)
  138. ACPRibbon1.ButtonCenter = False
  139.  
  140. '# Add Tabs ---   ID - Caption
  141. ACPRibbon1.AddTab "1", "Tab 1"
  142. ACPRibbon1.AddTab "2", "Tab 2"
  143. ACPRibbon1.AddTab "3", "Sample Tab"
  144. ACPRibbon1.AddTab "4", "New Tab"
  145. ACPRibbon1.AddTab "5", "WOW"
  146.  
  147. '# Add Cats ---   ID - Tab - Caption - ShowDialogButton
  148. ACPRibbon1.AddCat "1", "1", "Group 1", False
  149. ACPRibbon1.AddCat "2", "1", "One very large group", True
  150. ACPRibbon1.AddCat "3", "1", "Test", True
  151. ACPRibbon1.AddCat "4", "2", "More one group", True
  152. ACPRibbon1.AddCat "5", "2", "Hi!", False
  153. ACPRibbon1.AddCat "6", "3", "Hello World!", False
  154.  
  155. '# Add Button ---    ID - Cat - Capt. - Icons -   More Arrow   - ToolTip
  156. ACPRibbon1.AddButton "0", "1", "CHANGE" & vbNewLine & "THEME", 4
  157. ACPRibbon1.AddButton "1", "1", "OPEN CHILD", 1, False, "Open a new form child"
  158. ACPRibbon1.AddButton "2", "1", "Insert Picture", 2
  159. ACPRibbon1.AddButton "3", "1", "Insert" & vbNewLine & "Picture", 2
  160. ACPRibbon1.AddButton "4", "2", "Graph", 3
  161. ACPRibbon1.AddButton "5", "2", "Graph", 3, True
  162. ACPRibbon1.AddButton "6", "3", "Clip Art", 4
  163. ACPRibbon1.AddButton "7", "4", "SmartDraw", 5
  164.  
  165. '# Repaint Ribbon
  166. ACPRibbon1.Refresh
  167.  
  168.  
  169.  
  170.  
  171. End Sub
  172.