以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]面板垂直滚动条位置问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=94196)
--  作者：pcxjxjhkw
--  发布时间：2016/12/18 13:13:00
--  [求助]面板垂直滚动条位置问题

如何设置面板的垂直滚动条到指定位置？

下面代码报错。

Dim pnl As WinForm.Panel = e.Form.Controls("Panel1")
Dim p As Point = pnl.ScrollPosition

Select e.Sender.SelectedIndex
    Case 0
        p.ScrollPosition.y = 0
    Case 1
        p.ScrollPosition.y = 157
    Case 2
        p.ScrollPosition.y = 314
    Case 3
        p.ScrollPosition.y = 518
End Select
--  作者：有点色
--  发布时间：2016/12/18 15:18:00
--  

Dim pnl As WinForm.Panel = e.Form.Controls("Panel1")
Dim p As Point = pnl.ScrollPosition

Select e.Sender.SelectedIndex
    Case 0
        p.y = 0
    Case 1
        p.y = 157
    Case 2
        p.y = 314
    Case 3
        p.y = 518
End Select

\'pnl.ScrollPosition = p
--  作者：pcxjxjhkw
--  发布时间：2016/12/18 15:29:00
--  
哦，谢