dhtmleditorform.frm

html编辑器

VERSION 5.00
Object = "{683364A1-B37D-11D1-ADC5-006008A5848C}#1.0#0"; "dhtmled.ocx"
Begin VB.Form DHTMLEditorForm 
   Caption         =   "My DHTML Sample Program"
   ClientHeight    =   6090
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   6915
   LinkTopic       =   "Form1"
   ScaleHeight     =   6090
   ScaleWidth      =   6915
   StartUpPosition =   3  'Windows Default
   Begin DHTMLEDLibCtl.DHTMLEdit DHTMLEdit1 
      Height          =   5775
      Left            =   120
      TabIndex        =   0
      ToolTipText     =   "My DHTML Sample Program"
      Top             =   120
      Width           =   6615
      ActivateApplets =   0   'False
      ActivateActiveXControls=   0   'False
      ActivateDTCs    =   -1  'True
      ShowDetails     =   0   'False
      ShowBorders     =   0   'False
      Appearance      =   1
      Scrollbars      =   -1  'True
      ScrollbarAppearance=   1
      SourceCodePreservation=   -1  'True
      AbsoluteDropMode=   0   'False
      SnapToGrid      =   0   'False
      SnapToGridX     =   50
      SnapToGridY     =   50
      BrowseMode      =   0   'False
      UseDivOnCarriageReturn=   0   'False
   End
   Begin VB.Menu File 
      Caption         =   "File"
      Index           =   0
      Begin VB.Menu LoadDocument 
         Caption         =   "Load Document"
      End
      Begin VB.Menu LoadURL 
         Caption         =   "Load URL"
      End
      Begin VB.Menu SaveDocument 
         Caption         =   "Save Document"
      End
      Begin VB.Menu mnuPrint 
         Caption         =   "Print"
      End
   End
   Begin VB.Menu Options 
      Caption         =   "Options"
      Begin VB.Menu ChooseFont 
         Caption         =   "Choose Font"
      End
      Begin VB.Menu BrowserMode 
         Caption         =   "BrowserMode"
      End
      Begin VB.Menu DisplayGlyphs 
         Caption         =   "Display Glyphs"
      End
   End
End
Attribute VB_Name = "DHTMLEditorForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' Copyright 1998 Microsoft Interactive Developer
' Author: Aaron Skonnard

Private Sub Form_Resize()
DHTMLEdit1.Width = DHTMLEditorForm.Width - 350
DHTMLEdit1.Height = DHTMLEditorForm.Height - 1000
End Sub

Private Sub LoadDocument_Click()
DHTMLEdit1.LoadDocument "", True
End Sub

Private Sub LoadURL_Click()
URL = InputBox("Enter URL", "Load URL")
If Not URL = "" Then
    DHTMLEdit1.LoadURL URL
End If
End Sub

Private Sub mnuPrint_Click()
DHTMLEdit1.PrintDocument
End Sub

Private Sub SaveDocument_Click()
DHTMLEdit1.SaveDocument "", True
End Sub

Private Sub BrowserMode_Click()
BrowserMode.Checked = Not BrowserMode.Checked
DHTMLEdit1.BrowseMode = BrowserMode.Checked
End Sub

Private Sub ChooseFont_Click()
DHTMLEdit1.ExecCommand (DECMD_FONT)
End Sub

Private Sub DisplayGlyphs_Click()
DisplayGlyphs.Checked = Not DisplayGlyphs.Checked
DHTMLEdit1.ShowDetails = DisplayGlyphs.Checked
End Sub