标题:组合框的属性height的高度怎么修改啊显示只读属性
只看楼主
kingothewor
Rank: 1
等 级:新手上路
帖 子:25
专家分:2
注 册:2010-3-8
结帖率:50%
已结贴  问题点数:5 回复次数:1 
组合框的属性height的高度怎么修改啊显示只读属性
谢谢
搜索更多相关主题的帖子: 高度 height 属性 
2010-03-10 13:15
smltq
Rank: 6Rank: 6
等 级:侠之大者
威 望:8
帖 子:566
专家分:400
注 册:2008-1-21
得分:5 
Option Explicit
Private Const CB_SETITEMHEIGHT& = &H153
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

Private Sub Command1_Click()
    Dim NewHeight As Long
    NewHeight = 100 '以像素为单位
    SendMessage Combo1.hwnd, CB_SETITEMHEIGHT, -1, ByVal NewHeight
End Sub

简单的生活
2010-03-10 13:39



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-298983-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.364547 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved