home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch20 / scicalc / scicalre.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1996-04-19  |  3.4 KB  |  107 lines
  1. VERSION 5.00
  2. Begin VB.Form LogForm 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    Caption         =   "SciCalc Log"
  6.    ClientHeight    =   2850
  7.    ClientLeft      =   4455
  8.    ClientTop       =   3525
  9.    ClientWidth     =   6135
  10.    FillColor       =   &H00E0E0E0&
  11.    BeginProperty Font 
  12.       Name            =   "MS Sans Serif"
  13.       Size            =   8.25
  14.       Charset         =   0
  15.       Weight          =   700
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    LinkTopic       =   "Form3"
  22.    PaletteMode     =   1  'UseZOrder
  23.    ScaleHeight     =   2850
  24.    ScaleWidth      =   6135
  25.    Begin VB.CommandButton ClearBttn 
  26.       Caption         =   "Clear Log"
  27.       BeginProperty Font 
  28.          Name            =   "Verdana"
  29.          Size            =   9.75
  30.          Charset         =   0
  31.          Weight          =   400
  32.          Underline       =   0   'False
  33.          Italic          =   0   'False
  34.          Strikethrough   =   0   'False
  35.       EndProperty
  36.       Height          =   495
  37.       Left            =   45
  38.       TabIndex        =   2
  39.       Top             =   2295
  40.       Width           =   1935
  41.    End
  42.    Begin VB.CommandButton CloseBttn 
  43.       Caption         =   "Close Log"
  44.       BeginProperty Font 
  45.          Name            =   "Verdana"
  46.          Size            =   9.75
  47.          Charset         =   0
  48.          Weight          =   400
  49.          Underline       =   0   'False
  50.          Italic          =   0   'False
  51.          Strikethrough   =   0   'False
  52.       EndProperty
  53.       Height          =   495
  54.       Left            =   4200
  55.       TabIndex        =   1
  56.       Top             =   2310
  57.       Width           =   1935
  58.    End
  59.    Begin VB.ListBox List1 
  60.       BackColor       =   &H00C0C0C0&
  61.       BeginProperty Font 
  62.          Name            =   "MS Sans Serif"
  63.          Size            =   9.75
  64.          Charset         =   0
  65.          Weight          =   400
  66.          Underline       =   0   'False
  67.          Italic          =   0   'False
  68.          Strikethrough   =   0   'False
  69.       EndProperty
  70.       Height          =   2220
  71.       Left            =   0
  72.       TabIndex        =   0
  73.       Tag             =   "ResultList"
  74.       Top             =   -15
  75.       Width           =   6135
  76.    End
  77. Attribute VB_Name = "LogForm"
  78. Attribute VB_GlobalNameSpace = False
  79. Attribute VB_Creatable = False
  80. Attribute VB_PredeclaredId = True
  81. Attribute VB_Exposed = False
  82. Private Sub ClearBttn_Click()
  83.     List1.Clear
  84. End Sub
  85. Private Sub CloseBttn_Click()
  86.         OpenLog = False
  87.         CalculatorForm.LogBttn.Caption = "Show  Log"
  88.         'LogForm.List1.Clear
  89.         LogForm.Hide
  90. End Sub
  91. Private Sub Form_Resize()
  92.     If Me.Height < 3000 Then Me.Height = 3000
  93.     Me.Width = List1.Width + 120
  94.     List1.Height = Me.Height - CloseBttn.Height - 450
  95.     CloseBttn.Move CloseBttn.Left, List1.Top + List1.Height + 120
  96. End Sub
  97. Private Sub List1_DblClick()
  98.     If Left$(List1.Text, 3) = "For" Then
  99.         CalculatorForm.Text3.Text = Trim(Mid$(List1.Text, 8, Len(List1.Text) - 8))
  100.         Exit Sub
  101.     ElseIf Left$(List1.Text, 1) = ">" Then
  102.             CalculatorForm.Text3.Text = Trim(Mid$(List1.Text, 2, Len(List1.Text) - 2))
  103.     Else
  104.         CalculatorForm.Text1.Text = List1.Text
  105.     End If
  106. End Sub
  107.