home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / mdi_demo / mainmdi.frm < prev    next >
Text File  |  1994-04-07  |  1KB  |  58 lines
  1. VERSION 2.00
  2. Begin MDIForm MainMdi 
  3.    Caption         =   "Database and MDI Demo"
  4.    ClientHeight    =   5820
  5.    ClientLeft      =   1785
  6.    ClientTop       =   1530
  7.    ClientWidth     =   7365
  8.    Height          =   6510
  9.    Icon            =   MAINMDI.FRX:0000
  10.    Left            =   1725
  11.    LinkTopic       =   "MDIForm1"
  12.    Top             =   900
  13.    Width           =   7485
  14.    Begin Menu FileMenu 
  15.       Caption         =   "&File"
  16.       Begin Menu OpenMenu 
  17.          Caption         =   "&Open"
  18.       End
  19.       Begin Menu sep 
  20.          Caption         =   "-"
  21.       End
  22.       Begin Menu ExitMenu 
  23.          Caption         =   "E&xit"
  24.       End
  25.    End
  26. End
  27. Option Explicit
  28.  
  29. Sub MDIForm_Load ()
  30.  
  31. Left = ReadIniInt("Settings", "WindowLeft", (MainMdi.Left))
  32. Top = ReadIniInt("Settings", "WindowTop", (MainMdi.Top))
  33. Height = ReadIniInt("Settings", "WindowHeight", (MainMdi.Height))
  34. Width = ReadIniInt("Settings", "WindowWidth", (MainMdi.Width))
  35. WindowState = ReadIniInt("Settings", "WindowState", Normal)
  36.  
  37. End Sub
  38.  
  39. Sub MDIForm_Unload (Cancel As Integer)
  40.  
  41. WriteIni "Settings", "WindowState", (WindowState)
  42.  
  43. If WindowState = Normal Then
  44.     WriteIni "Settings", "WindowLeft", (Left)
  45.     WriteIni "Settings", "WindowTop", (Top)
  46.     WriteIni "Settings", "WindowWidth", (Width)
  47.     WriteIni "Settings", "WindowHeight", (Height)
  48. End If
  49.  
  50. End Sub
  51.  
  52. Sub OpenMenu_Click ()
  53.  
  54. OpenDialog.Show 1
  55.  
  56. End Sub
  57.  
  58.