home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / DHTML_Edit18343612292004.psc / InsHTML.frm < prev   
Text File  |  2004-06-18  |  3KB  |  93 lines
  1. VERSION 5.00
  2. Begin VB.Form InsertHTMLDlg 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Insert HTML"
  5.    ClientHeight    =   4395
  6.    ClientLeft      =   2550
  7.    ClientTop       =   2400
  8.    ClientWidth     =   6000
  9.    ControlBox      =   0   'False
  10.    Icon            =   "InsHTML.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    LockControls    =   -1  'True
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4395
  16.    ScaleWidth      =   6000
  17.    ShowInTaskbar   =   0   'False
  18.    Begin VB.CommandButton CmdCancel 
  19.       Cancel          =   -1  'True
  20.       Caption         =   "Cancel"
  21.       Height          =   375
  22.       Left            =   4560
  23.       TabIndex        =   3
  24.       Top             =   3870
  25.       Width           =   1215
  26.    End
  27.    Begin VB.CommandButton CmdOK 
  28.       Caption         =   "OK"
  29.       Default         =   -1  'True
  30.       Height          =   375
  31.       Left            =   3120
  32.       TabIndex        =   2
  33.       Top             =   3870
  34.       Width           =   1215
  35.    End
  36.    Begin VB.TextBox HTMLText 
  37.       Height          =   3195
  38.       Left            =   90
  39.       MultiLine       =   -1  'True
  40.       ScrollBars      =   3  'Both
  41.       TabIndex        =   1
  42.       Text            =   "InsHTML.frx":000C
  43.       Top             =   510
  44.       Width           =   5655
  45.    End
  46.    Begin VB.Label Label1 
  47.       Caption         =   "HTML source:"
  48.       Height          =   255
  49.       Left            =   120
  50.       TabIndex        =   0
  51.       Top             =   150
  52.       Width           =   1095
  53.    End
  54. End
  55. Attribute VB_Name = "InsertHTMLDlg"
  56. Attribute VB_GlobalNameSpace = False
  57. Attribute VB_Creatable = False
  58. Attribute VB_PredeclaredId = True
  59. Attribute VB_Exposed = False
  60. ' Copyright 1999 Microsoft Corporation.
  61. ' All rights reserved.
  62. Private Sub CmdCancel_Click()
  63.     Unload Me
  64.     MainForm.DHTMLEdit1.SetFocus
  65. End Sub
  66.  
  67. Private Sub cmdOK_Click()
  68.  
  69.     Dim doc As Object
  70.     Dim sel As Object
  71.     Dim tr As Object
  72.     
  73.     ' get the DHTML Document object
  74.     Set doc = MainForm.DHTMLEdit1.DOM
  75.     ' get the IE4 selection object
  76.     Set sel = doc.selection
  77.     ' create a TextRange from the current selection
  78.     Set tr = sel.createrange
  79.     
  80.     ' paste our html into the range
  81.     tr.pasteHTML (HTMLText.Text)
  82.     Unload Me
  83. End Sub
  84.  
  85. Private Sub Form_Activate()
  86.  
  87. HTMLText.SelStart = 0
  88. HTMLText.SelLength = Len(HTMLText.Text)
  89. HTMLText.SetFocus
  90.  
  91.  
  92. End Sub
  93.