07 (COM-Server Port A)
08 (COM-Server Port B)
09 (COM-Server Port C)
10 (COM-Server Port D)

"Runtimeerror: 8012"
 
The Device is not open

Option Explicit
 
Private Sub cmdSave_Click()
Dim i As String
Text1.Enabled = True
i = Text1.Text
    Open "C:\TESTT.txt" For Output As #1
        While Not EOF(1)
            Line Input #1, i
        Wend
    Close #1
Text1.Enabled = False
End Sub
 
Private Sub Command1_Click()
MSComm1.CommPort = Text2.Text
 Text1.Text = MSComm1.Settings
MSComm1.PortOpen = True
Command2.Enabled = True
Command1.Enabled = False
End Sub
 
 
Private Sub Command2_Click()
MSComm1.PortOpen = False
Command2.Enabled = False
Command1.Enabled = True
End Sub
 
Private Sub Form_Load()
Text1.Enabled = False
If Text1.Text = "" And Text2.Text = "" Then
Command1.Enabled = False
End If
Command2.Enabled = False
End Sub
 
Private Sub Text2_Change()
Command1.Enabled = True
End Sub
 
Private Sub Text2_KeyPress(KeyAscii As Integer)
    If KeyAscii >= 46 And KeyAscii <= 57 Then
    ElseIf KeyAscii = 8 Then
    Else
        KeyAscii = 0
    End If
End Sub

IHR SEID ALLE SO
mfG
dereric


P.S.: schreibt mir eine eMail