143 lines
3.6 KiB
Plaintext
143 lines
3.6 KiB
Plaintext
VERSION 5.00
|
|
Begin VB.Form FormMain
|
|
Caption = "Name Book"
|
|
ClientHeight = 2745
|
|
ClientLeft = 5055
|
|
ClientTop = 4605
|
|
ClientWidth = 2715
|
|
LinkTopic = "Form1"
|
|
MaxButton = 0 'False
|
|
MinButton = 0 'False
|
|
ScaleHeight = 2745
|
|
ScaleWidth = 2715
|
|
Begin VB.CommandButton CommandLoadNames
|
|
Caption = "Load Names"
|
|
Height = 255
|
|
Left = 1320
|
|
TabIndex = 6
|
|
Top = 2400
|
|
Width = 1335
|
|
End
|
|
Begin VB.CommandButton CommandRemoveName
|
|
Caption = "Remove Name"
|
|
Enabled = 0 'False
|
|
Height = 255
|
|
Left = 0
|
|
TabIndex = 5
|
|
Top = 2400
|
|
Width = 1335
|
|
End
|
|
Begin VB.CommandButton CommandSaveNames
|
|
Caption = "Save Names"
|
|
Height = 255
|
|
Left = 1320
|
|
TabIndex = 3
|
|
Top = 2160
|
|
Width = 1335
|
|
End
|
|
Begin VB.CommandButton CommandAddName
|
|
Caption = "Add Name"
|
|
Enabled = 0 'False
|
|
Height = 255
|
|
Left = 0
|
|
TabIndex = 2
|
|
Top = 2160
|
|
Width = 1335
|
|
End
|
|
Begin VB.ListBox ListNames
|
|
Height = 1620
|
|
ItemData = "FormMain.frx":0000
|
|
Left = 720
|
|
List = "FormMain.frx":0002
|
|
Sorted = -1 'True
|
|
TabIndex = 1
|
|
Top = 480
|
|
Width = 1695
|
|
End
|
|
Begin VB.TextBox TextName
|
|
Height = 285
|
|
Left = 720
|
|
TabIndex = 0
|
|
Top = 120
|
|
Width = 1695
|
|
End
|
|
Begin VB.Label LabelName
|
|
Caption = "Name"
|
|
Height = 255
|
|
Left = 120
|
|
TabIndex = 4
|
|
Top = 120
|
|
Width = 495
|
|
End
|
|
End
|
|
Attribute VB_Name = "FormMain"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Dim x As Integer
|
|
Dim temp As String
|
|
Option Explicit
|
|
|
|
Private Sub CommandAddName_Click()
|
|
'Add to List text in Textbox
|
|
ListNames.AddItem TextName.Text
|
|
TextName.Text = ""
|
|
TextName.SetFocus
|
|
End Sub
|
|
|
|
Private Sub CommandLoadNames_Click()
|
|
ListNames.Clear
|
|
Open App.Path & "\names.txt" For Input As #1
|
|
While Not EOF(1)
|
|
Input #1, temp
|
|
ListNames.AddItem temp
|
|
Wend
|
|
Close #1
|
|
End Sub
|
|
|
|
Private Sub CommandRemoveName_Click()
|
|
'TextName.Text = ListNames.List(ListNames.ListIndex) & " " & ListNames.ListIndex
|
|
If ListNames.ListIndex <> -1 Then
|
|
ListNames.RemoveItem ListNames.ListIndex
|
|
Else
|
|
CommandRemoveName.Enabled = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CommandSaveNames_Click()
|
|
Open App.Path & "\names.txt" For Output As #1
|
|
For x = 0 To ListNames.ListCount - 1
|
|
Write #1, ListNames.List(x)
|
|
Next x
|
|
Close #1
|
|
End Sub
|
|
|
|
Private Sub Form_Load()
|
|
Open App.Path & "\names.txt" For Input As #1
|
|
While Not EOF(1)
|
|
Input #1, temp
|
|
ListNames.AddItem temp
|
|
Wend
|
|
Close #1
|
|
End Sub
|
|
|
|
Private Sub ListNames_Click()
|
|
CommandRemoveName.Enabled = True
|
|
End Sub
|
|
|
|
Private Sub ListNames_DblClick()
|
|
CommandRemoveName.Enabled = False
|
|
TextName.Text = ListNames.List(ListNames.ListIndex)
|
|
ListNames.RemoveItem ListNames.ListIndex
|
|
TextName.SetFocus
|
|
End Sub
|
|
|
|
Private Sub TextName_Change()
|
|
If TextName.Text = "" Then
|
|
CommandAddName.Enabled = False
|
|
Else
|
|
CommandAddName.Enabled = True
|
|
End If
|
|
End Sub
|