2020-01-10 14:17:29 -05:00
|
|
|
VERSION 5.00
|
|
|
|
|
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} pricelist
|
|
|
|
|
Caption = "Price List Name"
|
2020-01-15 17:17:07 -05:00
|
|
|
ClientHeight = 5115
|
2020-01-10 14:17:29 -05:00
|
|
|
ClientLeft = 120
|
|
|
|
|
ClientTop = 465
|
|
|
|
|
ClientWidth = 4110
|
|
|
|
|
OleObjectBlob = "pricelist.frx":0000
|
|
|
|
|
StartUpPosition = 1 'CenterOwner
|
|
|
|
|
End
|
|
|
|
|
Attribute VB_Name = "pricelist"
|
|
|
|
|
Attribute VB_GlobalNameSpace = False
|
|
|
|
|
Attribute VB_Creatable = False
|
|
|
|
|
Attribute VB_PredeclaredId = True
|
|
|
|
|
Attribute VB_Exposed = False
|
|
|
|
|
Public proceed As Boolean
|
|
|
|
|
|
|
|
|
|
Private Sub bCANCEL_Click()
|
|
|
|
|
proceed = False
|
|
|
|
|
Me.Hide
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub bOK_Click()
|
|
|
|
|
proceed = True
|
|
|
|
|
Me.Hide
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub bPICK_Click()
|
|
|
|
|
|
|
|
|
|
'--------Open file-------------
|
|
|
|
|
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
|
|
|
|
|
fd.Show
|
|
|
|
|
|
|
|
|
|
tbPATH.Text = fd.SelectedItems(1)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub UserForm_Initialize()
|
|
|
|
|
proceed = False
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub UserForm_Terminate()
|
|
|
|
|
proceed = False
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
