webbrowser.frm

来自「个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助」· FRM 代码 · 共 53 行

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   6255
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7695
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture1 
      Align           =   1  'Align Top
      BorderStyle     =   0  'None
      Height          =   555
      Left            =   0
      ScaleHeight     =   555
      ScaleWidth      =   7695
      TabIndex        =   0
      Top             =   0
      Width           =   7695
      Begin VB.CommandButton Command2 
         Caption         =   "退出"
         Height          =   315
         Left            =   1200
         TabIndex        =   2
         Top             =   120
         Width           =   855
      End
      Begin VB.CommandButton Command1 
         Caption         =   "新窗口"
         Height          =   315
         Left            =   180
         TabIndex        =   1
         Top             =   120
         Width           =   855
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    Dim browser As frmbrowser
    Set browser = New frmbrowser
    browser.Show
End Sub

Private Sub Command2_Click()
    End
End Sub