以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎么让list视图下,滚动条为纵向的  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=96966)

--  作者:新航程小何
--  发布时间:2017/3/3 11:11:00
--  怎么让list视图下,滚动条为纵向的
各位老师,请问,怎么让lvw.View = ViewMode.List下的滚动条是纵向的,现在系统默认是横向的

--  作者:新航程小何
--  发布时间:2017/3/3 11:13:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170303111204.png
图片点击可在新窗口打开查看

--  作者:有点色
--  发布时间: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