16240.html

来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 40 行

HTML
40 行
字号 
<html>
  <head>
    <title>Re: 请问怎样可以令combo自动拉下?(无内文)</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: 请问怎样可以令combo自动拉下?(无内文)</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:jwh@ms1.hinet.net">纪文和</a> on July 27, 1999 at 12:30:52:<p>
In Reply to: <a href="16231.html">请问怎样可以令combo自动拉下?(无内文)</a> posted by kkcheung on July 27, 1999 at 11:05:00:<p>
(这个问题不错, 我可以加到我网站资料中)<br>以下状况假设我在 Form_Load 中自动下拉 combo1.<p>'以下宣告用于16位元<br>Const WM_USER = &H400<br>Const CB_SHOWDROPDOWN = (WM_USER + 15)<br>Private Declare Function SendMessage Lib "User" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long<p>'以下宣告用于32位元<br>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<p>Private Sub Form_Load()<br>    Combo1.AddItem "11111"<br>    Combo1.AddItem "22222"<br>    Combo1.AddItem "33333"<br>    Combo1.AddItem "44444"<br>    Combo1.AddItem "55555"<br>    Combo1.AddItem "66666"<br>    'Form_Load 即自动下拉 combo1<br>    Dim nret As Long<br>    nret = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0&)<br>End Sub<br>以上的程式, 我测试过了, 16/32 都没问题 !!<p>对了, 您问我我网站的 LOGO 小动画图是如何做的, 其实我是做苦功的, 我没什么制图软体, 就用友立公司 (我的室友是友立公司的) 的 PhotoImpact 去做出几张图, 再用 FrontPage98 附的 Microsoft ImageComposer 中的 Microsoft Gif Animator 去将图合并起来. 不过若希望档案不要太大, 则原始的几个小图档就要尽量减小一点.<p>
<br>
<ul><li><a href="http://www.ruentex.com.tw/vbguide">VB入门网</a></ul>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 16240-->
<!--top: 16252--><li><a href="16252.html">对不起,出现一个问题.</a> <b>kkcheung</b> <i>15:51:03 7/27/99</i>
(<!--responses: 16252-->2)
<ul><!--insert: 16252-->
<!--top: 16261--><li><a href="16261.html">Re: 对不起,出现一个问题.</a> <b>纪文和</b> <i>17:44:44 7/27/99</i>
(<!--responses: 16261-->1)
<ul><!--insert: 16261-->
<!--top: 16265--><li><a href="16265.html">我是用vb6/32....</a> <b>kkcheung</b> <i>18:53:59 7/27/99</i>
(<!--responses: 16265-->0)
<ul><!--insert: 16265-->
</ul><!--end: 16265-->
</ul><!--end: 16261-->
</ul><!--end: 16252-->
<!--top: 16244--><li><a href="16244.html">谢谢你的回覆!......</a> <b>kkcheung</b> <i>14:01:10 7/27/99</i>
(<!--responses: 16244-->0)
<ul><!--insert: 16244-->
</ul><!--end: 16244-->
</ul><!--end: 16240-->
<br><hr size=7 width=75%><p>

</body></html>

16240.html - 源码说明

本页面展示了「VB技巧问答10000例 VB技巧问答10000例」中的 16240.html 源码文件，采用 HTML 编程语言编写，共 40 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与10000相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?