Source

wincrypt / bin.frm

VERSION 2.00
Begin Form MainForm 
   Caption         =   ".BIN File Builder"
   ClientHeight    =   2865
   ClientLeft      =   1095
   ClientTop       =   1500
   ClientWidth     =   4320
   Height          =   3285
   Left            =   1035
   LinkTopic       =   "Form2"
   ScaleHeight     =   2865
   ScaleWidth      =   4320
   Top             =   1140
   Width           =   4440
   Begin TextBox BINView 
      Height          =   285
      Left            =   3240
      TabIndex        =   7
      Text            =   "1"
      Top             =   1320
      Width           =   495
   End
   Begin CommandButton Command2 
      Caption         =   "VIEW"
      Height          =   255
      Left            =   2400
      TabIndex        =   6
      Top             =   1320
      Width           =   735
   End
   Begin CommandButton Command1 
      Caption         =   "&BUILD"
      Default         =   -1  'True
      Height          =   375
      Left            =   1080
      TabIndex        =   5
      Top             =   2280
      Width           =   1935
   End
   Begin TextBox NextInput 
      Height          =   285
      Left            =   960
      TabIndex        =   4
      Top             =   1800
      Width           =   2655
   End
   Begin TextBox File 
      Height          =   285
      Left            =   600
      TabIndex        =   2
      Top             =   600
      Width           =   3495
   End
   Begin Label Label2 
      Caption         =   "Input..."
      Height          =   375
      Left            =   120
      TabIndex        =   3
      Top             =   1200
      Width           =   1335
   End
   Begin Label Label1 
      Caption         =   "BIN:"
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   600
      Width           =   4095
   End
   Begin Label NextRecord 
      Caption         =   "Next record:"
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   3135
   End
End
Dim UsingRec As Integer

Sub Command1_Click ()
FileToOpen = File

Object = NextInput
Open FileToOpen For Random As #1

Put #1, UsingRec, Object
NextInput = ""
Close #1
UsingRec = UsingRec + 1
NextRecord = "Record: " & UsingRec
End Sub

Sub Command2_Click ()
OurFile = File
x = BINView
Open OurFile For Random As #1
Get #1, x, David
MsgBox x & " & " & David
Close #1
End Sub

Sub Form_Load ()
UsingRec = 1
End Sub