-- 作者:有点色
-- 发布时间:2017/3/3 12:06:00
--
全局代码
<DLLImport("user32")> _ Public Function ShowScrollBar(hwnd As IntPtr, wBar As Integer, bShow As Integer) As Integer End Function
调用代码
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1") Dim blvw = lvw.basecontrol blvw.Scrollable = False ShowScrollBar(blvw.Handle, 1, 1) lvw.View = ViewMode.List
|