组合listview listindex单击私有声明功能sendmessagevb api编程百例通篇.pdfVIP

006ｸﾄｱ・ListIndexｶｻｷ｢ﾉ・Clickﾊﾂｼ98-9-03

ﾔﾚﾐﾞｸﾄComboｻ・ListviewｵﾄListIndexﾊｱ｣ｬｻ盥｢ﾉ・Clickﾊﾂｼ｣ｬﾏﾂﾃ豬ﾄｺｯﾊｿﾉﾒﾔﾗ靹ｹｸﾃ

ﾊﾂｼ｡｣

ﾉｺ

PrivateDeclareFunctionSendMessageLib_

user32AliasSendMessageA(ByVal_

hWndAsLong,ByValwMsgAsLong,ByVal_

ramAsLong,lParamAsAny)AsLong

ConstCB_GETCURSEL=H147

ConstCB_SETCURSEL=H14E

ConstLB_SETCURSEL=H186

ConstLB_GETCURSEL=H188

ｺｯﾊ｣ｺ

PublicFunctionSetListIndex(lstAsControl,_

ByValNewIndexAsLong)AsLong

IfTypeOflstIsListBoxThen

CallSendMessage(lst.hWnd,_

LB_SETCURSEL,NewIndex,0)

SetListIndex=SendMessage(lst.hWnd,_

LB_GETCURSEL,NewIndex,0)

ElseIfTypeOflstIsComboBoxThen

CallSendMessage(lst.hWnd,_

CB_SETCURSEL,NewIndex,0)

SetListIndex=SendMessage(lst.hWnd,_

USER32AliasSendMessageA_

(ByValhwndAsLong,ByValMsgAsLong,_

ByValramAsLong,ByVallParamAs_

Long)AsLong

PrivateConstCB_GETDROPPEDWIDTH=H15F

PrivateConstCB_SETDROPPEDWIDTH=H160

PrivateConstCB_ERR=-1

ｺｯﾊ｣ｺ

ﾈ｡ｵﾃComboﾏﾂﾀｭｵﾄｿ昮ﾈ

ｿﾉﾒﾔﾀ﨧ﾃｸﾃｺｯﾊｱﾈﾀｷﾅｴ｡ｿ昮ﾈ

PublicFunctionGetDropdownWidth(cboHwndAsLong)AsLong

DimlRetValAsLong

lRetVal=SendMessage(cboHwnd,CB_GETDROPPEDWIDTH,0,0)

IflRetValCB_ERRThen

GetDropdownWidth=lRetVal

ｵ･ﾎｻﾎｪpixels

Else

GetDropdownWidth=0

EndIf

EndFunction

ﾉ靹ﾃComboﾏﾂﾀｭｵﾄｿ昮ﾈ

ｵ･ﾎｻﾎｪpixels

PublicFunctionSetDropdownWidth(cboHwndAs_

Long,NewWidthPixelAsLong)AsBoolean

DimlRetValAsLong

lRetVal=SendMessage(cboHwnd,_

CB_SETDROPPEDWIDTH,NewWidthPixel,0)

IflRetValCB_ERRThen

SetDropdownWidth=True

Else

S