Attribute VB_Name = "Module1"


 'Add 03/08/2004 for VB Dos Console

Declare Function opencd722usb Lib "cd722dusb.dll" () As Boolean
Declare Function writecd722usb Lib "cd722dusb.dll" (ByRef dataoutput As Byte, ByVal Length As Long) As Long
Declare Function readcd722usb Lib "cd722dusb.dll" (ByRef DataInput As Byte, ByVal size As Long) As Long
Declare Function closecd722usb Lib "cd722dusb.dll" () As Boolean
    
    
    
Public readfile(2048) As Byte
Public writefile(2048) As Byte
Public dataoutput(2048) As Byte
Public buffer1(2048) As Byte

Public ab As Byte

 'Add 03/08/2004 for VB Dos Console

Public stremu As String   '沒事我亂設的
Public setting As String    'y通訊設定
Public comport As Integer     '傳輸埠
Public baudrate As String  '鮑率
Public parity As String '傳輸協定
Public dcode As Byte     'command type
Public clrdisplay As String
 '此模組必須搭配msg.frm使用
 Public return_String As String
 Public retn As Integer
 Public MessageFlag As Boolean
 Public openusbFlag As Boolean
Public Function Mesg(Message As String, YesorNo As Integer, Title As String) As Long
Dim a: msg.Text1.Enabled = False: msg.Text1.Visible = False
If MessageFlag = True Then Exit Function
MessageFlag = True
mlen = Len(Message)

If mlen < 36 Then
msg.Height = 1425: msg.Width = 3005
msg.Label1.Height = 641.5: msg.Label1.Width = 2050.57: msg.Label1.Top = 90: msg.Label1.Left = 184
msg.Command1.Top = 610: msg.Command1.Left = 61
msg.Command2.Top = 610: msg.Command2.Left = 787
msg.Command3.Top = 610: msg.Command3.Left = 1510
End If

If mlen > 51 Then
msg.Label1.Height = 1070
msg.Command1.Top = 1150: msg.Command2.Top = 1150: msg.Command3.Top = 1150
End If

If mlen > 28 And mlen < 36 Then
msg.Label1.Top = 10
msg.Command2.Top = 630: msg.Command1.Top = 630: msg.Command1.Top = 630
End If

msg.Label1.Caption = Message
msg.Caption = Title

Select Case YesorNo
Case 1
msg.Command1.Caption = "Yes"
msg.Command1.Left = msg.Command2.Left
msg.Command2.Visible = False
msg.Command3.Visible = False
Case 2
msg.Command1.Caption = "Yes"
msg.Command1.Left = (msg.Command1.Left + msg.Command2.Left) / 2.6
msg.Command2.Caption = "No"
msg.Command2.Left = (msg.Command2.Left + msg.Command3.Left) / 1.8
msg.Command3.Visible = False
Case 3
msg.Command1.Caption = "Yes"
msg.Command2.Caption = "No"
msg.Command3.Caption = "Cancel"
Case 4
msg.Command1.Caption = "Ok"
msg.Command1.Left = msg.Command2.Left
msg.Command2.Visible = False
msg.Command3.Visible = False
Case 5
msg.Command1.Caption = "Ok"
msg.Command1.Left = (msg.Command1.Left + msg.Command2.Left) / 2.6
msg.Command2.Caption = "Abort"
msg.Command2.Left = (msg.Command2.Left + msg.Command3.Left) / 1.8
msg.Command3.Visible = False
Case 6
msg.Command1.Caption = "Ok"
msg.Command2.Caption = "Abort"
msg.Command3.Caption = "Retry"
End Select
msg.Show vbModal
Mesg = retn
MessageFlag = False
End Function



Public Function inpbox(Message As String, Title As String, txt As String) As String
Dim a
If MessageFlag = True Then Exit Function
MessageFlag = True
mlen = Len(Message)

msg.Label1.Alignment = 0
'msg.Label1.AutoSize = True

msg.Label1.Height = 1070
msg.Command1.Top = 80: msg.Command2.Top = 510: msg.Command3.Top = 1150
msg.Command1.Left = 3000: msg.Command2.Left = 3000
msg.Label1.Width = 2403: msg.Label1.Height = 1255: msg.Label1.Top = 120: msg.Label1.Left = 184
msg.Width = 5000: msg.Text1.Width = 3550: msg.Text1.TabIndex = 0

msg.Label1.Caption = Message
msg.Caption = Title

msg.Command1.Caption = "Ok"

msg.Command2.Caption = "Cancel"

msg.Command3.Visible = False
If Len(txt) <> 0 Then
msg.Text1.Text = txt
Else
msg.Text1.Text = "": msg.Text1.Height = 330
End If
'If mode = 2 Then msg.Text1.Text = Format(Return_string, "##-##-##")

msg.Show vbModal
 inpbox = return_String
 If retn = 13 Then inpbox = ""
MessageFlag = False
End Function