home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / MDI_DEMO / MAINMDI.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-04-07  |  1.4 KB  |  46 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. Option Explicit
  27. Sub MDIForm_Load ()
  28. Left = ReadIniInt("Settings", "WindowLeft", (MainMdi.Left))
  29. Top = ReadIniInt("Settings", "WindowTop", (MainMdi.Top))
  30. Height = ReadIniInt("Settings", "WindowHeight", (MainMdi.Height))
  31. Width = ReadIniInt("Settings", "WindowWidth", (MainMdi.Width))
  32. WindowState = ReadIniInt("Settings", "WindowState", Normal)
  33. End Sub
  34. Sub MDIForm_Unload (Cancel As Integer)
  35. WriteIni "Settings", "WindowState", (WindowState)
  36. If WindowState = Normal Then
  37.     WriteIni "Settings", "WindowLeft", (Left)
  38.     WriteIni "Settings", "WindowTop", (Top)
  39.     WriteIni "Settings", "WindowWidth", (Width)
  40.     WriteIni "Settings", "WindowHeight", (Height)
  41. End If
  42. End Sub
  43. Sub OpenMenu_Click ()
  44. OpenDialog.Show 1
  45. End Sub
  46.