home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Office_20020242310102006.psc / Form1.frm < prev    next >
Text File  |  2006-10-10  |  9KB  |  273 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form Form1 
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "Application - document.docx"
  7.    ClientHeight    =   5280
  8.    ClientLeft      =   -45
  9.    ClientTop       =   -405
  10.    ClientWidth     =   8520
  11.    ClipControls    =   0   'False
  12.    ControlBox      =   0   'False
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   5280
  17.    ScaleWidth      =   8520
  18.    ShowInTaskbar   =   0   'False
  19.    StartUpPosition =   2  'CenterScreen
  20.    Begin Project1.ACPRibbon ACPRibbon1 
  21.       Height          =   2130
  22.       Left            =   0
  23.       TabIndex        =   4
  24.       Top             =   0
  25.       Width           =   8520
  26.       _ExtentX        =   15028
  27.       _ExtentY        =   3757
  28.    End
  29.    Begin MSComctlLib.ImageList ImageList1 
  30.       Left            =   840
  31.       Top             =   3960
  32.       _ExtentX        =   1005
  33.       _ExtentY        =   1005
  34.       BackColor       =   -2147483643
  35.       ImageWidth      =   24
  36.       ImageHeight     =   23
  37.       MaskColor       =   12632256
  38.       _Version        =   393216
  39.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  40.          NumListImages   =   10
  41.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  42.             Picture         =   "Form1.frx":0000
  43.             Key             =   ""
  44.          EndProperty
  45.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  46.             Picture         =   "Form1.frx":052F
  47.             Key             =   ""
  48.          EndProperty
  49.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  50.             Picture         =   "Form1.frx":0686
  51.             Key             =   ""
  52.          EndProperty
  53.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  54.             Picture         =   "Form1.frx":0A8F
  55.             Key             =   ""
  56.          EndProperty
  57.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  58.             Picture         =   "Form1.frx":0CFD
  59.             Key             =   ""
  60.          EndProperty
  61.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  62.             Picture         =   "Form1.frx":0F6D
  63.             Key             =   ""
  64.          EndProperty
  65.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  66.             Picture         =   "Form1.frx":1522
  67.             Key             =   ""
  68.          EndProperty
  69.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  70.             Picture         =   "Form1.frx":1B46
  71.             Key             =   ""
  72.          EndProperty
  73.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  74.             Picture         =   "Form1.frx":210C
  75.             Key             =   ""
  76.          EndProperty
  77.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  78.             Picture         =   "Form1.frx":26BF
  79.             Key             =   ""
  80.          EndProperty
  81.       EndProperty
  82.    End
  83.    Begin VB.Label Label1 
  84.       Alignment       =   2  'Center
  85.       Caption         =   "All icons are here!"
  86.       Height          =   375
  87.       Left            =   360
  88.       TabIndex        =   3
  89.       Top             =   4560
  90.       Visible         =   0   'False
  91.       Width           =   1455
  92.    End
  93.    Begin VB.Label Label6 
  94.       Alignment       =   2  'Center
  95.       Caption         =   "Sorry for my poor English, i┤m Brazilian."
  96.       Height          =   375
  97.       Left            =   2760
  98.       TabIndex        =   2
  99.       Top             =   3600
  100.       Visible         =   0   'False
  101.       Width           =   3015
  102.    End
  103.    Begin VB.Label Label5 
  104.       Alignment       =   2  'Center
  105.       Caption         =   $"Form1.frx":2C5A
  106.       Height          =   495
  107.       Left            =   120
  108.       TabIndex        =   1
  109.       Top             =   3000
  110.       Visible         =   0   'False
  111.       Width           =   8295
  112.    End
  113.    Begin VB.Label Label4 
  114.       Alignment       =   2  'Center
  115.       Caption         =   $"Form1.frx":2CE1
  116.       Height          =   495
  117.       Left            =   120
  118.       TabIndex        =   0
  119.       Top             =   2400
  120.       Visible         =   0   'False
  121.       Width           =   8295
  122.    End
  123. End
  124. Attribute VB_Name = "Form1"
  125. Attribute VB_GlobalNameSpace = False
  126. Attribute VB_Creatable = False
  127. Attribute VB_PredeclaredId = True
  128. Attribute VB_Exposed = False
  129. '#######################################
  130. '#                                     #
  131. '#           ACP Ribbon 2007           #
  132. '#                  by                 #
  133. '#      adrianopaladini@gmail.com      #
  134. '#                                     #
  135. '#                                     #
  136. '#  Visual from Office 2007 Beta 2 TR  #
  137. '#                                     #
  138. '#   Please Don┤t Remove Author Info!  #
  139. '#                                     #
  140. '#######################################
  141.  
  142.  
  143. '------------------------------------------------
  144. ' TO DO:
  145. '
  146. ' A) Update when Resize, resolve flicks
  147. ' B) Optimize Code
  148. ' C) Insert Mini Buttons, Combos and Checkbox on Each Categories
  149. ' D) Option to Show Menu Under the Ribbon and Hide Ribbon
  150. ' E) Make Menu
  151. ' F) Option to user customize the menu
  152. ' G) Group Tabs
  153. ' H) Add Comment to All code
  154. ' I) FINISHED this project!
  155. '
  156. '------------------------------------------------
  157.  
  158. '------------------------------------------------
  159. ' Bugs:
  160. '
  161. ' Please report to:
  162. '
  163. '         adrianopaladini@gmail.com
  164. '
  165. '------------------------------------------------
  166.  
  167.  
  168. Private Sub Form_Load()
  169.  
  170. '# SET Theme
  171. ACPRibbon1.Theme = 2    ' 0 - Black
  172.                         ' 1 - Blue
  173.                         ' 2 - Silver
  174.                         
  175.  
  176. '# Set ImageList to use for icons
  177. ACPRibbon1.ImageList = ImageList1
  178.  
  179. '# Set Circle Menu Button Picture with Index of image on imagelist
  180. ACPRibbon1.Icon = 1
  181.  
  182. '# Show Caption of Form
  183. ACPRibbon1.Caption = Me.Caption
  184.  
  185. '# Show Button to Customize Menu
  186. ACPRibbon1.ShowCustomMenu = True
  187.  
  188. '# Add TopButtons ---   ID - Capt. - Icons
  189. ACPRibbon1.AddTopButton "1", "New", 2
  190. ACPRibbon1.AddTopButton "2", "Open", 3
  191. ACPRibbon1.AddTopButton "3", "Print", 4
  192. ACPRibbon1.AddTopButton "3", "Save", 5
  193.  
  194. '# Add Tabs ---   ID - Caption
  195. ACPRibbon1.AddTab "1", "Tab 1"
  196. ACPRibbon1.AddTab "2", "Tab 2"
  197. ACPRibbon1.AddTab "3", "Sample Tab"
  198. ACPRibbon1.AddTab "4", "New Tab"
  199. ACPRibbon1.AddTab "5", "WOW"
  200.  
  201. '# Add Cats ---   ID - Tab - Caption - ShowDialogButton
  202. ACPRibbon1.AddCat "1", "1", "Group 1", False
  203. ACPRibbon1.AddCat "2", "1", "One very large group", True
  204. ACPRibbon1.AddCat "3", "1", "Test", True
  205. ACPRibbon1.AddCat "4", "2", "More one group", True
  206. ACPRibbon1.AddCat "5", "2", "Hi!", False
  207. ACPRibbon1.AddCat "6", "3", "Hello World!", False
  208.  
  209. '# Add Button ---    ID - Cat - Capt. - Icons -   More Arrow   - ToolTip
  210. ACPRibbon1.AddButton "1", "1", "Table", 6, False, "Insert a new Table"
  211. ACPRibbon1.AddButton "2", "1", "Insert Picture", 7
  212. ACPRibbon1.AddButton "2", "1", "Insert" & vbNewLine & "Picture", 7
  213. ACPRibbon1.AddButton "3", "2", "Graph", 8
  214. ACPRibbon1.AddButton "4", "2", "Graph", 8, True
  215. ACPRibbon1.AddButton "5", "3", "Clip Art", 9
  216. ACPRibbon1.AddButton "6", "4", "SmartDraw", 10
  217.  
  218. '# Repaint Ribbon
  219. ACPRibbon1.Refresh
  220.  
  221. End Sub
  222.  
  223. Private Sub Form_Resize()
  224.  
  225. '# this procedure will resize the ribbon
  226. ACPRibbon1.Resize
  227.  
  228. End Sub
  229.  
  230. Private Sub ACPRibbon1_MainMenuClick()
  231.  
  232. '# This Event occurs on click in Main Button Menu
  233. MsgBox "Main Menu Click"
  234.  
  235. End Sub
  236.  
  237. Private Sub ACPRibbon1_CustomClick()
  238.  
  239. '# This Event occurs on click in Custom Button Menu
  240. MsgBox "Custom Click"
  241.  
  242. End Sub
  243.  
  244. Private Sub ACPRibbon1_MenuClick(ByVal ID As String, ByVal Caption As String)
  245.  
  246. '# This Event occurs when click on each Menu Button
  247. MsgBox "MenuClick: " & ID & "--" & Caption
  248.  
  249. End Sub
  250.  
  251. Private Sub ACPRibbon1_TabClick(ByVal ID As String, ByVal Caption As String)
  252.  
  253. '# This Event occurs when click on each tab
  254. MsgBox "TabSelected: " & ID & "--" & Caption
  255.  
  256. End Sub
  257.  
  258. Private Sub ACPRibbon1_CatClick(ByVal ID As String, ByVal Caption As String)
  259.  
  260. '# This Event occurs when click on each ShowDialogButton for each Categorie
  261. MsgBox "ShowDialogClick: " & ID & "--" & Caption
  262.  
  263. End Sub
  264.  
  265. Private Sub ACPRibbon1_ButtonClick(ByVal ID As String, ByVal Caption As String)
  266.  
  267. '# This Event occurs when click on each Button
  268. MsgBox "ButtonClick: " & ID & "--" & Caption
  269.  
  270. End Sub
  271.  
  272.  
  273.