home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / lfs13s / stattest.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-12-05  |  11.5 KB  |  376 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "LFStatus Demo"
  5.    ClientHeight    =   3000
  6.    ClientLeft      =   285
  7.    ClientTop       =   3720
  8.    ClientWidth     =   10785
  9.    FontBold        =   -1  'True
  10.    FontItalic      =   0   'False
  11.    FontName        =   "MS Sans Serif"
  12.    FontSize        =   16.5
  13.    FontStrikethru  =   0   'False
  14.    FontUnderline   =   0   'False
  15.    Height          =   3405
  16.    Icon            =   STATTEST.FRX:0000
  17.    Left            =   225
  18.    LinkTopic       =   "Form1"
  19.    ScaleHeight     =   3000
  20.    ScaleWidth      =   10785
  21.    Top             =   3375
  22.    Width           =   10905
  23.    Begin LFStatus0 LFStatus1 
  24.       Prop30          =   "Click on '...' for About Box"
  25.       Align           =   2  'Align Bottom
  26.       Enhanced        =   0   'False
  27.       FloodPercent    =   0
  28.       FontBold        =   0   'False
  29.       FontItalic      =   0   'False
  30.       FontName        =   "MS Sans Serif"
  31.       FontSize        =   8.25
  32.       Height          =   300
  33.       Ind1Caption     =   ""
  34.       Ind2Caption     =   ""
  35.       Ind3Caption     =   ""
  36.       Ind4Caption     =   ""
  37.       Ind5Caption     =   ""
  38.       Left            =   0
  39.       Message         =   "LFStatus1"
  40.       ShowPercent     =   0   'False
  41.       Top             =   2700
  42.       Width           =   10785
  43.    End
  44.    Begin CommandButton Command13 
  45.       Caption         =   "Normal"
  46.       FontBold        =   0   'False
  47.       FontItalic      =   0   'False
  48.       FontName        =   "MS Sans Serif"
  49.       FontSize        =   8.25
  50.       FontStrikethru  =   0   'False
  51.       FontUnderline   =   0   'False
  52.       Height          =   525
  53.       Left            =   1890
  54.       TabIndex        =   15
  55.       Top             =   1830
  56.       Width           =   1245
  57.    End
  58.    Begin CommandButton Command12 
  59.       Caption         =   "12 Hour"
  60.       FontBold        =   0   'False
  61.       FontItalic      =   0   'False
  62.       FontName        =   "MS Sans Serif"
  63.       FontSize        =   8.25
  64.       FontStrikethru  =   0   'False
  65.       FontUnderline   =   0   'False
  66.       Height          =   525
  67.       Left            =   4650
  68.       TabIndex        =   14
  69.       Top             =   1215
  70.       Width           =   1245
  71.    End
  72.    Begin CommandButton Command11 
  73.       Caption         =   "Align Bottom"
  74.       FontBold        =   0   'False
  75.       FontItalic      =   0   'False
  76.       FontName        =   "MS Sans Serif"
  77.       FontSize        =   8.25
  78.       FontStrikethru  =   0   'False
  79.       FontUnderline   =   0   'False
  80.       Height          =   525
  81.       Left            =   7380
  82.       TabIndex        =   13
  83.       Top             =   1875
  84.       Width           =   1245
  85.    End
  86.    Begin CommandButton Command8 
  87.       Caption         =   "Set Captions"
  88.       FontBold        =   0   'False
  89.       FontItalic      =   0   'False
  90.       FontName        =   "MS Sans Serif"
  91.       FontSize        =   8.25
  92.       FontStrikethru  =   0   'False
  93.       FontUnderline   =   0   'False
  94.       Height          =   495
  95.       Left            =   4650
  96.       TabIndex        =   11
  97.       Top             =   1875
  98.       Width           =   1215
  99.    End
  100.    Begin CommandButton Command5 
  101.       Caption         =   "Clear Captions"
  102.       FontBold        =   0   'False
  103.       FontItalic      =   0   'False
  104.       FontName        =   "MS Sans Serif"
  105.       FontSize        =   8.25
  106.       FontStrikethru  =   0   'False
  107.       FontUnderline   =   0   'False
  108.       Height          =   495
  109.       Left            =   3255
  110.       TabIndex        =   10
  111.       Top             =   1875
  112.       Width           =   1215
  113.    End
  114.    Begin TextBox Text1 
  115.       Alignment       =   1  'Right Justify
  116.       FontBold        =   0   'False
  117.       FontItalic      =   0   'False
  118.       FontName        =   "MS Sans Serif"
  119.       FontSize        =   8.25
  120.       FontStrikethru  =   0   'False
  121.       FontUnderline   =   0   'False
  122.       Height          =   315
  123.       Left            =   6330
  124.       TabIndex        =   8
  125.       Text            =   "10"
  126.       Top             =   2115
  127.       Width           =   675
  128.    End
  129.    Begin CommandButton Command10 
  130.       Caption         =   "Percent Off"
  131.       FontBold        =   0   'False
  132.       FontItalic      =   0   'False
  133.       FontName        =   "MS Sans Serif"
  134.       FontSize        =   8.25
  135.       FontStrikethru  =   0   'False
  136.       FontUnderline   =   0   'False
  137.       Height          =   495
  138.       Left            =   7380
  139.       TabIndex        =   7
  140.       Top             =   1215
  141.       Width           =   1215
  142.    End
  143.    Begin CommandButton Command9 
  144.       Caption         =   "Flood"
  145.       FontBold        =   0   'False
  146.       FontItalic      =   0   'False
  147.       FontName        =   "MS Sans Serif"
  148.       FontSize        =   8.25
  149.       FontStrikethru  =   0   'False
  150.       FontUnderline   =   0   'False
  151.       Height          =   495
  152.       Left            =   6015
  153.       TabIndex        =   6
  154.       Top             =   1215
  155.       Width           =   1215
  156.    End
  157.    Begin Timer Timer1 
  158.       Left            =   360
  159.       Top             =   690
  160.    End
  161.    Begin CommonDialog CMDialog1 
  162.       Left            =   330
  163.       Top             =   1215
  164.    End
  165.    Begin CommandButton Command7 
  166.       Caption         =   "Time On"
  167.       FontBold        =   0   'False
  168.       FontItalic      =   0   'False
  169.       FontName        =   "MS Sans Serif"
  170.       FontSize        =   8.25
  171.       FontStrikethru  =   0   'False
  172.       FontUnderline   =   0   'False
  173.       Height          =   495
  174.       Left            =   3255
  175.       TabIndex        =   5
  176.       Top             =   1215
  177.       Width           =   1215
  178.    End
  179.    Begin CommandButton Command6 
  180.       Caption         =   "Date On"
  181.       FontBold        =   0   'False
  182.       FontItalic      =   0   'False
  183.       FontName        =   "MS Sans Serif"
  184.       FontSize        =   8.25
  185.       FontStrikethru  =   0   'False
  186.       FontUnderline   =   0   'False
  187.       Height          =   495
  188.       Left            =   1920
  189.       TabIndex        =   4
  190.       Top             =   1215
  191.       Width           =   1215
  192.    End
  193.    Begin CommandButton Command4 
  194.       Caption         =   "Cyan"
  195.       FontBold        =   0   'False
  196.       FontItalic      =   0   'False
  197.       FontName        =   "MS Sans Serif"
  198.       FontSize        =   8.25
  199.       FontStrikethru  =   0   'False
  200.       FontUnderline   =   0   'False
  201.       Height          =   495
  202.       Left            =   7380
  203.       TabIndex        =   3
  204.       Top             =   570
  205.       Width           =   1215
  206.    End
  207.    Begin CommandButton Command3 
  208.       Caption         =   "Blue"
  209.       FontBold        =   0   'False
  210.       FontItalic      =   0   'False
  211.       FontName        =   "MS Sans Serif"
  212.       FontSize        =   8.25
  213.       FontStrikethru  =   0   'False
  214.       FontUnderline   =   0   'False
  215.       Height          =   495
  216.       Left            =   6015
  217.       TabIndex        =   2
  218.       Top             =   570
  219.       Width           =   1215
  220.    End
  221.    Begin CommandButton Command2 
  222.       Caption         =   "Green"
  223.       FontBold        =   0   'False
  224.       FontItalic      =   0   'False
  225.       FontName        =   "MS Sans Serif"
  226.       FontSize        =   8.25
  227.       FontStrikethru  =   0   'False
  228.       FontUnderline   =   0   'False
  229.       Height          =   495
  230.       Left            =   4650
  231.       TabIndex        =   1
  232.       Top             =   570
  233.       Width           =   1215
  234.    End
  235.    Begin CommandButton Command1 
  236.       Caption         =   "Red"
  237.       FontBold        =   0   'False
  238.       FontItalic      =   0   'False
  239.       FontName        =   "MS Sans Serif"
  240.       FontSize        =   8.25
  241.       FontStrikethru  =   0   'False
  242.       FontUnderline   =   0   'False
  243.       Height          =   495
  244.       Left            =   3255
  245.       TabIndex        =   0
  246.       Top             =   585
  247.       Width           =   1215
  248.    End
  249.    Begin Label Label2 
  250.       BackColor       =   &H00C0C0C0&
  251.       Caption         =   "Message BackColor:"
  252.       Height          =   435
  253.       Left            =   2160
  254.       TabIndex        =   12
  255.       Top             =   600
  256.       Width           =   990
  257.    End
  258.    Begin Label Label1 
  259.       AutoSize        =   -1  'True
  260.       BackColor       =   &H00C0C0C0&
  261.       Caption         =   "Timer Interval"
  262.       FontBold        =   0   'False
  263.       FontItalic      =   0   'False
  264.       FontName        =   "MS Sans Serif"
  265.       FontSize        =   8.25
  266.       FontStrikethru  =   0   'False
  267.       FontUnderline   =   0   'False
  268.       Height          =   195
  269.       Left            =   6150
  270.       TabIndex        =   9
  271.       Top             =   1890
  272.       Width           =   960
  273.    End
  274. Dim Pct%
  275. Declare Function SendMessage& Lib "User" (ByVal hWnd%, ByVal wMsg%, ByVal wParam%, lParam As Any)
  276. Const VBM_INITPROPPOPUP = &H400 + &HC00 + &H9
  277. Sub Command1_Click ()
  278. LFStatus1.MessageBackColor = RGB(255, 0, 0)
  279. 'LFStatus1.Message = "Red"
  280. End Sub
  281. Sub Command10_Click ()
  282. LFStatus1.ShowPercent = Not LFStatus1.ShowPercent
  283. If LFStatus1.ShowPercent Then
  284.     Command10.Caption = "Percent On"
  285.     Command10.Caption = "Percent OFF"
  286. End If
  287. End Sub
  288. Sub Command11_Click ()
  289. If LFStatus1.Align = 2 Then
  290.     LFStatus1.Align = 1
  291.     Command11.Caption = "Align Top"
  292.     LFStatus1.Align = 2
  293.     Command11.Caption = "Align Bottom"
  294. End If
  295. End Sub
  296. Sub Command12_Click ()
  297. LFStatus1.Show24Hour = Not LFStatus1.Show24Hour
  298. If LFStatus1.Show24Hour Then
  299.     Command12.Caption = "24 Hour"
  300.     Command12.Caption = "12 Hour"
  301. End If
  302. End Sub
  303. Sub Command13_Click ()
  304. If LFStatus1.Enhanced = 0 Then
  305.     LFStatus1.Enhanced = 1
  306.     Command13.Caption = "Enhanced"
  307.     LFStatus1.Enhanced = 0
  308.     Command13.Caption = "Normal"
  309. End If
  310. End Sub
  311. Sub Command2_Click ()
  312. LFStatus1.MessageBackColor = RGB(0, 255, 0)
  313. 'LFStatus1.Message = "Green"
  314. End Sub
  315. Sub Command3_Click ()
  316. LFStatus1.MessageBackColor = RGB(0, 0, 255)
  317. 'LFStatus1.Message = "Blue"
  318. End Sub
  319. Sub Command4_Click ()
  320. LFStatus1.MessageBackColor = &HFFFF00
  321. 'LFStatus1.Message = "Cyan"
  322. End Sub
  323. Sub Command5_Click ()
  324. LFStatus1.Ind1Caption = ""
  325. LFStatus1.Ind2Caption = ""
  326. LFStatus1.Ind3Caption = ""
  327. LFStatus1.Ind4Caption = ""
  328. LFStatus1.Ind5Caption = ""
  329. End Sub
  330. Sub Command6_Click ()
  331. LFStatus1.ShowDate = Not LFStatus1.ShowDate
  332. If LFStatus1.ShowDate Then
  333.     Command6.Caption = "Date On"
  334.     Command6.Caption = "Date OFF"
  335. End If
  336. End Sub
  337. Sub Command7_Click ()
  338. LFStatus1.ShowTime = Not LFStatus1.ShowTime
  339. If LFStatus1.ShowTime Then
  340.     Command7.Caption = "Time On"
  341.     Command7.Caption = "Time OFF"
  342. End If
  343. End Sub
  344. Sub Command8_Click ()
  345. LFStatus1.Message = "Ready"
  346. LFStatus1.MessageBackColor = RGB(192, 192, 192)
  347. LFStatus1.Ind1Caption = "       "
  348. LFStatus1.Ind2Caption = "Row 01 Col 01"
  349. LFStatus1.Ind3Caption = "readme.wri"
  350. LFStatus1.Ind4Caption = "Edit"
  351. LFStatus1.Ind5Caption = "Lake Forest Software"
  352. End Sub
  353. Sub Command9_Click ()
  354. Pct% = 0
  355. If Val(Text1) <> 0 Then
  356.     Timer1.Interval = Val(Text1)
  357.     Timer1.Interval = 100
  358. End If
  359. End Sub
  360. Sub Form_Load ()
  361. 'LFStatus1.Ind1Caption = "Ovr"
  362. 'LFStatus1.Ind2Caption = "Row 01 Col 01"
  363. 'LFStatus1.Ind3Caption = "readme.wri"
  364. 'LFStatus1.Ind4Caption = "View"
  365. 'LFStatus1.Ind5Caption = "Lake Forest Software"
  366. 'LFStatus1.MessageBackColor = &HFFFF00
  367. End Sub
  368. Sub Timer1_Timer ()
  369. Pct% = Pct% + 1
  370. If Pct% > 100 Then
  371.     Pct% = 0
  372.     Timer1.Interval = 0
  373. End If
  374. LFStatus1.FloodPercent = Pct%
  375. End Sub
  376.