secnddoc.dob

个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助

VERSION 5.00
Begin VB.UserDocument SecndDoc 
   BackColor       =   &H0000C000&
   ClientHeight    =   5385
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   6870
   HScrollSmallChange=   225
   ScaleHeight     =   5385
   ScaleWidth      =   6870
   VScrollSmallChange=   225
   Begin VB.CommandButton cmdGoBack 
      Caption         =   "Go Back"
      Height          =   420
      Left            =   270
      TabIndex        =   1
      Top             =   765
      Width           =   1140
   End
   Begin VB.PictureBox Picture1 
      Height          =   4425
      Left            =   1935
      Picture         =   "SecndDoc.dox":0000
      ScaleHeight     =   4365
      ScaleWidth      =   4185
      TabIndex        =   2
      Top             =   630
      Width           =   4245
   End
   Begin VB.Label lblCaption 
      Caption         =   "SecndDoc User document "
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   45
      TabIndex        =   0
      Top             =   90
      Width           =   4020
   End
End
Attribute VB_Name = "SecndDoc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Private Sub cmdGoBack_Click()
    UserDocument.Hyperlink.GoBack
End Sub

Private Sub UserDocument_Show()
    If Not gFirstDoc Is Nothing Then
        lblCaption.Caption = gFirstDoc.strDocProp
        Set gFirstDoc = Nothing
    End If
End Sub