home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / simple5a / frmhr.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-19  |  4.2 KB  |  136 lines
  1. VERSION 5.00
  2. Begin VB.Form frmHR 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Horizontal Rule Options"
  5.    ClientHeight    =   3735
  6.    ClientLeft      =   1860
  7.    ClientTop       =   1995
  8.    ClientWidth     =   2430
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3735
  15.    ScaleWidth      =   2430
  16.    Begin VB.CommandButton cmdCancel 
  17.       Caption         =   "Cancel"
  18.       Height          =   495
  19.       Left            =   1200
  20.       TabIndex        =   10
  21.       Top             =   3120
  22.       Width           =   855
  23.    End
  24.    Begin VB.CommandButton cmdDone 
  25.       Caption         =   "Finished"
  26.       Height          =   495
  27.       Left            =   240
  28.       TabIndex        =   9
  29.       Top             =   3120
  30.       Width           =   855
  31.    End
  32.    Begin VB.TextBox Text2 
  33.       Height          =   285
  34.       Left            =   1560
  35.       TabIndex        =   7
  36.       Text            =   "70%"
  37.       Top             =   2640
  38.       Width           =   615
  39.    End
  40.    Begin VB.TextBox Text1 
  41.       Height          =   285
  42.       Left            =   1560
  43.       TabIndex        =   5
  44.       Text            =   "3"
  45.       Top             =   2160
  46.       Width           =   615
  47.    End
  48.    Begin VB.CheckBox chkShade 
  49.       Caption         =   "Shading ON"
  50.       Height          =   255
  51.       Left            =   360
  52.       TabIndex        =   4
  53.       Top             =   1680
  54.       Value           =   1  'Checked
  55.       Width           =   1215
  56.    End
  57.    Begin VB.Frame fraAlign 
  58.       Caption         =   "Alignment"
  59.       Height          =   1335
  60.       Left            =   120
  61.       TabIndex        =   0
  62.       Top             =   120
  63.       Width           =   2175
  64.       Begin VB.OptionButton Option1 
  65.          Caption         =   "Right"
  66.          Height          =   255
  67.          Index           =   2
  68.          Left            =   240
  69.          TabIndex        =   3
  70.          Top             =   840
  71.          Width           =   855
  72.       End
  73.       Begin VB.OptionButton Option1 
  74.          Caption         =   "Center"
  75.          Height          =   255
  76.          Index           =   1
  77.          Left            =   240
  78.          TabIndex        =   2
  79.          Top             =   600
  80.          Value           =   -1  'True
  81.          Width           =   855
  82.       End
  83.       Begin VB.OptionButton Option1 
  84.          Caption         =   "Left"
  85.          Height          =   255
  86.          Index           =   0
  87.          Left            =   240
  88.          TabIndex        =   1
  89.          Top             =   360
  90.          Width           =   735
  91.       End
  92.    End
  93.    Begin VB.Label Label1 
  94.       Caption         =   "Width (Pixels/%):"
  95.       Height          =   255
  96.       Index           =   1
  97.       Left            =   240
  98.       TabIndex        =   8
  99.       Top             =   2640
  100.       Width           =   1215
  101.    End
  102.    Begin VB.Label Label1 
  103.       Caption         =   "Height:"
  104.       Height          =   255
  105.       Index           =   0
  106.       Left            =   240
  107.       TabIndex        =   6
  108.       Top             =   2160
  109.       Width           =   615
  110.    End
  111. Attribute VB_Name = "frmHR"
  112. Attribute VB_GlobalNameSpace = False
  113. Attribute VB_Creatable = False
  114. Attribute VB_PredeclaredId = True
  115. Attribute VB_Exposed = False
  116. Option Explicit
  117. Private Sub cmdCancel_Click()
  118.     frmHTMLEditor.Show
  119.     frmHR.Hide
  120. End Sub
  121. Private Sub cmdDone_Click()
  122.     frmHTMLEditor.Show
  123.     frmHR.Hide
  124.     Dim Temp$
  125.     Temp$ = "<HR"
  126.     If Option1(0).Value = True Then Temp$ = Temp$ & " ALIGN=LEFT "
  127.     If Option1(1).Value = True Then Temp$ = Temp$ & " ALIGN=CENTER "
  128.     If Option1(2).Value = True Then Temp$ = Temp$ & " ALIGN=RIGHT "
  129.     If chkShade.Value = 0 Then Temp$ = Temp$ & " NOSHADE "
  130.     Temp$ = Temp$ & "SIZE=" & Trim$(Text1.Text) & " "
  131.     Temp$ = Temp$ & "WIDTH=" & Trim$(Text2.Text) & " "
  132.     Temp$ = Temp$ & "<BR>"
  133.     frmHTMLEditor.rtbHTML.SelLength = 0
  134.     frmHTMLEditor.rtbHTML.SelRTF = Temp$ & vbCrLf
  135. End Sub
  136.