5-4m.frm

vb6.0编程实例详解,很详细的介绍,对学习VB有帮助

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "图片阅览"
   ClientHeight    =   5565
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   8475
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   120
      Top             =   120
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Menu File 
      Caption         =   "文件（&F）"
      Begin VB.Menu OPen 
         Caption         =   "打开（&O）"
      End
      Begin VB.Menu Close 
         Caption         =   "关闭（&C）"
      End
      Begin VB.Menu Sep1 
         Caption         =   "-"
      End
      Begin VB.Menu Exit 
         Caption         =   "退出"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu Window 
      Caption         =   "窗口（&W）"
      WindowList      =   -1  'True
      Begin VB.Menu TileH 
         Caption         =   "水平平铺（&H）"
      End
      Begin VB.Menu TileV 
         Caption         =   "垂直平铺（&V）"
      End
      Begin VB.Menu Cascade 
         Caption         =   "层叠（&C）"
      End
      Begin VB.Menu Sep2 
         Caption         =   "-"
      End
      Begin VB.Menu Arrange 
         Caption         =   "排列图标（&A）"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim MaxForm As Integer '保存子窗体数

Private Sub Arrange_Click()
    MDIForm1.Arrange vbArrangeIcons
End Sub

Private Sub Cascade_Click()
    MDIForm1.Arrange vbCascade
End Sub

Private Sub Close_Click()
    If MaxForm > 0 Then
        Unload MDIForm1.ActiveForm '关闭当前活动窗体
        MaxForm = MaxForm - 1
    End If
End Sub

Private Sub Exit_Click()
    Unload MDIForm1
End Sub

Private Sub MDIForm_Load()
    MaxForm = 0 '初始化数据
End Sub

Private Sub OPen_Click()
    Dim FileName As String
    
    CommonDialog1.Filter = "所有图形文件" & _
        "|*.jpg;*.bmp;*.dib;*.wmf;*.ico;*.gif;*.rle" & _
        "|位图 (*.bmp)|*.bmp" & _
        "|GIF图象 (*.gif)|*.gif" & _
        "|JPEG图象 (*.jpg)|*.jpg" & _
        "|图标 (*.ico, *.cur)|*.ico;*.cur" & _
        "|图元文件 (*.wmf, *.emf)|*.wmf;*.emf"
    CommonDialog1.ShowOpen
    FileName = CommonDialog1.FileName
    
    If Len(FileName) > 0 Then
        Dim f As New Form1 '定义新窗体
        
        f.Show '显示新建窗体
        f.Picture2.Picture = LoadPicture(CommonDialog1.FileName) '显示图片
        f.Init_Scroll '调整滚动条
        f.Caption = FileName '显示文件名
        MaxForm = MaxForm + 1
    End If
End Sub

Private Sub TileH_Click()
    MDIForm1.Arrange vbTileHorizontal
End Sub

Private Sub TileV_Click()
    MDIForm1.Arrange vbTileVertical
End Sub