home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Learn_Basi1768047102004.psc / tutorials / frm_cdl.frm next >
Text File  |  2004-07-10  |  8KB  |  272 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Main form "
  5.    ClientHeight    =   4365
  6.    ClientLeft      =   45
  7.    ClientTop       =   315
  8.    ClientWidth     =   5760
  9.    LinkTopic       =   "Form2"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   4365
  13.    ScaleWidth      =   5760
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.CommandButton Command10 
  17.       Caption         =   "Exit"
  18.       BeginProperty Font 
  19.          Name            =   "MS Sans Serif"
  20.          Size            =   12
  21.          Charset         =   0
  22.          Weight          =   700
  23.          Underline       =   0   'False
  24.          Italic          =   0   'False
  25.          Strikethrough   =   0   'False
  26.       EndProperty
  27.       Height          =   975
  28.       Left            =   120
  29.       Picture         =   "frm_cdl.frx":0000
  30.       Style           =   1  'Graphical
  31.       TabIndex        =   10
  32.       Top             =   3240
  33.       Width           =   5535
  34.    End
  35.    Begin VB.CommandButton Command1 
  36.       Caption         =   "Common Dialog Control"
  37.       BeginProperty Font 
  38.          Name            =   "MS Sans Serif"
  39.          Size            =   8.25
  40.          Charset         =   0
  41.          Weight          =   700
  42.          Underline       =   0   'False
  43.          Italic          =   0   'False
  44.          Strikethrough   =   0   'False
  45.       EndProperty
  46.       Height          =   855
  47.       Left            =   360
  48.       Style           =   1  'Graphical
  49.       TabIndex        =   1
  50.       Top             =   480
  51.       Width           =   1695
  52.    End
  53.    Begin VB.Frame Frame1 
  54.       Caption         =   "Choose Your Option"
  55.       BeginProperty Font 
  56.          Name            =   "Comic Sans MS"
  57.          Size            =   9.75
  58.          Charset         =   0
  59.          Weight          =   700
  60.          Underline       =   0   'False
  61.          Italic          =   0   'False
  62.          Strikethrough   =   0   'False
  63.       EndProperty
  64.       ForeColor       =   &H00FF0000&
  65.       Height          =   3015
  66.       Left            =   120
  67.       TabIndex        =   0
  68.       Top             =   120
  69.       Width           =   5535
  70.       Begin VB.CommandButton Command9 
  71.          Caption         =   "Slider Control"
  72.          BeginProperty Font 
  73.             Name            =   "MS Sans Serif"
  74.             Size            =   8.25
  75.             Charset         =   0
  76.             Weight          =   700
  77.             Underline       =   0   'False
  78.             Italic          =   0   'False
  79.             Strikethrough   =   0   'False
  80.          EndProperty
  81.          Height          =   855
  82.          Left            =   3600
  83.          Style           =   1  'Graphical
  84.          TabIndex        =   9
  85.          Top             =   2040
  86.          Width           =   1695
  87.       End
  88.       Begin VB.CommandButton Command8 
  89.          Caption         =   "Message Box"
  90.          BeginProperty Font 
  91.             Name            =   "MS Sans Serif"
  92.             Size            =   8.25
  93.             Charset         =   0
  94.             Weight          =   700
  95.             Underline       =   0   'False
  96.             Italic          =   0   'False
  97.             Strikethrough   =   0   'False
  98.          EndProperty
  99.          Height          =   855
  100.          Left            =   1920
  101.          Style           =   1  'Graphical
  102.          TabIndex        =   8
  103.          Top             =   2040
  104.          Width           =   1695
  105.       End
  106.       Begin VB.CommandButton Command7 
  107.          Caption         =   "Picture Box Control"
  108.          BeginProperty Font 
  109.             Name            =   "MS Sans Serif"
  110.             Size            =   8.25
  111.             Charset         =   0
  112.             Weight          =   700
  113.             Underline       =   0   'False
  114.             Italic          =   0   'False
  115.             Strikethrough   =   0   'False
  116.          EndProperty
  117.          Height          =   855
  118.          Left            =   240
  119.          Style           =   1  'Graphical
  120.          TabIndex        =   7
  121.          Top             =   2040
  122.          Width           =   1695
  123.       End
  124.       Begin VB.CommandButton Command6 
  125.          Caption         =   "Date/Time"
  126.          BeginProperty Font 
  127.             Name            =   "MS Sans Serif"
  128.             Size            =   8.25
  129.             Charset         =   0
  130.             Weight          =   700
  131.             Underline       =   0   'False
  132.             Italic          =   0   'False
  133.             Strikethrough   =   0   'False
  134.          EndProperty
  135.          Height          =   855
  136.          Left            =   3600
  137.          Style           =   1  'Graphical
  138.          TabIndex        =   6
  139.          Top             =   1200
  140.          Width           =   1695
  141.       End
  142.       Begin VB.CommandButton Command5 
  143.          Caption         =   "Pop-Up Menu"
  144.          BeginProperty Font 
  145.             Name            =   "MS Sans Serif"
  146.             Size            =   8.25
  147.             Charset         =   0
  148.             Weight          =   700
  149.             Underline       =   0   'False
  150.             Italic          =   0   'False
  151.             Strikethrough   =   0   'False
  152.          EndProperty
  153.          Height          =   855
  154.          Left            =   1920
  155.          Style           =   1  'Graphical
  156.          TabIndex        =   5
  157.          Top             =   1200
  158.          Width           =   1695
  159.       End
  160.       Begin VB.CommandButton Command4 
  161.          Caption         =   "Fonts"
  162.          BeginProperty Font 
  163.             Name            =   "MS Sans Serif"
  164.             Size            =   8.25
  165.             Charset         =   0
  166.             Weight          =   700
  167.             Underline       =   0   'False
  168.             Italic          =   0   'False
  169.             Strikethrough   =   0   'False
  170.          EndProperty
  171.          Height          =   855
  172.          Left            =   240
  173.          Style           =   1  'Graphical
  174.          TabIndex        =   4
  175.          Top             =   1200
  176.          Width           =   1695
  177.       End
  178.       Begin VB.CommandButton Command3 
  179.          Caption         =   "Timer Control"
  180.          BeginProperty Font 
  181.             Name            =   "MS Sans Serif"
  182.             Size            =   8.25
  183.             Charset         =   0
  184.             Weight          =   700
  185.             Underline       =   0   'False
  186.             Italic          =   0   'False
  187.             Strikethrough   =   0   'False
  188.          EndProperty
  189.          Height          =   855
  190.          Left            =   3600
  191.          Style           =   1  'Graphical
  192.          TabIndex        =   3
  193.          Top             =   360
  194.          Width           =   1695
  195.       End
  196.       Begin VB.CommandButton Command2 
  197.          Caption         =   "List Box Control"
  198.          BeginProperty Font 
  199.             Name            =   "MS Sans Serif"
  200.             Size            =   8.25
  201.             Charset         =   0
  202.             Weight          =   700
  203.             Underline       =   0   'False
  204.             Italic          =   0   'False
  205.             Strikethrough   =   0   'False
  206.          EndProperty
  207.          Height          =   855
  208.          Left            =   1920
  209.          Style           =   1  'Graphical
  210.          TabIndex        =   2
  211.          Top             =   360
  212.          Width           =   1695
  213.       End
  214.    End
  215. End
  216. Attribute VB_Name = "Form2"
  217. Attribute VB_GlobalNameSpace = False
  218. Attribute VB_Creatable = False
  219. Attribute VB_PredeclaredId = True
  220. Attribute VB_Exposed = False
  221. Private Sub Command1_Click()
  222. 'unloading main form
  223. Unload Me
  224. 'opening the new form
  225. Form1.Show
  226.  
  227. End Sub
  228.  
  229. Private Sub Command10_Click()
  230. End
  231. End Sub
  232.  
  233. Private Sub Command2_Click()
  234. Unload Me
  235. Form3.Show
  236. End Sub
  237.  
  238. Private Sub Command3_Click()
  239. Unload Me
  240. Form4.Show
  241. End Sub
  242.  
  243. Private Sub Command4_Click()
  244. Unload Me
  245. Form5.Show
  246. End Sub
  247.  
  248. Private Sub Command5_Click()
  249. Unload Me
  250. Form6.Show
  251. End Sub
  252.  
  253. Private Sub Command6_Click()
  254. Form7.Show
  255. Unload Me
  256. End Sub
  257.  
  258. Private Sub Command7_Click()
  259. Unload Me
  260. Form8.Show
  261. End Sub
  262.  
  263. Private Sub Command8_Click()
  264. Unload Me
  265. Form10.Show
  266. End Sub
  267.  
  268. Private Sub Command9_Click()
  269. Unload Me
  270. Form9.Show
  271. End Sub
  272.