' docOne.dob Option Explicit Private Const mstrDefaultURL = "http://www.minich.com" Private mstrUserName As String Public Property Get UserName() As String UserName = mstrUserName End Property Private Sub chkTesting_Click() PropertyChanged "Testing" End Sub Private Sub txtUserName_Change() mstrUserName = txtUsername.Text PropertyChanged "UserName" End Sub Private Sub txtNumber_Change() PropertyChanged "NumberValue" End Sub Private Sub txtURL_Change() PropertyChanged "URLEntry" End Sub Private Sub cmdDouble_Click() txtNumber.Text = 2 * Val(txtNumber.Text) End Sub Private Sub cmdNavigate_Click() On Error GoTo HandleNavigateErrors Hyperlink.NavigateTo txtURL.Text cmdNavigate_Exit: Exit Sub HandleNavigateErrors: MsgBox "Invalid URL", vbOKOnly, "Hyperlink Failure" Resume Next End Sub Private Sub mnuHelpAbout_Click() frmAbout.Show vbModal End Sub Private Sub mnuSwitchDocTwo_Click() If chkTesting Then Hyperlink.NavigateTo "C:\Microsoft Visual Studio\VB98\docTwo.vbd" Else Hyperlink.NavigateTo App.Path & "\docTwo.vbd" End If End Sub Private Sub UserDocument_Initialize() txtURL.Text = mstrDefaultURL Set gobjDocument = Me End Sub Private Sub UserDocument_ReadProperties(PropBag As PropertyBag) txtUsername.Text = PropBag.ReadProperty("UserName", "") txtURL.Text = PropBag.ReadProperty("URLEntry", mstrDefaultURL) txtNumber.Text = PropBag.ReadProperty("NumberValue", "") chkTesting.Value = PropBag.ReadProperty("Testing", False) End Sub Private Sub UserDocument_WriteProperties(PropBag As PropertyBag) PropBag.WriteProperty "UserName", mstrUserName PropBag.WriteProperty "URLEntry", txtURL.Text PropBag.WriteProperty "NumberValue", txtNumber.Text PropBag.WriteProperty "Testing", chkTesting.Value End Sub