frmfronedit.frm

一个完整的HTML编辑器

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmFrontEdit 
   BackColor       =   &H00400000&
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Slecet the Template ..."
   ClientHeight    =   3525
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   6030
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3525
   ScaleWidth      =   6030
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton CmdService 
      BackColor       =   &H80000009&
      Caption         =   "Services"
      Height          =   855
      Left            =   4200
      MaskColor       =   &H00FFFFFF&
      Picture         =   "frmFronEdit.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   11
      Top             =   1560
      Width           =   975
   End
   Begin VB.CommandButton cmdFAQ 
      BackColor       =   &H80000009&
      Caption         =   "F. A. Q."
      Height          =   855
      Left            =   3000
      MaskColor       =   &H00FFFFFF&
      Picture         =   "frmFronEdit.frx":0442
      Style           =   1  'Graphical
      TabIndex        =   10
      Top             =   1560
      Width           =   975
   End
   Begin VB.CommandButton cmdSecurity 
      BackColor       =   &H80000009&
      Caption         =   "Security"
      Height          =   855
      Left            =   600
      MaskColor       =   &H00FFFFFF&
      Picture         =   "frmFronEdit.frx":0884
      Style           =   1  'Graphical
      TabIndex        =   9
      Top             =   1560
      Width           =   975
   End
   Begin VB.CommandButton cmdContact 
      BackColor       =   &H80000009&
      Caption         =   "Contact"
      Height          =   855
      Left            =   1800
      MaskColor       =   &H00FFFFFF&
      Picture         =   "frmFronEdit.frx":0CC6
      Style           =   1  'Graphical
      TabIndex        =   8
      Top             =   1560
      Width           =   975
   End
   Begin VB.CommandButton cmdContents 
      BackColor       =   &H80000009&
      Caption         =   "Contents"
      Height          =   855
      Left            =   4200
      MaskColor       =   &H00FFFFFF&
      Picture         =   "frmFronEdit.frx":1108
      Style           =   1  'Graphical
      TabIndex        =   7
      Top             =   480
      Width           =   975
   End
   Begin VB.CommandButton cmdGlossary 
      BackColor       =   &H80000009&
      Caption         =   "Glossary"
      Height          =   855
      Left            =   3000
      MaskColor       =   &H00FFFFFF&
      Picture         =   "frmFronEdit.frx":154A
      Style           =   1  'Graphical
      TabIndex        =   6
      Top             =   480
      Width           =   975
   End
   Begin VB.CommandButton cmdFeedBack 
      BackColor       =   &H80000009&
      Caption         =   "Feed Back"
      Height          =   855
      Left            =   1800
      MaskColor       =   &H00FFFFFF&
      Picture         =   "frmFronEdit.frx":198C
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   480
      Width           =   975
   End
   Begin VB.CommandButton cmdBlank 
      BackColor       =   &H80000009&
      Caption         =   "Blank Page"
      Height          =   855
      Left            =   600
      MaskColor       =   &H00FFFFFF&
      Picture         =   "frmFronEdit.frx":1DCE
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   480
      Width           =   975
   End
   Begin MSComctlLib.ListView Templates 
      Height          =   2655
      Left            =   120
      TabIndex        =   3
      Top             =   120
      Width           =   5775
      _ExtentX        =   10186
      _ExtentY        =   4683
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   0
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Cancel"
      Height          =   375
      Left            =   4080
      TabIndex        =   2
      Top             =   3000
      Width           =   1815
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Open Existing"
      Height          =   375
      Left            =   2040
      TabIndex        =   1
      Top             =   3000
      Width           =   1935
   End
   Begin VB.CommandButton Command1 
      Caption         =   "OK"
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   3000
      Width           =   1815
   End
   Begin MSComDlg.CommonDialog cmd 
      Left            =   6360
      Top             =   120
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
End
Attribute VB_Name = "frmFrontEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'########################################################################### '
'
' Casper HTML Editor,
' I have developed this just for fun and I of course used some
' of the codes out there. As far as I know you may use the code
' under GPL (General Public Licence), what you do with my code,
' the one I wrote is up to you. Funny think is you'll never know what
' is mine own code -:)
'
' Well anyway, I appreciate your time and if you have any suggestion on
' how to improve the editor, please contact me at : [e-mail]
'
' Why Casper ? Casper Semiramis III was my dog (boxer).
'
' PS:
' I'll work on it some more, specialy on Syntax coloring (It's so damn slow!)
' and then on the snippets & Java library.
'
'########################################################################### '


'
'
' This still doesn't work 'cause I have no time. Coming Soon !!!
'
'





Private Sub Combo1_Change()
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Command2_Click()
Dim strFilename As String
cmd.CancelError = True
On Error GoTo ErrHandler
cmd.Filter = _
"HTML Files .htm|*.htm*|HTML Files .html|*.html*|Text Files .txt|*.txt*"
cmd.ShowOpen
strFilename = cmd.FileName
Open strFilename For Input As #1
Form1.Text1 = Input(LOF(1), 1)
Form1.Text3.Text = strFilename
Close #1
Form1.Caption = "HTML Editor (" & UCase(strFilename) & ")"

Unload Me
Exit Sub


ErrHandler:
End Sub

Private Sub Command3_Click()
Unload frmFrontEdit
End Sub

Private Sub Command4_Click()
Dim strFilename As String
cmd.Filter = _
"All Files *.*|*.**"
cmd.CancelError = True
cmd.FileName = "*.*"
On Error GoTo ErrHandler
cmd.ShowOpen
strFilename = cmd.FileName
Text1.Text = strFilename
ErrHandler:
End Sub

Private Sub Command5_Click()

End Sub

Private Sub Form_Load()
SetWindowPos hwnd, conHwndTopmost, ScaleHeight / 2, ScaleWidth / 2, 405, 250, conSwpNoActivate Or conSwpShowWindow
End Sub