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