
ListView_SelectItemChanged 的腔档事件,在这里写Messagebox.show(ListView.selectItem.items[*].toString())*就是你要显示内容行-1
'获取控件的内容Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const WM_GETTEXT = HDPrivate Const WM_GETTEXTLENGTH = HEPublic Function GetTextString(ByVal lyHwnd As Long) As StringDim GetSAs StringDim SLenAs LongSLen = SendMessage(lyHwnd, WM_GETTEXTLENGTH, 0, 0)If SLen = 0 Then Exit FunctionSLen = SLen + 1GetS = Space(SLen)SLen = SendMessage(lyHwnd, WM_GETTEXT, SLen, ByVal GetS)GetTextString = Left(GetS, SLen)End Function 控件的句柄烂清你应该能获取团孙到,所饥或前以不说了欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)