XProfan

Español

Pedro
Santos

¡Hola
Benutze esta code de Andreas Miethe?? a seriellen schnittstellen en un Listbox anzuzeigen, el funktioniert auch muy bien, doch desafortunadamente si yo cada Items anclicke voluntad esta blau markiert y beim nochmaligen anclicken demarkiert
Doch Yo brauche es el sólo el Item blau markiert el angecklickt se todos otro mussen demarkiert bleiben. Wahrscheinlich hay una SendMessage dafür doch habe en el Ayuda nichts passendes gefunden. Kann alguien helfen?

Gracias
Gruss

Pedro
Kompilieren Marca Separación

proc procura_coms

    coms&=CreateMultiListBox(_dlg&,"",0019,0020,0110,0091) cria a Multiedit que vai receber as COMs encontradas
    ClearList   limpa a lista das COMs
    avalia as COMs disponíveis no PC
    X& = 1

    Whilenot X& = 51

        ComNome$ = "\\.\COM"+STR$(X&)
        ComHandle& = ~CreateFile(Addr(Comnome$),
        ~GENERIC_READ |
        ~GENERIC_WRITE,
        0,0,~OPEN_EXISTING,
        ~FILE_ATTRIBUTE_NORMAL |
        ~FILE_FLAG_OVERLAPPED,0)

        If ComHandle& <> ~INVALID_HANDLE_VALUE

            Addstring "COM"+STR$(X&)  adiciona �	 lista
            ~CloseHandle(ComHandle&)

        Endif

        Inc X&

    EndWhile

    Eintrag wählen
    linha%=@GetCursel(coms&)
    com$=@GetString$(coms&,linha%)     in com$ steht der gewählter Eintrag

Windows XP Home
Xprofan 10

21.06.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Si usted en lugar de el selbstdefinierten Función CreateMultiListbox simplemente el Profanfunktion CreateListbox(), b.z.w. Crear(Listbox,...) verwendest, debería lo trabajo.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...