XProfan

Français

Pedro
Santos

allô
Benutze cette code de Andreas Miethe?? à seriellen schnittstellen dans un Listbox anzuzeigen, cela funktioniert aussi très bien, doch malheureusement si je chaque Items anclicke volonté cet bleu markiert et beim nochmaligen anclicken demarkiert
Doch quoi il me faut ist cela seulement qui Item bleu markiert qui angecklickt wird alle anderen mussen demarkiert rester. Wahrscheinlich gibt es une SendMessage pour doch habe dans qui Aider rien passendes trouvé. peux quelqu'un aider?

merci
Gruss

Pedro
Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

si Du statt qui selbstdefinierten Funktion CreateMultiListbox simple qui Profanfunktion CreateListbox(), b.z.w. Créer(Listbox,...) verwendest, sollte es marcher.

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