📄 tips03.htm
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>如何利用程序拉下 ComboBox？</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<META NAME="Author" CONTENT="KJ Wang">
<META NAME="GENERATOR" CONTENT="Mozilla/3.01Gold (Win95; I) [Netscape]">
</HEAD>
<BODY BACKGROUND="backqa.jpg">
<H2 ALIGN=CENTER>
<HR>如何利用程序拉下 ComboBox？
<HR WIDTH="100%"></H2>
<UL>
<P>除了以鼠标或键盘拉下 ComboBox 的列示栏之外， 如何在程序中拉下 ComboBox
的列示栏? 方法是对 ComboBox 送出 CB_SHOWDROPDOWN 信息， 细节如下：</P>
<P>1. API 的定义：</P>
<UL>
<P>Const CB_SHOWDROPDOWN = &H14F <BR>
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As
Any) As Long <BR>
<BR>
<FONT COLOR="#008000">注：如果以上的定义放在「一般模组」底下， 应在 Const
之前加上 Public 保留字， 并且将 Private 保留字去掉。</FONT></P>
</UL>
<P>2. 调用例：</P>
<UL>
<PRE><FONT SIZE=+1>SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, <FONT COLOR="#0000FF">True</FONT>, ByVal 0&</FONT></PRE>
<PRE><FONT SIZE=+1>如果收起列示栏，则是：</FONT></PRE>
<PRE><FONT SIZE=+1>SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, <FONT COLOR="#0000FF">False</FONT>, ByVal 0&</FONT></PRE>
</UL>
</UL>
<DIV ALIGN=right><P>
<HR WIDTH="100%"><A HREF="http://www.kj.com.tw" Target="_top">学 VB(Visual
Basic) 找王国荣</A></P></DIV>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -