VERSION 5.00
Begin VB.Form frmHTML
Caption = "HTML Server"
ClientHeight = 3495
ClientLeft = 60
ClientTop = 345
ClientWidth = 5535
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 3495
ScaleWidth = 5535
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmdClose
Caption = "Close"
Height = 495
Left = 3720
TabIndex = 6
Top = 2880
Width = 1215
End
Begin VB.CommandButton cmdApply
Caption = "Apply"
Height = 495
Left = 600
TabIndex = 5
Top = 2880
Width = 1215
End
Begin VB.CommandButton cmdLinks
Caption = "Favorite Links"
Height = 495
Left = 2160
TabIndex = 4
Top = 2160
Width = 1215
End
Begin VB.TextBox txtPara
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1455
Left = 1560
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 3
Top = 600
Width = 3975
End
Begin VB.TextBox txtTitle
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 600
TabIndex = 1
Top = 120
Width = 4935
End
Begin VB.Label lblPara
Caption = "Paragraph of Text:"
Height = 255
Left = 120
TabIndex = 2
Top = 600
Width = 1335
End
Begin VB.Label lblTitle
Caption = "Title:"
Height = 255
Left = 120
TabIndex = 0
Top = 240
Width = 375
End
Attribute VB_Name = "frmHTML"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public LinksText As String
Public SourceCode As String
Private Sub cmdApply_Click()
SourceCode = "" _
+ txtTitle.Text + "" _
+ vbCrLf + "" + vbCrLf + _
"" + txtTitle.Text + "
" + _
vbCrLf + txtPara.Text + "" + _
vbCrLf + vbCrLf + LinksText + _
vbCrLf + vbCrLf + ""
End Sub
Private Sub cmdClose_Click()
Unload frmHTML
End Sub
Private Sub cmdLinks_Click()
frmLinks.Show
End Sub
Private Sub Form_Unload(Cancel As Integer)
Select Case MsgBox("Are you sure you " _
+ "want to close?", vbYesNo + _
vbDefaultButton2)
Case 6
Case 7
Cancel = 1
End Select
End Sub