XProfan

English

Pedro
Santos

Hello
use this code of Andreas Miethe?? around the seriellen interfaces in a Listbox view, the functions too very well, still unfortunately if I each Items anclicke go these blue markiert and at nochmaligen anclicken demarkiert
still I need is the only the Item blue markiert the angecklickt becomes any others mussen demarkiert stay. probably there a Sendmessage for still have in the Help nothing suitable found. can someone help?

thanks
greeting

Pedro
Compile Mark Separation

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 entry

Windows XP Home
Xprofan 10

06/21/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

If you instead of the selbstdefinierten function CreateMultiListbox simply The Profanfunktion CreateListbox(), b.z.w. Create(Listbox,...) verwendest, ought to it functions.

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