navigatedoc.dob

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

VERSION 5.00
Begin VB.UserDocument NavigateDoc 
   BackColor       =   &H00FFC0FF&
   ClientHeight    =   3600
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4800
   HScrollSmallChange=   225
   ScaleHeight     =   3600
   ScaleWidth      =   4800
   VScrollSmallChange=   225
   Begin VB.TextBox txtFirstDoc 
      Height          =   330
      Left            =   1620
      TabIndex        =   4
      Text            =   "深田恭子"
      Top             =   900
      Width           =   2895
   End
   Begin VB.CommandButton cmdShowForm 
      Caption         =   "Show Form"
      Height          =   375
      Left            =   135
      TabIndex        =   3
      Top             =   1530
      Width           =   1230
   End
   Begin VB.CommandButton cmdGoNext 
      Caption         =   "Go Next"
      Height          =   375
      Left            =   135
      TabIndex        =   2
      Top             =   900
      Width           =   1230
   End
   Begin VB.TextBox txtURL 
      Height          =   330
      Left            =   1620
      TabIndex        =   1
      Text            =   "http://www.163.com"
      Top             =   315
      Width           =   2895
   End
   Begin VB.CommandButton cmdNavigateTo 
      Caption         =   "Navigate To"
      Height          =   375
      Left            =   135
      TabIndex        =   0
      Top             =   315
      Width           =   1275
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助(&H)"
      NegotiatePosition=   3  'Right
      Begin VB.Menu mnuAbout 
         Caption         =   "About MyActiveDoc Project"
      End
   End
End
Attribute VB_Name = "NavigateDoc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private Sub cmdGoNext_Click()
    Dim strPath As String
    Dim strAbsPath As String
    Dim strCharPos As Long
    strPath = UserDocument.Parent.locationurl
    For strCharPos = Len(strPath) To 1 Step -1
        If Mid(strPath, strCharPos, 1) = "/" Or Mid(strPath, strCharPos, 1) = "\" Then Exit For
    Next strCharPos
    strAbsPath = Left(strPath, strCharPos)
    Set gFirstDoc = Me
    Hyperlink.NavigateTo strAbsPath & "SecndDoc.vbd"
End Sub

Private Sub cmdNavigateTo_Click()
    Hyperlink.NavigateTo txtURL.Text
End Sub

Private Sub cmdShowForm_Click()
    frmAux.txtAux.Text = txtURL.Text
    frmAux.Show vbModal
End Sub

Private Sub mnuAbout_Click()
    frmAbout.Show vbModal
End Sub

Private Sub txtFirstDoc_Change()
    PropertyChanged
End Sub


Private Sub UserDocument_EnterFocus()
    'MsgBox "EnterFocus 事件"
End Sub

Private Sub UserDocument_Initialize()
    'MsgBox "Initialize 事件"
End Sub

Private Sub UserDocument_InitProperties()
    'MsgBox "InitProperties 事件"
End Sub

Private Sub UserDocument_ReadProperties(PropBag As PropertyBag)
    'MsgBox "UserDocument ReadProperties 事件"
    txtFirstDoc.Text = PropBag.ReadProperty("strDocProp", "Hello")
End Sub

Private Sub UserDocument_Show()
    'Dim strContainer As String
    'strContainer = TypeName(UserDocument.Parent)
    'MsgBox "容器类型: " & strContainer
    
End Sub

Public Property Get strDocProp() As Variant
    strDocProp = txtFirstDoc.Text
End Property

Public Property Let strDocProp(ByVal vNewValue As Variant)
    txtFirstDoc.Text = vNewValue
End Property

Private Sub UserDocument_Terminate()
    'MsgBox "UserDocument Terminate 事件"
End Sub

Private Sub UserDocument_WriteProperties(PropBag As PropertyBag)
    PropBag.WriteProperty "StrDocProp", txtFirstDoc.Text, "Hello"
End Sub