home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / PGUIDE / OPTIMIZE / EXPLORE.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-09-16  |  8.6 KB  |  265 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.1#0"; "COMCTL32.OCX"
  3. Begin VB.Form frmExplore 
  4.    Caption         =   "Optimizing VB 5.0"
  5.    ClientHeight    =   5865
  6.    ClientLeft      =   1770
  7.    ClientTop       =   1950
  8.    ClientWidth     =   3420
  9.    ClipControls    =   0   'False
  10.    Icon            =   "Explore.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    LockControls    =   -1  'True
  13.    MaxButton       =   0   'False
  14.    PaletteMode     =   1  'UseZOrder
  15.    ScaleHeight     =   5865
  16.    ScaleWidth      =   3420
  17.    WhatsThisHelp   =   -1  'True
  18.    Begin ComctlLib.TreeView tvExample 
  19.       Height          =   5130
  20.       Left            =   -30
  21.       TabIndex        =   0
  22.       Top             =   450
  23.       Width           =   3450
  24.       _ExtentX        =   6085
  25.       _ExtentY        =   9049
  26.       Indentation     =   529
  27.       LabelEdit       =   1
  28.       LineStyle       =   1
  29.       Style           =   7
  30.       ImageList       =   "ilExplore"
  31.       BorderStyle     =   1
  32.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  33.          Name            =   "MS Sans Serif"
  34.          Size            =   8.25
  35.          Charset         =   0
  36.          Weight          =   400
  37.          Underline       =   0   'False
  38.          Italic          =   0   'False
  39.          Strikethrough   =   0   'False
  40.       EndProperty
  41.    End
  42.    Begin ComctlLib.StatusBar StatusBar1 
  43.       Align           =   2  'Align Bottom
  44.       Height          =   285
  45.       Left            =   0
  46.       TabIndex        =   1
  47.       Top             =   5580
  48.       Width           =   3420
  49.       _ExtentX        =   6033
  50.       _ExtentY        =   503
  51.       SimpleText      =   ""
  52.       BeginProperty Panels {2C787A51-E01C-11CF-8E74-00A0C90F26F8} 
  53.          NumPanels       =   3
  54.          BeginProperty Panel1 {2C787A53-E01C-11CF-8E74-00A0C90F26F8} 
  55.             AutoSize        =   1
  56.             Object.Width           =   2558
  57.             MinWidth        =   2558
  58.             TextSave        =   ""
  59.             Object.Tag             =   ""
  60.          EndProperty
  61.          BeginProperty Panel2 {2C787A53-E01C-11CF-8E74-00A0C90F26F8} 
  62.             Style           =   5
  63.             AutoSize        =   2
  64.             Object.Width           =   1588
  65.             MinWidth        =   1587
  66.             TextSave        =   "12:53 PM"
  67.             Object.Tag             =   ""
  68.          EndProperty
  69.          BeginProperty Panel3 {2C787A53-E01C-11CF-8E74-00A0C90F26F8} 
  70.             Style           =   6
  71.             AutoSize        =   2
  72.             Object.Width           =   1429
  73.             TextSave        =   "9/6/96"
  74.             Object.Tag             =   ""
  75.          EndProperty
  76.       EndProperty
  77.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  78.          Name            =   "MS Sans Serif"
  79.          Size            =   8.25
  80.          Charset         =   0
  81.          Weight          =   400
  82.          Underline       =   0   'False
  83.          Italic          =   0   'False
  84.          Strikethrough   =   0   'False
  85.       EndProperty
  86.    End
  87.    Begin ComctlLib.ImageList ilExplore 
  88.       Left            =   2715
  89.       Top             =   600
  90.       _ExtentX        =   1005
  91.       _ExtentY        =   1005
  92.       BackColor       =   -2147483643
  93.       ImageWidth      =   16
  94.       ImageHeight     =   16
  95.       MaskColor       =   16711935
  96.       BeginProperty Images {8556BCD1-E01E-11CF-8E74-00A0C90F26F8} 
  97.          NumListImages   =   7
  98.          BeginProperty ListImage1 {8556BCD3-E01E-11CF-8E74-00A0C90F26F8} 
  99.             Picture         =   "Explore.frx":030A
  100.             Key             =   ""
  101.          EndProperty
  102.          BeginProperty ListImage2 {8556BCD3-E01E-11CF-8E74-00A0C90F26F8} 
  103.             Picture         =   "Explore.frx":0624
  104.             Key             =   ""
  105.          EndProperty
  106.          BeginProperty ListImage3 {8556BCD3-E01E-11CF-8E74-00A0C90F26F8} 
  107.             Picture         =   "Explore.frx":0736
  108.             Key             =   ""
  109.          EndProperty
  110.          BeginProperty ListImage4 {8556BCD3-E01E-11CF-8E74-00A0C90F26F8} 
  111.             Picture         =   "Explore.frx":0848
  112.             Key             =   ""
  113.          EndProperty
  114.          BeginProperty ListImage5 {8556BCD3-E01E-11CF-8E74-00A0C90F26F8} 
  115.             Picture         =   "Explore.frx":095A
  116.             Key             =   ""
  117.          EndProperty
  118.          BeginProperty ListImage6 {8556BCD3-E01E-11CF-8E74-00A0C90F26F8} 
  119.             Picture         =   "Explore.frx":0A6C
  120.             Key             =   ""
  121.          EndProperty
  122.          BeginProperty ListImage7 {8556BCD3-E01E-11CF-8E74-00A0C90F26F8} 
  123.             Picture         =   "Explore.frx":0B7E
  124.             Key             =   ""
  125.          EndProperty
  126.       EndProperty
  127.    End
  128.    Begin VB.Line Line1 
  129.       BorderColor     =   &H00808080&
  130.       Index           =   0
  131.       X1              =   0
  132.       X2              =   9195
  133.       Y1              =   15
  134.       Y2              =   15
  135.    End
  136.    Begin VB.Label lblInfoWnd 
  137.       BorderStyle     =   1  'Fixed Single
  138.       Caption         =   "Optimizing Code Examples"
  139.       Height          =   315
  140.       Index           =   0
  141.       Left            =   0
  142.       TabIndex        =   2
  143.       Top             =   105
  144.       Width           =   3400
  145.    End
  146.    Begin VB.Line Line1 
  147.       BorderColor     =   &H00FFFFFF&
  148.       BorderWidth     =   2
  149.       Index           =   1
  150.       X1              =   0
  151.       X2              =   9195
  152.       Y1              =   30
  153.       Y2              =   30
  154.    End
  155.    Begin VB.Menu mnu_File 
  156.       Caption         =   "&File"
  157.       Begin VB.Menu mnu_FileExit 
  158.          Caption         =   "E&xit"
  159.       End
  160.    End
  161.    Begin VB.Menu mnu_View 
  162.       Caption         =   "&View"
  163.    End
  164.    Begin VB.Menu mnu_Tools 
  165.       Caption         =   "&Tools"
  166.       Begin VB.Menu mnu_ToolsCloseAll 
  167.          Caption         =   "&Close All Windows"
  168.       End
  169.    End
  170.    Begin VB.Menu mnu_Help 
  171.       Caption         =   "&Help"
  172.       Begin VB.Menu mnu_HelpAbout 
  173.          Caption         =   "&About..."
  174.       End
  175.    End
  176. Attribute VB_Name = "frmExplore"
  177. Attribute VB_GlobalNameSpace = False
  178. Attribute VB_Creatable = False
  179. Attribute VB_TemplateDerived = False
  180. Attribute VB_PredeclaredId = True
  181. Attribute VB_Exposed = False
  182. Option Explicit
  183. Dim frmlastForm As Form
  184. Private Sub Form_Load()
  185.   Me.Move 0, (Screen.Height - Me.Height) / 2
  186.   Me.Show
  187.   DoEvents
  188. End Sub
  189. Private Sub Form_Paint()
  190.   Debug.Print "frmExplore Painted"
  191. End Sub
  192. Private Sub Form_Resize()
  193.   Dim lfrmScaleWidth As Long
  194.   Dim lRetVal As Long
  195.   On Error Resume Next
  196.   ' Disable automatic screen updating
  197.   'lRetVal = SetRedraw(Me.hWnd, 0)
  198.   lfrmScaleWidth = frmExplore.ScaleWidth
  199.   tvExample.Move 0, 495, lfrmScaleWidth, frmExplore.ScaleHeight - tvExample.TOP - StatusBar1.Height - 20
  200.   'tvExample.Width = lfrmScaleWidth
  201.   'tvExample.Height = frmExplore.ScaleHeight - tvExample.Top - StatusBar1.Height - 20
  202.   lblInfoWnd(0).Width = lfrmScaleWidth
  203.   Line1(0).X2 = lfrmScaleWidth
  204.   Line1(1).X2 = lfrmScaleWidth
  205.   On Error GoTo 0
  206.   ' Enable automatic screen updating
  207.   'lRetVal = SetRedraw(Me.hWnd, 1)
  208. End Sub
  209. Private Sub Form_Unload(Cancel As Integer)
  210.   Dim iFormCount As Integer
  211.   For iFormCount = Forms.Count - 1 To 0 Step -1
  212.     Unload Forms(iFormCount)
  213.   Next iFormCount
  214. End Sub
  215. Private Sub mnu_FileExit_Click()
  216.   Unload Me
  217. End Sub
  218. Private Sub mnu_HelpAbout_Click()
  219.   frmAbout.Show
  220. End Sub
  221. Private Sub mnu_ToolsCloseAll_Click()
  222.   Dim iFormCount As Integer
  223.   For iFormCount = Forms.Count - 1 To 1 Step -1
  224.     Unload Forms(iFormCount)
  225.   Next iFormCount
  226. End Sub
  227. Private Sub tvExample_NodeClick(ByVal Node As Node)
  228.   Dim lRetVal As Long
  229.   Select Case Node.Text
  230.     Case "Algorithms"
  231.       Algorithms.Show
  232.       Algorithms.SetFocus
  233.     Case "Paint Picture"
  234.       frmPaintPic.Show
  235.       frmPaintPic.SetFocus
  236.     Case "Graphics"
  237.       Graphics.Show
  238.       Graphics.SetFocus
  239.     Case "String Manipulation"
  240.       Strings.Show
  241.       Strings.SetFocus
  242.     Case "Code Optimizations"
  243.       Code.Show
  244.       Code.SetFocus
  245.     Case "Numeric Types"
  246.       frmNumbers.Show
  247.       frmNumbers.SetFocus
  248.     Case "Picture vs. Image"
  249.       Pictures.Show
  250.       Pictures.SetFocus
  251.     Case "Destroy Form Objects"
  252.       frmShow2.Show
  253.       frmShow2.SetFocus
  254.     Case "Splash Screen"
  255.       frmSplashDemo.Show
  256.       frmSplashDemo.SetFocus
  257.     Case "Collections"
  258.       frmCollection.Show
  259.       frmCollection.SetFocus
  260.     Case Else
  261.       MsgBox "I don't know that form type.", vbQuestion, "Show Example Error"
  262.     End Select
  263.   DoEvents
  264. End Sub
  265.