form1.frm

VB开发MAPINFO OLE的例子（MDI）

VERSION 4.00
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   Caption         =   "MDI Child"
   ClientHeight    =   5910
   ClientLeft      =   750
   ClientTop       =   2295
   ClientWidth     =   9870
   FillColor       =   &H00FFFFFF&
   FillStyle       =   0  'Solid
   Height          =   6315
   Left            =   690
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   394
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   658
   Top             =   1950
   Width           =   9990
End
Attribute VB_Name = "Form1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False

Private Sub Form_Initialize()
  Width = MDIForm1.Width * 0.75     ' Set width of form.
  Height = MDIForm1.Height * 0.75   ' Set height of form.
End Sub

Private Sub Form_Resize()
  If Val(MapInfo.Eval("FrontWindow()")) <> 0 Then
      MoveWindow Val(MapInfo.Eval("WindowInfo(FrontWindow(),12)")), 0, 0, ScaleWidth, ScaleHeight, 1
  End If
End Sub