home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / slyded / mdimain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-11-29  |  3.1 KB  |  114 lines
  1. VERSION 2.00
  2. Begin MDIForm MDIMain 
  3.    Caption         =   "Slide Maker"
  4.    ClientHeight    =   4290
  5.    ClientLeft      =   735
  6.    ClientTop       =   2145
  7.    ClientWidth     =   7515
  8.    Height          =   4665
  9.    Icon            =   MDIMAIN.FRX:0000
  10.    Left            =   690
  11.    LinkTopic       =   "MDIForm1"
  12.    Top             =   1815
  13.    Width           =   7605
  14.    Begin PictureBox Picture1 
  15.       Align           =   1  'Align Top
  16.       BackColor       =   &H00C0C0C0&
  17.       Height          =   795
  18.       Left            =   0
  19.       ScaleHeight     =   765
  20.       ScaleWidth      =   7485
  21.       TabIndex        =   0
  22.       Top             =   0
  23.       Width           =   7515
  24.       Begin SSRibbon GroupPush3D4 
  25.          AutoSize        =   0  'None
  26.          GroupNumber     =   4
  27.          Height          =   675
  28.          Left            =   2100
  29.          PictureUp       =   MDIMAIN.FRX:0302
  30.          Top             =   30
  31.          Width           =   675
  32.       End
  33.       Begin SSRibbon GroupPush3D3 
  34.          AutoSize        =   0  'None
  35.          GroupNumber     =   3
  36.          Height          =   675
  37.          Left            =   1410
  38.          PictureUp       =   MDIMAIN.FRX:0B3C
  39.          Top             =   30
  40.          Width           =   675
  41.       End
  42.       Begin SSRibbon GroupPush3D2 
  43.          AutoSize        =   0  'None
  44.          GroupNumber     =   2
  45.          Height          =   675
  46.          Left            =   720
  47.          PictureUp       =   MDIMAIN.FRX:1376
  48.          Top             =   30
  49.          Width           =   675
  50.       End
  51.       Begin SSRibbon GroupPush3D1 
  52.          AutoSize        =   0  'None
  53.          Height          =   675
  54.          Left            =   30
  55.          PictureUp       =   MDIMAIN.FRX:1BB0
  56.          Top             =   30
  57.          Width           =   675
  58.       End
  59.       Begin CommonDialog CMDialog1 
  60.          DefaultExt      =   ".MDB"
  61.          DialogTitle     =   "Select a Contract Database"
  62.          Filename        =   "*.MDB"
  63.          Filter          =   "Access|*.mdb|dBase|*.dbf|Excel|*.xls|Lotus|*.wk1;*.wk3"
  64.          InitDir         =   "C:\"
  65.          Left            =   6450
  66.          Top             =   30
  67.       End
  68.    End
  69. Sub GroupPush3D1_Click (Value As Integer)
  70.  If Value Then
  71.   Slide.Text1.Visible = True
  72.  Else
  73.   Slide.Text1.Visible = False
  74.  End If
  75. End Sub
  76. Sub GroupPush3D2_Click (Value As Integer)
  77.  If Value Then
  78.   Slide.Text2.Visible = True
  79.  Else
  80.   Slide.Text2.Visible = False
  81.  End If
  82. End Sub
  83. Sub GroupPush3D3_Click (Value As Integer)
  84.  If Value Then
  85.   Slide.Text3.Visible = True
  86.  Else
  87.   Slide.Text3.Visible = False
  88.  End If
  89. End Sub
  90. Sub GroupPush3D4_Click (Value As Integer)
  91.  If Value Then
  92.   Slide.Graph1.Visible = True
  93.  Else
  94.   Slide.Graph1.Visible = False
  95.  End If
  96. End Sub
  97. Sub GroupPush3D5_Click (Value As Integer)
  98.  If Value Then
  99.   Beep
  100.  End If
  101. End Sub
  102. Sub MDIForm_Load ()
  103. Load Slide
  104. Slide.Caption = "My Slide"
  105. Slide.Text1.Visible = False
  106. Slide.Text2.Visible = False
  107. Slide.Text3.Visible = False
  108. Slide.Graph1.Visible = False
  109. End Sub
  110. Sub MDIOpen_Click ()
  111.     CMDialog1.Action = 1
  112.     Load Slide
  113. End Sub
  114.