main.frm

本文件包含200个visual baisc实例

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.MDIForm main 
   BackColor       =   &H8000000C&
   Caption         =   "MDI窗体"
   ClientHeight    =   5265
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   8625
   Icon            =   "main.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   1  '所有者中心
   Begin MSComDlg.CommonDialog Dialog1 
      Left            =   1050
      Top             =   2415
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Menu file 
      Caption         =   "文件"
      Begin VB.Menu new 
         Caption         =   "新建"
      End
      Begin VB.Menu open 
         Caption         =   "打开"
      End
      Begin VB.Menu close 
         Caption         =   "关闭所有"
      End
      Begin VB.Menu exit 
         Caption         =   "退出"
      End
   End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim main As New main_frm
Private Sub close_Click()
  On Error Resume Next
'循环语句
  For Each main In Forms
    If main.MDIChild = True Then
       Unload main
    End If
  Next
End Sub

Private Sub new_Click()  '新建子窗体
  Static i As Integer
  If i < 1 Then i = 1
  Dim main As New main_frm
  main.Caption = "新建" & i
  i = i + 1
  main.Show
End Sub

Private Sub open_Click()  '打开带图形的窗体
  Dialog1.Filter = "所有图形文件" & "|*.jpg; *.bmp ; *.ico ;*.gif;*.cur"
  Dialog1.ShowOpen
  Static i As Integer
    If i < 1 Then i = 1
      main_frm.Visible = False
      main.Caption = Dialog1.FileName
    i = i + 1
  main.Picture = LoadPicture(Dialog1.FileName)
  main.Show
End Sub

Private Sub exit_Click()
  End
End Sub