Aktive porte

hej

Jeg tror det er noget i den her stil du leder efter.

Dim X as Integer
On Error Resume Next

For X = 1 to 12
    MSComm1.CommPort = X
    MSComm1.PortOpen = True
    If Err.Number = comPortInvalid Then
        ' comm port "X" svarer ikke
        ' nedton i din menu
    Else
        ' comm port "X" fungerer
        ' fremhæv i menuen
    End If
Next X

Det der "redder" det er at man bruger On Error Resume Next til at finde ud af om der er forekommet en fejl eller ej.

/hiks

ved du lige hvad syntax er for at lave et punkt visible i menu ?
har prøvet menuitem.visible=false
men den siger fejl der ;)

//Dark

menunavn(index).Enabled = False

index er det nummer for det enkelte punkt på din menu der skal disables!

/hiks

har du fundet ud af det?

/hiks

eh.. ikk endnu, arbejder på sagen ;)

Meeeeeeeeen det ser lovende ud

ser sku ud til at det dur :D