home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD100179202000.psc / MDIForm1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-09-20  |  3.2 KB  |  105 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.MDIForm frmMain 
  4.    AutoShowChildren=   0   'False
  5.    BackColor       =   &H8000000C&
  6.    Caption         =   "Sparq's Phone Book"
  7.    ClientHeight    =   4650
  8.    ClientLeft      =   165
  9.    ClientTop       =   450
  10.    ClientWidth     =   8790
  11.    LinkTopic       =   "MDIForm1"
  12.    StartUpPosition =   2  'CenterScreen
  13.    WindowState     =   2  'Maximized
  14.    Begin MSComctlLib.StatusBar StatusBar1 
  15.       Align           =   2  'Align Bottom
  16.       Height          =   255
  17.       Left            =   0
  18.       TabIndex        =   0
  19.       Top             =   4395
  20.       Width           =   8790
  21.       _ExtentX        =   15505
  22.       _ExtentY        =   450
  23.       _Version        =   393216
  24.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  25.          NumPanels       =   1
  26.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  27.             Alignment       =   1
  28.             AutoSize        =   1
  29.             Object.Width           =   15002
  30.             Text            =   "E-Mail jason@alphamedia.net with Question, Comments, etc..  PLEASE VOTE."
  31.             TextSave        =   "E-Mail jason@alphamedia.net with Question, Comments, etc..  PLEASE VOTE."
  32.          EndProperty
  33.       EndProperty
  34.    End
  35.    Begin VB.Menu mnuFile 
  36.       Caption         =   "&File"
  37.       Begin VB.Menu mnuExit 
  38.          Caption         =   "E&xit"
  39.       End
  40.    End
  41.    Begin VB.Menu mnuWindows 
  42.       Caption         =   "&Windows"
  43.       Begin VB.Menu mnuShowContactList 
  44.          Caption         =   "Show / Hide Contact &List"
  45.       End
  46.       Begin VB.Menu mnuToDo 
  47.          Caption         =   "Show / Hide &To Do List"
  48.       End
  49.    End
  50.    Begin VB.Menu mnuExport 
  51.       Caption         =   "&Export"
  52.       Begin VB.Menu mnuHTMl 
  53.          Caption         =   "As &HTML"
  54.       End
  55.    End
  56. Attribute VB_Name = "frmMain"
  57. Attribute VB_GlobalNameSpace = False
  58. Attribute VB_Creatable = False
  59. Attribute VB_PredeclaredId = True
  60. Attribute VB_Exposed = False
  61. Public DB As Database
  62. Public ContactTable As Recordset
  63. Private Sub MDIForm_Load()
  64.     Set DB = OpenDatabase(App.Path & "\pbook.mdb")
  65.     mnuShowContactList_Click
  66.     mnuToDo_Click
  67.     Load frmBDay
  68.     If frmBDay.List1.ListCount < 1 Then Unload frmBDay: GoTo 10
  69.     frmBDay.Show
  70. End Sub
  71. Private Sub mnuExit_Click()
  72.     End
  73. End Sub
  74. Private Sub mnuHTMl_Click()
  75.     With frmHTML
  76.         .Left = (frmMain.Width / 2) - (.Width / 2)
  77.         .Top = (frmMain.Height / 2) - (.Height / 2)
  78.         .Caption = "Export as HTML"
  79.         .txtPath = App.Path
  80.         .Show 1
  81.     End With
  82. End Sub
  83. Public Sub mnuShowContactList_Click()
  84.     If Not frmContList.Visible Then
  85.         Load frmContList
  86.         frmContList.Top = 60
  87.         frmContList.Left = 60
  88.         frmContList.Show
  89.     Else
  90.         Unload frmContList
  91.     End If
  92. End Sub
  93. Private Sub mnuToDo_Click()
  94.     If Not frmToDo.Visible Then
  95.         Load frmToDo
  96.         frmToDo.Top = 60
  97.         frmToDo.Height = 4725
  98.         frmToDo.Width = 4095
  99.         frmToDo.Left = Screen.Width - (frmToDo.Width + 160)
  100.         frmToDo.Show
  101.     Else
  102.         Unload frmToDo
  103.     End If
  104. End Sub
  105.