以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关闭下拉窗口底部滚动条  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101358)
--  作者：良才
--  发布时间：2017/5/29 12:11:00
--  关闭下拉窗口底部滚动条
关闭下拉窗口底部滚动条，请指教代码，谢谢
[此贴子已经被作者于2017/5/29 12:14:03编辑过]
--  作者：有点色
--  发布时间：2017/5/29 12:27:00
--  
以下是引用良才在2017/5/29 12:11:00的发言：
关闭下拉窗口底部滚动条，请指教代码，谢谢
[此贴子已经被作者于2017/5/29 12:14:03编辑过]

 

你指的是表格的？

 

Dim t As Table = Tables("表A")

t.Grid.ScrollBars = Windows.Forms.ScrollBars.Vertical
t.Grid.ScrollOptions = 0
--  作者：良才
--  发布时间：2017/5/29 12:33:00
--  
目录树
[此贴子已经被作者于2017/5/29 12:37:45编辑过]
--  作者：有点色
--  发布时间：2017/5/29 12:41:00
--  

全局代码

 

<DLLImport("user32")> _
Public Function ShowScrollBar(hwnd As IntPtr, wBar As Integer, bShow As Integer) As Integer
End Function

 

 

调用代码

 

Dim lvw As WinForm.treeview = e.Form.Controls("treeview1")
Dim blvw = lvw.basecontrol
blvw.Scrollable = False
\'ShowScrollBar(blvw.Handle, 1, 1)
--  作者：良才
--  发布时间：2017/5/29 12:46:00
--  
谢谢