主题：关闭下拉窗口底部滚动条

关闭下拉窗口底部滚动条，请指教代码，谢谢

 

你指的是表格的？

 

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

t.Grid.ScrollBars = Windows.Forms.ScrollBars.Vertical
t.Grid.ScrollOptions = 0

目录树

全局代码

 

<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)

谢谢