home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / HTML_Edito645723222002.psc / Form3.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-02-27  |  16.7 KB  |  545 lines
  1. VERSION 5.00
  2. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  3. Begin VB.Form Form3 
  4.    BackColor       =   &H00C0C0C0&
  5.    Caption         =   "HTML Editor Options"
  6.    ClientHeight    =   3975
  7.    ClientLeft      =   6225
  8.    ClientTop       =   3795
  9.    ClientWidth     =   5595
  10.    LinkTopic       =   "Form3"
  11.    ScaleHeight     =   3975
  12.    ScaleWidth      =   5595
  13.    Begin VB.CommandButton Command14 
  14.       Caption         =   "&Cancel"
  15.       Height          =   375
  16.       Left            =   4320
  17.       TabIndex        =   22
  18.       Top             =   3480
  19.       Width           =   975
  20.    End
  21.    Begin VB.CommandButton Command13 
  22.       Caption         =   "&Apply"
  23.       Height          =   375
  24.       Left            =   3120
  25.       TabIndex        =   21
  26.       Top             =   3480
  27.       Width           =   975
  28.    End
  29.    Begin VB.CommandButton Command12 
  30.       Caption         =   "&OK"
  31.       Height          =   375
  32.       Left            =   1920
  33.       TabIndex        =   20
  34.       Top             =   3480
  35.       Width           =   1095
  36.    End
  37.    Begin TabDlg.SSTab SSTab1 
  38.       Height          =   3375
  39.       Left            =   0
  40.       TabIndex        =   0
  41.       Top             =   0
  42.       Width           =   5565
  43.       _ExtentX        =   9816
  44.       _ExtentY        =   5953
  45.       _Version        =   327680
  46.       TabHeight       =   520
  47.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  48.          Name            =   "Verdana"
  49.          Size            =   9
  50.          Charset         =   0
  51.          Weight          =   400
  52.          Underline       =   0   'False
  53.          Italic          =   0   'False
  54.          Strikethrough   =   0   'False
  55.       EndProperty
  56.       TabCaption(0)   =   "Color Schemes"
  57.       TabPicture(0)   =   "Form3.frx":0000
  58.       Tab(0).ControlCount=   7
  59.       Tab(0).ControlEnabled=   -1  'True
  60.       Tab(0).Control(0)=   "Option6"
  61.       Tab(0).Control(0).Enabled=   0   'False
  62.       Tab(0).Control(1)=   "Option4"
  63.       Tab(0).Control(1).Enabled=   0   'False
  64.       Tab(0).Control(2)=   "Option1"
  65.       Tab(0).Control(2).Enabled=   0   'False
  66.       Tab(0).Control(3)=   "Option2"
  67.       Tab(0).Control(3).Enabled=   0   'False
  68.       Tab(0).Control(4)=   "Option3"
  69.       Tab(0).Control(4).Enabled=   0   'False
  70.       Tab(0).Control(5)=   "Command4"
  71.       Tab(0).Control(5).Enabled=   0   'False
  72.       Tab(0).Control(6)=   "Option5"
  73.       Tab(0).Control(6).Enabled=   0   'False
  74.       TabCaption(1)   =   "Misc."
  75.       TabPicture(1)   =   "Form3.frx":001C
  76.       Tab(1).ControlCount=   2
  77.       Tab(1).ControlEnabled=   0   'False
  78.       Tab(1).Control(0)=   "Frame1"
  79.       Tab(1).Control(0).Enabled=   0   'False
  80.       Tab(1).Control(1)=   "Frame2"
  81.       Tab(1).Control(1).Enabled=   0   'False
  82.       TabCaption(2)   =   "About"
  83.       TabPicture(2)   =   "Form3.frx":0038
  84.       Tab(2).ControlCount=   2
  85.       Tab(2).ControlEnabled=   0   'False
  86.       Tab(2).Control(0)=   "Picture1"
  87.       Tab(2).Control(0).Enabled=   -1  'True
  88.       Tab(2).Control(1)=   "Label2"
  89.       Tab(2).Control(1).Enabled=   0   'False
  90.       Begin VB.OptionButton Option5 
  91.          Caption         =   "White Backround and Red Foreground"
  92.          Height          =   375
  93.          Left            =   600
  94.          TabIndex        =   25
  95.          Top             =   1440
  96.          Width           =   3135
  97.       End
  98.       Begin VB.PictureBox Picture1 
  99.          BorderStyle     =   0  'None
  100.          Height          =   1815
  101.          Left            =   -74880
  102.          Picture         =   "Form3.frx":0054
  103.          ScaleHeight     =   1815
  104.          ScaleWidth      =   5415
  105.          TabIndex        =   14
  106.          Top             =   480
  107.          Width           =   5415
  108.          Begin VB.Label Label3 
  109.             Alignment       =   1  'Right Justify
  110.             BackStyle       =   0  'Transparent
  111.             Caption         =   "Version 1.0"
  112.             BeginProperty Font 
  113.                Name            =   "Verdana"
  114.                Size            =   8.25
  115.                Charset         =   0
  116.                Weight          =   400
  117.                Underline       =   0   'False
  118.                Italic          =   0   'False
  119.                Strikethrough   =   0   'False
  120.             EndProperty
  121.             Height          =   255
  122.             Left            =   3240
  123.             TabIndex        =   15
  124.             Top             =   1320
  125.             Width           =   1815
  126.          End
  127.          Begin VB.Label Label4 
  128.             Caption         =   "HTML"
  129.             BeginProperty Font 
  130.                Name            =   "Verdana"
  131.                Size            =   18
  132.                Charset         =   0
  133.                Weight          =   700
  134.                Underline       =   0   'False
  135.                Italic          =   -1  'True
  136.                Strikethrough   =   0   'False
  137.             EndProperty
  138.             ForeColor       =   &H00A26C1E&
  139.             Height          =   495
  140.             Left            =   2640
  141.             TabIndex        =   16
  142.             Top             =   1080
  143.             Width           =   2535
  144.          End
  145.       End
  146.       Begin VB.Frame Frame2 
  147.          Caption         =   "Font"
  148.          Height          =   1455
  149.          Left            =   -74640
  150.          TabIndex        =   8
  151.          Top             =   1320
  152.          Width           =   4815
  153.          Begin VB.CommandButton cmdDown 
  154.             Caption         =   "DOWN"
  155.             Height          =   195
  156.             Left            =   3960
  157.             TabIndex        =   24
  158.             Top             =   1080
  159.             Width           =   735
  160.          End
  161.          Begin VB.CommandButton cmdUp 
  162.             Caption         =   "UP"
  163.             Height          =   195
  164.             Left            =   3960
  165.             TabIndex        =   23
  166.             Top             =   840
  167.             Width           =   735
  168.          End
  169.          Begin VB.CommandButton Command11 
  170.             Caption         =   "Command11"
  171.             Height          =   255
  172.             Left            =   840
  173.             TabIndex        =   19
  174.             Top             =   1080
  175.             Width           =   495
  176.          End
  177.          Begin VB.TextBox Text1 
  178.             Height          =   285
  179.             Left            =   3120
  180.             MaxLength       =   2
  181.             TabIndex        =   18
  182.             Text            =   "10"
  183.             Top             =   840
  184.             Width           =   735
  185.          End
  186.          Begin VB.CommandButton Command9 
  187.             Caption         =   "Command9"
  188.             Height          =   255
  189.             Left            =   240
  190.             TabIndex        =   12
  191.             Top             =   1080
  192.             Width           =   495
  193.          End
  194.          Begin VB.CommandButton Command8 
  195.             Caption         =   "Command8"
  196.             Height          =   255
  197.             Left            =   240
  198.             TabIndex        =   11
  199.             Top             =   1080
  200.             Width           =   495
  201.          End
  202.          Begin VB.ComboBox Combo1 
  203.             Height          =   315
  204.             ItemData        =   "Form3.frx":1FFB
  205.             Left            =   120
  206.             List            =   "Form3.frx":201A
  207.             TabIndex        =   10
  208.             Text            =   "Tahoma"
  209.             Top             =   240
  210.             Width           =   3975
  211.          End
  212.          Begin VB.Label Label5 
  213.             Caption         =   "Font Size:"
  214.             Height          =   255
  215.             Left            =   2280
  216.             TabIndex        =   17
  217.             Top             =   840
  218.             Width           =   855
  219.          End
  220.          Begin VB.Label Label1 
  221.             Caption         =   "Tahoma"
  222.             BeginProperty Font 
  223.                Name            =   "MS Sans Serif"
  224.                Size            =   12
  225.                Charset         =   0
  226.                Weight          =   400
  227.                Underline       =   0   'False
  228.                Italic          =   0   'False
  229.                Strikethrough   =   0   'False
  230.             EndProperty
  231.             Height          =   495
  232.             Left            =   240
  233.             TabIndex        =   9
  234.             Top             =   840
  235.             Width           =   4215
  236.          End
  237.       End
  238.       Begin VB.Frame Frame1 
  239.          Caption         =   "Display At Startup"
  240.          Height          =   735
  241.          Left            =   -74640
  242.          TabIndex        =   6
  243.          Top             =   480
  244.          Width           =   4815
  245.          Begin VB.CheckBox Check2 
  246.             Caption         =   "File Browser"
  247.             Height          =   255
  248.             Left            =   240
  249.             TabIndex        =   7
  250.             Top             =   240
  251.             Value           =   1  'Checked
  252.             Width           =   2295
  253.          End
  254.       End
  255.       Begin VB.CommandButton Command4 
  256.          Caption         =   "Command4"
  257.          Height          =   375
  258.          Left            =   4560
  259.          TabIndex        =   5
  260.          Top             =   1200
  261.          Width           =   375
  262.       End
  263.       Begin VB.OptionButton Option3 
  264.          Caption         =   "Black Backround and White Foreground"
  265.          Height          =   375
  266.          Left            =   600
  267.          TabIndex        =   3
  268.          Top             =   840
  269.          Width           =   3375
  270.       End
  271.       Begin VB.OptionButton Option2 
  272.          Caption         =   "White Backround and Black Foreground"
  273.          Height          =   375
  274.          Left            =   600
  275.          TabIndex        =   2
  276.          Top             =   2040
  277.          Width           =   3255
  278.       End
  279.       Begin VB.OptionButton Option1 
  280.          Caption         =   "Black Backround and Gray Foreground"
  281.          Height          =   255
  282.          Left            =   600
  283.          TabIndex        =   1
  284.          Top             =   600
  285.          Value           =   -1  'True
  286.          Width           =   3975
  287.       End
  288.       Begin VB.OptionButton Option4 
  289.          Caption         =   "Black Backround and Red Foreground"
  290.          Height          =   495
  291.          Left            =   600
  292.          TabIndex        =   4
  293.          Top             =   1080
  294.          Width           =   3255
  295.       End
  296.       Begin VB.OptionButton Option6 
  297.          Caption         =   "White Backround and Green Foreground"
  298.          Height          =   495
  299.          Left            =   600
  300.          TabIndex        =   26
  301.          Top             =   1680
  302.          Width           =   3495
  303.       End
  304.       Begin VB.Label Label2 
  305.          Caption         =   "Davicsoft HTML Editor was made by Alex Davis."
  306.          BeginProperty Font 
  307.             Name            =   "Verdana"
  308.             Size            =   9
  309.             Charset         =   0
  310.             Weight          =   400
  311.             Underline       =   0   'False
  312.             Italic          =   0   'False
  313.             Strikethrough   =   0   'False
  314.          EndProperty
  315.          Height          =   495
  316.          Left            =   -74520
  317.          TabIndex        =   13
  318.          Top             =   2400
  319.          Width           =   4695
  320.       End
  321.    End
  322. Attribute VB_Name = "Form3"
  323. Attribute VB_GlobalNameSpace = False
  324. Attribute VB_Creatable = False
  325. Attribute VB_PredeclaredId = True
  326. Attribute VB_Exposed = False
  327. Private Sub cmdDown_Click()
  328. Text1.Text = Text1.Text - 1
  329. End Sub
  330. Private Sub cmdUp_Click()
  331. Text1.Text = Text1.Text + 1
  332. End Sub
  333. Private Sub Combo1_Click()
  334. Label1.Caption = Combo1.Text
  335. Label1.Font = Combo1.Text
  336. End Sub
  337. Private Sub Command1_Click()
  338. If Option1.Value = True Then
  339. Form1.Text2.Text = "OPT1"
  340. Form1.Text1.BackColor = vbBlack
  341. Form1.Text1.ForeColor = &HC0C0C0
  342. If Option2.Value = True Then
  343. Form1.Text2.Text = "OPT2"
  344. Form1.Text1.BackColor = vbWhite
  345. Form1.Text1.ForeColor = vbBlack
  346. If Option3.Value = True Then
  347. Form1.Text2.Text = "OPT3"
  348. Form1.Text1.BackColor = vbBlack
  349. Form1.Text1.ForeColor = vbWhite
  350. If Option4.Value = True Then
  351. Form1.Text2.Text = "OPT4"
  352. Form1.Text1.BackColor = vbBlack
  353. Form1.Text1.ForeColor = vbRed
  354. End If
  355. End If
  356. End If
  357. End If
  358. Command4_Click
  359. End Sub
  360. Private Sub Command10_Click()
  361. Unload Me
  362. End Sub
  363. Private Sub Command11_Click()
  364. Open App.Path & "\option4.txt" For Output As #1
  365.     Print #1, Form1.Text5.Text
  366. Close
  367. End Sub
  368. Private Sub Command12_Click()
  369. Command5_Click
  370. Command8_Click
  371. Command11_Click
  372. Command1_Click
  373. Command4_Click
  374. Unload Me
  375. End Sub
  376. Private Sub Command13_Click()
  377. If Option1.Value = True Then
  378. Form1.Text2.Text = "OPT1"
  379. Form1.Text1.BackColor = vbBlack
  380. Form1.Text1.ForeColor = &HC0C0C0
  381. If Option2.Value = True Then
  382. Form1.Text2.Text = "OPT2"
  383. Form1.Text1.BackColor = vbWhite
  384. Form1.Text1.ForeColor = vbBlack
  385. If Option3.Value = True Then
  386. Form1.Text2.Text = "OPT3"
  387. Form1.Text1.BackColor = vbBlack
  388. Form1.Text1.ForeColor = vbWhite
  389. If Option4.Value = True Then
  390. Form1.Text2.Text = "OPT4"
  391. Form1.Text1.BackColor = vbBlack
  392. Form1.Text1.ForeColor = vbRed
  393. If Option5.Value = True Then
  394. Form1.Text2.Text = "OPT5"
  395. Form1.Text1.BackColor = vbWhite
  396. Form1.Text1.ForeColor = vbRed
  397. If Option6.Value = True Then
  398. Form1.Text2.Text = "OPT6"
  399. Form1.Text1.BackColor = vbWhite
  400. Form1.Text1.ForeColor = &H8000&
  401. End If
  402. End If
  403. End If
  404. End If
  405. End If
  406. End If
  407. Command4_Click
  408. Dim intnumber As Integer
  409. intnumber = Text1.Text
  410. If Text1.Text = "" Then
  411. If IsNumeric(intnumber) = False Or intnumber >= 21 Or intnumber <= 9 Then
  412. MsgBox "Please enter a valid number between 10 and 20", vbCritical, "Error"
  413. Text1.Text = ""
  414. Text1.SetFocus
  415. Form1.Text1.FontSize = intnumber
  416. Form1.Text5.Text = intnumber
  417. End If
  418. End If
  419. Form1.Text3.Text = Combo1.Text
  420. Form1.Text1.Font = Combo1.Text
  421. If Check2.Value = 1 Then
  422. Form1.fbdick.Checked = True
  423. Form1.Dir1.Visible = True
  424. Form1.Label2.Visible = True
  425. Form1.Drive1.Visible = True
  426. Form1.File1.Visible = True
  427. Form1.Height = Form1.Height + 10
  428. Form1.Text4.Text = "FB"
  429. If Check2.Value = 0 Then
  430. Form1.fbdick.Checked = False
  431. Form1.Dir1.Visible = False
  432. Form1.Label2.Visible = False
  433. Form1.Drive1.Visible = False
  434. Form1.File1.Visible = False
  435. Form1.Height = Form1.Height - 10
  436. Form1.Text4.Text = ""
  437. End If
  438. End If
  439. Command8_Click
  440. Command9_Click
  441. Command11_Click
  442. End Sub
  443. Private Sub Command14_Click()
  444. Unload Me
  445. End Sub
  446. Private Sub Command2_Click()
  447. Command1_Click
  448. Command4_Click
  449. Form1.Text1.FontSize = 10
  450. Unload Me
  451. End Sub
  452. Private Sub Command3_Click()
  453. Unload Me
  454. End Sub
  455. Private Sub Command4_Click()
  456. Open App.Path & "\option1.txt" For Output As #1
  457.     Print #1, Form1.Text2.Text
  458. Close
  459. End Sub
  460. Private Sub Command5_Click()
  461. Dim intnumber As Integer
  462. intnumber = Text1.Text
  463. If Text1.Text = "" Then
  464. If IsNumeric(intnumber) = False Or intnumber >= 21 Or intnumber <= 9 Then
  465. MsgBox "Please enter a valid number between 10 and 20", vbCritical, "Error"
  466. Text1.Text = ""
  467. Text1.SetFocus
  468. Form1.Text1.FontSize = intnumber
  469. Form1.Text5.Text = intnumber
  470. End If
  471. End If
  472. Form1.Text3.Text = Combo1.Text
  473. Form1.Text1.Font = Combo1.Text
  474. If Check2.Value = 1 Then
  475. Form1.fbdick.Checked = True
  476. Form1.Dir1.Visible = True
  477. Form1.Label2.Visible = True
  478. Form1.Drive1.Visible = True
  479. Form1.File1.Visible = True
  480. Form1.Height = Form1.Height + 10
  481. Form1.Text4.Text = "FB"
  482. If Check2.Value = 0 Then
  483. Form1.fbdick.Checked = False
  484. Form1.Dir1.Visible = False
  485. Form1.Label2.Visible = False
  486. Form1.Drive1.Visible = False
  487. Form1.File1.Visible = False
  488. Form1.Height = Form1.Height - 10
  489. Form1.Text4.Text = ""
  490. End If
  491. End If
  492. Command8_Click
  493. Command9_Click
  494. Command11_Click
  495. End Sub
  496. Private Sub Command6_Click()
  497. Unload Me
  498. End Sub
  499. Private Sub Command7_Click()
  500. Command5_Click
  501. Command8_Click
  502. Command11_Click
  503. Unload Me
  504. End Sub
  505. Private Sub Command8_Click()
  506. Open App.Path & "\option2.txt" For Output As #1
  507.     Print #1, Form1.Text3.Text
  508. Close
  509. End Sub
  510. Private Sub Command9_Click()
  511. Open App.Path & "\option3.txt" For Output As #1
  512.     Print #1, Form1.Text4.Text
  513. Close
  514. End Sub
  515. Private Sub Form_Load()
  516. Text1.Text = Form1.Text5.Text
  517. Combo1.Text = Form1.Text1.FontName
  518. If Form1.Text2.Text = "OPT1" Then
  519. Option1.Value = True
  520. If Form1.Text2.Text = "OPT2" Then
  521. Option2.Value = True
  522. If Form1.Text2.Text = "OPT3" Then
  523. Option3.Value = True
  524. If Form1.Text2.Text = "OPT4" Then
  525. Option4.Value = True
  526. If Form1.Text2.Text = "OPT5" Then
  527. Option5.Value = True
  528. If Form1.Text2.Text = "OPT6" Then
  529. Option6.Value = True
  530. End If
  531. End If
  532. End If
  533. End If
  534. End If
  535. End If
  536. Command11.Visible = False
  537. Command9.Visible = False
  538. Command8.Visible = False
  539. Label1.Font = "Tahoma"
  540. Command4.Visible = False
  541. End Sub
  542. Private Sub List1_Click()
  543. List1.List = Label1.Caption
  544. End Sub
  545.