home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Power Pack / Visual_Basic4_Power_Pack.bin / vb4files / mcvbehtp / vbehtp30.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-11-20  |  6.1 KB  |  182 lines
  1. VERSION 2.00
  2. Begin Form frmDisplayOnline 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "mcr VB/Error Handler - Tracer Profiler (v1.02)"
  5.    ClientHeight    =   3165
  6.    ClientLeft      =   945
  7.    ClientTop       =   1380
  8.    ClientWidth     =   6135
  9.    ControlBox      =   0   'False
  10.    Height          =   3510
  11.    Left            =   915
  12.    LinkTopic       =   ""
  13.    MaxButton       =   0   'False
  14.    ScaleHeight     =   3165
  15.    ScaleWidth      =   6135
  16.    Top             =   1065
  17.    Width           =   6195
  18.    Begin CommandButton cmdOnTop 
  19.       Caption         =   "C1"
  20.       Height          =   345
  21.       Left            =   4320
  22.       TabIndex        =   8
  23.       Top             =   270
  24.       Width           =   1725
  25.    End
  26.    Begin Frame Frame1 
  27.       BackColor       =   &H00C0C0C0&
  28.       Caption         =   "Total last same handle"
  29.       FontBold        =   0   'False
  30.       FontItalic      =   0   'False
  31.       FontName        =   "MS Sans Serif"
  32.       FontSize        =   8.25
  33.       FontStrikethru  =   0   'False
  34.       FontUnderline   =   0   'False
  35.       Height          =   645
  36.       Left            =   90
  37.       TabIndex        =   2
  38.       Top             =   90
  39.       Width           =   1905
  40.       Begin Label lblHandle 
  41.          Alignment       =   2  'Center
  42.          BackColor       =   &H00808080&
  43.          Caption         =   "0000"
  44.          FontBold        =   0   'False
  45.          FontItalic      =   0   'False
  46.          FontName        =   "MS Sans Serif"
  47.          FontSize        =   8.25
  48.          FontStrikethru  =   0   'False
  49.          FontUnderline   =   0   'False
  50.          ForeColor       =   &H00FFFFFF&
  51.          Height          =   195
  52.          Left            =   1080
  53.          TabIndex        =   1
  54.          Top             =   360
  55.          Width           =   645
  56.       End
  57.       Begin Label lblCounter 
  58.          Alignment       =   2  'Center
  59.          BackColor       =   &H00808080&
  60.          Caption         =   "0000"
  61.          FontBold        =   0   'False
  62.          FontItalic      =   0   'False
  63.          FontName        =   "MS Sans Serif"
  64.          FontSize        =   8.25
  65.          FontStrikethru  =   0   'False
  66.          FontUnderline   =   0   'False
  67.          ForeColor       =   &H00FFFFFF&
  68.          Height          =   195
  69.          Left            =   180
  70.          TabIndex        =   0
  71.          Top             =   360
  72.          Width           =   645
  73.       End
  74.    End
  75.    Begin ListBox lstOnline 
  76.       BackColor       =   &H00C0C0C0&
  77.       FontBold        =   0   'False
  78.       FontItalic      =   0   'False
  79.       FontName        =   "MS Sans Serif"
  80.       FontSize        =   8.25
  81.       FontStrikethru  =   0   'False
  82.       FontUnderline   =   0   'False
  83.       ForeColor       =   &H00000000&
  84.       Height          =   1980
  85.       Left            =   90
  86.       TabIndex        =   7
  87.       Top             =   1080
  88.       Width           =   5955
  89.    End
  90.    Begin Label lblTitle 
  91.       Alignment       =   2  'Center
  92.       BackColor       =   &H00808080&
  93.       FontBold        =   0   'False
  94.       FontItalic      =   0   'False
  95.       FontName        =   "MS Sans Serif"
  96.       FontSize        =   8.25
  97.       FontStrikethru  =   0   'False
  98.       FontUnderline   =   0   'False
  99.       ForeColor       =   &H00FFFFFF&
  100.       Height          =   195
  101.       Index           =   3
  102.       Left            =   2970
  103.       TabIndex        =   6
  104.       Top             =   810
  105.       Width           =   3075
  106.    End
  107.    Begin Label lblTitle 
  108.       Alignment       =   2  'Center
  109.       BackColor       =   &H00808080&
  110.       FontBold        =   0   'False
  111.       FontItalic      =   0   'False
  112.       FontName        =   "MS Sans Serif"
  113.       FontSize        =   8.25
  114.       FontStrikethru  =   0   'False
  115.       FontUnderline   =   0   'False
  116.       ForeColor       =   &H00FFFFFF&
  117.       Height          =   195
  118.       Index           =   2
  119.       Left            =   1530
  120.       TabIndex        =   5
  121.       Top             =   810
  122.       Width           =   1365
  123.    End
  124.    Begin Label lblTitle 
  125.       Alignment       =   2  'Center
  126.       BackColor       =   &H00808080&
  127.       FontBold        =   0   'False
  128.       FontItalic      =   0   'False
  129.       FontName        =   "MS Sans Serif"
  130.       FontSize        =   8.25
  131.       FontStrikethru  =   0   'False
  132.       FontUnderline   =   0   'False
  133.       ForeColor       =   &H00FFFFFF&
  134.       Height          =   195
  135.       Index           =   1
  136.       Left            =   810
  137.       TabIndex        =   4
  138.       Top             =   810
  139.       Width           =   645
  140.    End
  141.    Begin Label lblTitle 
  142.       Alignment       =   2  'Center
  143.       BackColor       =   &H00808080&
  144.       FontBold        =   0   'False
  145.       FontItalic      =   0   'False
  146.       FontName        =   "MS Sans Serif"
  147.       FontSize        =   8.25
  148.       FontStrikethru  =   0   'False
  149.       FontUnderline   =   0   'False
  150.       ForeColor       =   &H00FFFFFF&
  151.       Height          =   195
  152.       Index           =   0
  153.       Left            =   90
  154.       TabIndex        =   3
  155.       Top             =   810
  156.       Width           =   645
  157.    End
  158. Option Explicit
  159. Declare Function SetWindowPos Lib "user" (ByVal hWnd As Integer, ByVal Position As Integer, ByVal nH As Integer, ByVal nV As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal nFlags As Integer) As Integer
  160. Sub cmdOnTop_Click ()
  161.    Dim Dummy   As Integer
  162.    If (cmdOnTop.Tag = "Y") Then
  163.       cmdOnTop.Tag = "N"
  164.       cmdOnTop.caption = mcReadText("F", "")
  165.       Dummy = SetWindowPos(frmDisplayOnline.hWnd, -1, 0, 0, 0, 0, &H40)
  166.    Else
  167.       cmdOnTop.Tag = "Y"
  168.       cmdOnTop.caption = mcReadText("E", "")
  169.       Dummy = SetWindowPos(frmDisplayOnline.hWnd, -2, 0, 0, 0, 0, &H40)
  170.    End If
  171. End Sub
  172. Sub Form_Load ()
  173.    Me.caption = mcReadText("G", "")
  174.    Frame1 = mcReadText("9", "")
  175.    lblTitle(0) = mcReadText("A", "")
  176.    lblTitle(1) = mcReadText("B", "")
  177.    lblTitle(2) = mcReadText("C", "")
  178.    lblTitle(3) = mcReadText("D", "")
  179.    cmdOnTop.Tag = "Y"
  180.    cmdOnTop.caption = mcReadText("E", "")
  181. End Sub
  182.