home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD1773.psc / Form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-11-11  |  3.2 KB  |  105 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form2"
  4.    ClientHeight    =   3825
  5.    ClientLeft      =   165
  6.    ClientTop       =   450
  7.    ClientWidth     =   6150
  8.    LinkTopic       =   "Form2"
  9.    ScaleHeight     =   3825
  10.    ScaleWidth      =   6150
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton Command3 
  13.       Caption         =   "Command3"
  14.       Height          =   855
  15.       Left            =   720
  16.       TabIndex        =   4
  17.       Top             =   2640
  18.       Width           =   3975
  19.    End
  20.    Begin VB.ComboBox Combo1 
  21.       Height          =   315
  22.       Left            =   2040
  23.       TabIndex        =   0
  24.       Text            =   "Combo1"
  25.       Top             =   360
  26.       Width           =   3015
  27.    End
  28.    Begin VB.PictureBox Picture1 
  29.       Height          =   495
  30.       Left            =   2160
  31.       ScaleHeight     =   435
  32.       ScaleWidth      =   2835
  33.       TabIndex        =   3
  34.       TabStop         =   0   'False
  35.       Top             =   840
  36.       Width           =   2895
  37.    End
  38.    Begin VB.CommandButton Command2 
  39.       Caption         =   "Command2"
  40.       Height          =   975
  41.       Left            =   2520
  42.       TabIndex        =   2
  43.       Top             =   1440
  44.       Width           =   2175
  45.    End
  46.    Begin VB.CommandButton Command1 
  47.       Caption         =   "Command1"
  48.       Height          =   975
  49.       Left            =   600
  50.       TabIndex        =   1
  51.       Top             =   1440
  52.       Width           =   1815
  53.    End
  54. Attribute VB_Name = "Form1"
  55. Attribute VB_GlobalNameSpace = False
  56. Attribute VB_Creatable = False
  57. Attribute VB_PredeclaredId = True
  58. Attribute VB_Exposed = False
  59. Option Explicit
  60. Private m_oMDIContainerForm As Form
  61. Public Property Set MDIContainerForm(oForm As Form)
  62.     Set m_oMDIContainerForm = oForm
  63. End Property
  64. Public Sub ResizeCtls()
  65.     If m_oMDIContainerForm Is Nothing Then
  66.         Exit Sub
  67.     End If
  68.     'Put resize code here
  69.     '------------------------------------------------
  70.     Me.Combo1.Left = 0
  71.     Me.Combo1.Top = 0
  72.     Me.Combo1.Width = m_oMDIContainerForm.ScaleWidth
  73.     Me.Picture1.Left = 0
  74.     Me.Picture1.Height = 500
  75.     Me.Picture1.Top = m_oMDIContainerForm.ScaleHeight - Form1.Picture1.Height
  76.     Me.Picture1.Width = m_oMDIContainerForm.ScaleWidth
  77.     '------------------------------------------------
  78. End Sub
  79. Public Sub Menu_Build()
  80.     m_oMDIContainerForm.mnuTop1.Caption = "&File"
  81.     m_oMDIContainerForm.mnuTop2.Caption = "&Edit"
  82.     m_oMDIContainerForm.mnuTop1_Menus(0).Caption = "&Open"
  83.     Load m_oMDIContainerForm.mnuTop1_Menus(1)
  84.     m_oMDIContainerForm.mnuTop1_Menus(1).Caption = "&Save"
  85. End Sub
  86. Public Sub Menu_Selection(mnu As Menu)
  87.     Select Case mnu.Name
  88.         Case "mnuTop1_Menus"
  89.             Select Case mnu.Index
  90.                 Case 0
  91.                     MsgBox "Open Menu!"
  92.                 Case 1
  93.                     MsgBox "Save Menu!"
  94.             End Select
  95.         Case "mnuTop2"
  96.             MsgBox "Edit Menu!"
  97.     End Select
  98. End Sub
  99. Private Sub Command1_Click()
  100.     MsgBox "test"
  101. End Sub
  102. Private Sub Form_Unload(Cancel As Integer)
  103.     Set m_oMDIContainerForm = Nothing
  104. End Sub
  105.