Keskustelu: Ohjelmointikysymykset: VB6: If MSComm2.PortOpen = True Then

Mistä johtuu virheilmoitus?

ilomoitaa että portti on jo auki

If MSComm2.PortOpen = False Then
      MSComm2.PortOpen = True
   End If

Mutta jos yrittää ensin sulkea se, ilmoittaa taas että se on
jo sulettu, ainoastaa kun sammuttaa koneen ja käynnistää uudestaa, niin toimii taas normaalisti.

Ei tee sitä jatkuvasti, joskus satunnaisesti varsinkin kun ajaa kääntämätöntä ohjelmaa, vaikka ohjelman osasta poistuessa sulkee portin normaalisti

Moi Milu!

kokeile vaikka jotain ton alla olevan tapaista...

Private Sub Command1_Click()
Dim onko_auki As Boolean
On Error Resume Next
onko_auki = MSComm1.PortOpen
If Not onko_auki Then MSComm1.PortOpen = True
onko_auki = MSComm1.PortOpen
Text1.Text = onko_auki
End Sub