Monster Media 1994 #1/monster.zip/monster/WIN_UTL2/XRAY11.ZIP/XTEST.FRM

Text File | 1994-01-04 | 5KB | 184 lines

VERSION 2.00
Begin Form Form1
   Caption         =   "Form1"
   ClientHeight    =   6216
   ClientLeft      =   1776
   ClientTop       =   3624
   ClientWidth     =   10596
   FontBold        =   -1  'True
   FontItalic      =   0   'False
   FontName        =   "Terminal"
   FontSize        =   4.8
   FontStrikethru  =   0   'False
   FontUnderline   =   0   'False
   Height          =   6636
   Left            =   1728
   LinkTopic       =   "Form1"
   ScaleHeight     =   6216
   ScaleWidth      =   10596
   Top             =   3252
   Width           =   10692
   Begin CommandButton Command4
      Caption         =   "Get Cursor"
      Height          =   432
      Left            =   9300
      TabIndex        =   12
      Top             =   4680
      Width           =   1032
   End
   Begin CommandButton Command3
      Caption         =   "keytest"
      Height          =   432
      Left            =   9300
      TabIndex        =   11
      Top             =   4080
      Width           =   1032
   End
   Begin TextBox Length
      Height          =   372
      Left            =   9420
      TabIndex        =   6
      Top             =   2160
      Width           =   972
   End
   Begin TextBox ColumnNo
      Height          =   372
      Left            =   9420
      TabIndex        =   4
      Top             =   1680
      Width           =   972
   End
   Begin TextBox LineNo
      Height          =   372
      Left            =   9420
      TabIndex        =   2
      Top             =   1200
      Width           =   972
   End
   Begin CommandButton Command2
      Caption         =   "Test A Field"
      Height          =   372
      Left            =   9000
      TabIndex        =   1
      Top             =   660
      Width           =   1392
   End
   Begin CommandButton Command1
      Caption         =   "Screen Capture"
      Height          =   372
      Left            =   9000
      TabIndex        =   0
      Top             =   180
      Width           =   1392
   End
   Begin Label Label5
      Caption         =   "Results"
      Height          =   372
      Left            =   5340
      TabIndex        =   10
      Top             =   2520
      Width           =   1452
   End
   Begin Label Label4
      Caption         =   "Label4"
      Height          =   72
      Left            =   3600
      TabIndex        =   9
      Top             =   180
      Width           =   12
   End
   Begin Label Results
      BorderStyle     =   1  'Fixed Single
      Height          =   792
      Left            =   5280
      TabIndex        =   8
      Top             =   2940
      Width           =   5172
   End
   Begin Label Label3
      Caption         =   "Length"
      Height          =   372
      Left            =   7860
      TabIndex        =   7
      Top             =   2160
      Width           =   1452
   End
   Begin Label Label2
      Caption         =   "Column"
      Height          =   372
      Left            =   7860
      TabIndex        =   5
      Top             =   1680
      Width           =   1452
   End
   Begin Label Label1
      Caption         =   "Line Number"
      Height          =   372
      Left            =   7860
      TabIndex        =   3
      Top             =   1200
      Width           =   1452
   End
End
Declare Function XRAYfield Lib "xray.dll" (ByVal s As String, ByVal w As Integer, ByVal y As Integer, ByVal x As Integer, ByVal l As Integer) As Integer
Declare Function XRAYStuffKeyboard Lib "xray.dll" (ByVal k As Integer, ByVal w As Integer) As Integer
Declare Function XRAYGetCursor Lib "xray.dll" (ByVal w As Integer) As Integer

Sub Command1_Click ()
Dim s As String
form1.Cls
form1.CurrentX = 0
form1.CurrentY = 0
s = String$(2000, 0)
z = XRAYfield(s, 1, 0, 0, 2000)
For j = 1 To 25
form1.Print Mid$(s, ((j - 1) * 80) + 1, 80)
Next
End Sub

Sub Command2_Click ()
Dim s As String
If (Val(form1.Length) > 80 Or Val(form1.Length) < 1) Then
   MsgBox "Length must be from 1 to 80"
   form1.Length.SetFocus
   Exit Sub
End If
If (Val(form1.LineNo) > 25 Or Val(form1.LineNo) < 1) Then
   MsgBox "Line must be from 1 to 25"
   form1.LineNo.SetFocus
   Exit Sub
End If
If (Val(form1.ColumnNo) > 80 Or Val(form1.ColumnNo) < 1) Then
   MsgBox "Column must be from 1 to 80"
   form1.ColumnNo.SetFocus
   Exit Sub
End If
s = String$(Val(form1.Length) + 1, 0)
z = XRAYfield(s, 1, Val(form1.LineNo) - 1, Val(form1.ColumnNo) - 1, Length)
s = Left$(s, InStr(s, Chr$(0)) - 1)
 form1.Results.Caption = s
End Sub

Sub Command3_Click ()
Dim c As Integer
s$ = "DIR /w"
For j = 1 To Len(s$)
  c = Asc(Mid$(s$, j, 1))
  z = XRAYStuffKeyboard(c, 1)
Next j
  z = XRAYStuffKeyboard(&HD, 1)     ' enter
  x = XRAYStuffKeyboard(&H3D00, 1)  ' f3
End Sub

Sub Command4_Click ()
  x = XRAYGetCursor(1)
  form1.Cls
form1.CurrentX = 0
form1.CurrentY = 0
  form1.Print "Current x = "; Int(x / 256)
  form1.Print "Current y = "; x Mod 256


End Sub