home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 31
/
CDASC_31_1996_juillet_aout.iso
/
vrac
/
mcvbehtp.zip
/
VBEHTP30.FRM
< prev
next >
Wrap
Text File
|
1996-05-16
|
6KB
|
195 lines
VERSION 2.00
Begin Form frmDisplayOnline
BackColor = &H00C0C0C0&
Caption = "mcr VB/Error Handler - Tracer Profiler (v1.01)"
ClientHeight = 3165
ClientLeft = 945
ClientTop = 1380
ClientWidth = 6135
ControlBox = 0 'False
Height = 3510
Left = 915
LinkTopic = ""
MaxButton = 0 'False
ScaleHeight = 3165
ScaleWidth = 6135
Top = 1065
Width = 6195
Begin CommandButton cmdOnTop
Caption = "C1"
Height = 345
Left = 4320
TabIndex = 8
Top = 270
Width = 1725
End
Begin Frame Frame1
BackColor = &H00C0C0C0&
Caption = "Total last same handle"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 645
Left = 90
TabIndex = 2
Top = 90
Width = 1905
Begin Label lblHandle
Alignment = 2 'Center
BackColor = &H00808080&
Caption = "0000"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FFFFFF&
Height = 195
Left = 1080
TabIndex = 1
Top = 360
Width = 645
End
Begin Label lblCounter
Alignment = 2 'Center
BackColor = &H00808080&
Caption = "0000"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FFFFFF&
Height = 195
Left = 180
TabIndex = 0
Top = 360
Width = 645
End
End
Begin ListBox lstOnline
BackColor = &H00C0C0C0&
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 1980
Left = 90
TabIndex = 7
Top = 1080
Width = 5955
End
Begin Label lblTitle
Alignment = 2 'Center
BackColor = &H00808080&
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FFFFFF&
Height = 195
Index = 3
Left = 2970
TabIndex = 6
Top = 810
Width = 3075
End
Begin Label lblTitle
Alignment = 2 'Center
BackColor = &H00808080&
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FFFFFF&
Height = 195
Index = 2
Left = 1530
TabIndex = 5
Top = 810
Width = 1365
End
Begin Label lblTitle
Alignment = 2 'Center
BackColor = &H00808080&
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FFFFFF&
Height = 195
Index = 1
Left = 810
TabIndex = 4
Top = 810
Width = 645
End
Begin Label lblTitle
Alignment = 2 'Center
BackColor = &H00808080&
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FFFFFF&
Height = 195
Index = 0
Left = 90
TabIndex = 3
Top = 810
Width = 645
End
End
Option Explicit
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
Sub cmdOnTop_Click ()
Dim Dummy As Integer
If (cmdOnTop.Tag = "Y") Then
cmdOnTop.Tag = "N"
cmdOnTop.caption = mcReadText("F", "")
Dummy = SetWindowPos(frmDisplayOnline.hWnd, -1, 0, 0, 0, 0, &H40)
Else
cmdOnTop.Tag = "Y"
cmdOnTop.caption = mcReadText("E", "")
Dummy = SetWindowPos(frmDisplayOnline.hWnd, -2, 0, 0, 0, 0, &H40)
End If
End Sub
Sub Form_Load ()
Me.caption = mcReadText("G", "")
Frame1 = mcReadText("9", "")
lblTitle(0) = mcReadText("A", "")
lblTitle(1) = mcReadText("B", "")
lblTitle(2) = mcReadText("C", "")
lblTitle(3) = mcReadText("D", "")
cmdOnTop.Tag = "Y"
cmdOnTop.caption = mcReadText("E", "")
End Sub