home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / recurs1a / wbrdom.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-27  |  3.8 KB  |  114 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.MDIForm mdiWbrDOM 
  4.    BackColor       =   &H8000000C&
  5.    ClientHeight    =   3510
  6.    ClientLeft      =   1260
  7.    ClientTop       =   630
  8.    ClientWidth     =   5280
  9.    NegotiateToolbars=   0   'False
  10.    ScrollBars      =   0   'False
  11.    Begin MSComctlLib.StatusBar sta 
  12.       Align           =   2  'Align Bottom
  13.       Height          =   315
  14.       Left            =   0
  15.       TabIndex        =   0
  16.       Top             =   3195
  17.       Width           =   5280
  18.       _ExtentX        =   9313
  19.       _ExtentY        =   556
  20.       Style           =   1
  21.       _Version        =   393216
  22.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  23.          NumPanels       =   1
  24.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  25.          EndProperty
  26.       EndProperty
  27.    End
  28.    Begin VB.Menu mnuFileMenu 
  29.       Caption         =   "&File"
  30.       Begin VB.Menu mnuFileOpen 
  31.          Caption         =   "&Open..."
  32.          Shortcut        =   ^O
  33.       End
  34.       Begin VB.Menu mnuFileBar1 
  35.          Caption         =   "-"
  36.       End
  37.       Begin VB.Menu mnuFileExit 
  38.          Caption         =   "E&xit"
  39.       End
  40.    End
  41. Attribute VB_Name = "mdiWbrDOM"
  42. Attribute VB_GlobalNameSpace = False
  43. Attribute VB_Creatable = False
  44. Attribute VB_PredeclaredId = True
  45. Attribute VB_Exposed = False
  46. Option Explicit
  47. ' Questions contact markb@orionstudios.com
  48. ' Demonstrates DOM programming from Vb6 including
  49. '   build document in empty WebBrowser Control
  50. '   build DIV element as progress display
  51. '   build Stylesheet with code
  52. '   convert tab-deliited text to HTML Table with
  53. '       Header, Footer, Caption, Column definitions
  54. '   enable/disable formatting
  55. '   replace standard context (right-click) popup menu
  56. '   set document title, table caption
  57. '   save constructed document as HTML
  58. '   generalised class to recurse document structure
  59. '   extract stylesheet information
  60. '   build UL object with expand/collapse
  61. '   cloning
  62. '   intercept events from WebBrowser document
  63. '   using a behavior
  64. ' Requires Project/References entry for
  65. '   Microsoft HTML Object Library (MSHTML.tlb)
  66. '=================================================================================
  67. Private mDefaultPath As String
  68. Public Property Let StatusText(ByVal vData As String)   ' Messages from child forms
  69.     sta.SimpleText = vData                              ' with no status bar.
  70.     sta.Refresh
  71. End Property
  72. Private Sub MDIForm_Load()
  73.     Me.Move 1200, 0, 9000, 8400
  74.     Me.Caption = App.FileDescription
  75.     mDefaultPath = App.Path & "\"
  76. End Sub
  77. Private Sub mnuFileOpen_Click()
  78.     Dim strFileName As String
  79.     strFileName = GetFileName
  80.     If Len(strFileName) Then
  81.         With New frmDOMTable
  82.             Set .MDIParent = Me
  83.             .DataFileSpec = strFileName
  84.             .Show
  85.         End With
  86.     End If
  87. End Sub
  88. Private Sub mnuFileExit_Click()
  89.     Unload Me
  90. End Sub
  91. Private Function GetFileName() As String
  92. ' Returns full path of selected existing file. Uses FileDlg.cls.
  93.     On Error GoTo GetFileName_Error
  94.     Dim Result As String    ' default function result = ""
  95.     Dim strFileName As String
  96.     With New FileDlg
  97.         .Title = "Select tab-delimited text file"
  98.         .DefaultDir = mDefaultPath & "Work"
  99.         .Owner = Me.hWnd
  100.         .AddFilter "Tab-delimited Text Files (*.txt,*tab):*.txt;*tab"
  101.         If .Show(DlgType:=OpenDialog) Then
  102.             strFileName = .PathFile
  103.         End If
  104.     End With
  105.     DoEvents
  106.     Result = strFileName
  107. GetFileName_Exit:
  108.     GetFileName = Result
  109.     Exit Function
  110. GetFileName_Error:
  111.     MsgBox Err.Number & " - " & Err.Description, vbExclamation, "GetFileName"
  112.     Resume GetFileName_Exit
  113. End Function
  114.