Re: Help : Keuzevenster openen in VBA

Article View: be.comp.programming

Article #15694

Back to be.comp.programming Previous Next

#15694

From: mp
Date: Tue, 22 Aug 2000 00:00

30 lines
1326 bytes

Ik neem aan dat je een 'ComboBox' bedoelt ?
Zet de volgende declaraties in een module:

Public Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal
hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As
Long

Public Const WM_USER = &H400
Public Const CB_SHOWDROPDOWN = WM_USER + 15

De volgende regel rolt het keuzevak open:

Dim U as Long
U = SendMessage(cboTest.hWnd, CB_SHOWDROPDOWN, 1, ByVal 0&)

waarbij cboTest de naam is van je keuzevak.

Marc Patteet

"Jurgen" <sani.centrum@unicall.be> wrote in message
news:8npgu8$ov3$1@trex.antw.online.be...
> Betaat er een code om een keuzeventser open te rollen via bv pijltje naar
> beneden.Dit als het keuzevenster met invoervak de focus heeft ?
>
> mail : sani.centrum@unicall.be
>
>
> bedankt voor de moeite
>
>

Technical Details

Message-ID: <MDyyQKHDAHA.393@btbntsys4>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References: <8npgu8$ov3$1@trex.antw.online.be>

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,9af85e6be42c05cb
X-Google-Attributes: gidfcea4,public
From: "mp" <mpatteet@yucom.be>
Subject: Re: Help : Keuzevenster openen in VBA
Date: 2000/08/22
Message-ID: <MDyyQKHDAHA.393@btbntsys4>
X-Deja-AN: 661262659
References: <8npgu8$ov3$1@trex.antw.online.be>
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6600
X-MSMail-Priority: Normal
Reply-To: "mp" <mpatteet@yucom.be>
Newsgroups: be.comp.programming

Reply to Parent Message