XProfan

Deutsch

Pedro
Santos

Hallo
Benutze diesen code von Andreas Miethe?? um die seriellen schnittstellen in eine Listbox anzuzeigen, das funktioniert auch sehr gut, doch leider wenn ich die einzelnen Items anclicke werden diese blau markiert und beim nochmaligen anclicken demarkiert
Doch was ich brauche ist das nur der Item blau markiert der angecklickt wird alle anderen mussen demarkiert bleiben. Wahrscheinlich gibt es eine Sendmessage dafür doch habe in der Hilfe nichts passendes gefunden. Kann jemand helfen?

Danke
Gruss

Pedro
Kompilieren Markieren Separieren

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 zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Wenn Du statt der selbstdefinierten Funktion CreateMultiListbox einfach die Profanfunktion CreateListbox(), b.z.w. Create(Listbox,...) verwendest, sollte es funktionieren.

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