关于滚动条控制一个或多个DataGridView的滚动条滚动的实现(VB.net)

原创 2008年09月28日 09:44:00

        不久前,在VB.net版块转悠的时候,看到有人提问如何能够用一个HScroll同时控制两个DataGridView的VScroll滚动的问题,自己对VB.net也比较感兴趣,就研究了一下(呵呵,个人比较懒~,只研究简单问题)。实现的同时,顺便又增加了VScroll,原理一样,大同小异

 

实现代码如下:

 

  1. Public Class Form2
  2.     Private Sub Form2_Load(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles MyBase.Load
  3.         Dim stu1 As DataTable = New DataTable
  4.         
  5.         For i = 0 To 100
  6.             Dim col As DataColumn = New DataColumn
  7.             stu1.Columns.Add("序号" & i, GetType(String))
  8.         Next i
  9.         For i = 0 To 100
  10.             Dim row As DataRow = stu1.NewRow
  11.             row(i) = i.ToString
  12.             stu1.Rows.Add(row)
  13.         Next i
  14.         DataGridView1.DataSource = stu1
  15.         DataGridView2.DataSource = stu1
  16.         HScrollBar1.Minimum = 0
  17.         HScrollBar1.Maximum = DataGridView1.Columns.Count + DataGridView1.DisplayedColumnCount(False)
  18.         HScrollBar1.SmallChange = DataGridView1.DisplayedColumnCount(False) + 1
  19.         HScrollBar1.LargeChange = DataGridView1.DisplayedColumnCount(False) + 2
  20.         VScrollBar1.Minimum = 0
  21.         VScrollBar1.Maximum = DataGridView1.RowCount + DataGridView1.DisplayedRowCount(False)
  22.         VScrollBar1.SmallChange = DataGridView1.DisplayedRowCount(False) + 1
  23.         VScrollBar1.LargeChange = DataGridView2.DisplayedRowCount(False) + 3
  24.     End Sub
  25.     Private Sub VScrollBar1_Scroll(ByVal sender As System.ObjectByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll
  26.         DataGridView1.FirstDisplayedScrollingRowIndex = e.NewValue
  27.         DataGridView2.FirstDisplayedScrollingRowIndex = e.NewValue
  28.         Application.DoEvents()
  29.     End Sub
  30.     Private Sub HScrollBar1_Scroll(ByVal sender As System.ObjectByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
  31.         DataGridView1.FirstDisplayedScrollingColumnIndex = e.NewValue
  32.         DataGridView2.FirstDisplayedScrollingColumnIndex = e.NewValue
  33.         Application.DoEvents()
  34.     End Sub
  35. End Class

程序写得比较糙~,呵呵,大家见谅啊~~~。

C# 同步两个ListBox滚动条

有时需要对2个listbox的选项一一对比,两边来回容易搞乱搞错,所以google了一下,找到了2个listbox同步的方法。 同时也亲自试验了一下,贴上来 1 、方法一 Winform界面里放入...
  • u011981242
  • u011981242
  • 2016年07月13日 11:52
  • 1191

jquery控制div随滚动条滚动效果

jquery div随滚动条滚动效果 $(function () { $(window).scroll(function () { ...
  • smartsmile2012
  • smartsmile2012
  • 2015年02月03日 15:07
  • 6185

javascript滚动条响应鼠标滑轮的实现上下滚动事件

实现鼠标滚动滚轮事件: var scrollFunc=function(e){ e=e || window.event; if(e.wheelDelta){//IE/Ope...
  • fengshizty
  • fengshizty
  • 2014年06月30日 15:27
  • 3151

vc++ 添加可以滚动整个窗口的滚动条(水平和竖直)并可使用鼠标滚动轮和键盘上的上下键控制滚动条

水平和竖直的滚动条可以在窗口的属性中添加
  • zhengliuguo
  • zhengliuguo
  • 2014年06月30日 14:44
  • 1702

原生JS控制多个滚动条同步跟随滚动

原生JS控制多个滚动条同步跟随滚动
  • DeepLies
  • DeepLies
  • 2017年12月21日 18:02
  • 90

opencv中滚动条操作

opencv中使用createTrackbar函数来进行滚动条的操作,createTrackbar函数创建一个可以调整数值的轨迹条,并将轨迹条附加到指定的窗口上,使用起来很方便。函数原型: int...
  • piaoxuezhong
  • piaoxuezhong
  • 2017年01月26日 20:11
  • 844

Jquery控制div滚动,但不显示滚动条

Jquery控制div滚动,但不显示滚动条
  • u010670151
  • u010670151
  • 2016年04月21日 19:43
  • 3320

ListBox 水平滚动条智能滚动的实现方法

1.  选菜单 Insert/New Class,设新创建类的名字为CMyListBox,其基类为CListBox,其它选项采用缺省值。单击OK,VC自动生成MyListBox.cpp和MyListB...
  • dearwind153
  • dearwind153
  • 2015年12月14日 22:23
  • 1434

js实现一个自定义的滚动条

div模拟的自定义滚动条 * { margin: 0; padding: 0
  • baidu_34157788
  • baidu_34157788
  • 2016年08月23日 10:39
  • 348

Winform:关于滚动条美化

先来点直观的效果,这是偶新做的一个UI中的一条滚动条,这条滚动条可独立应用于各种有下拉框的控件,不简单吧。。。。嘿嘿。   换了一家新公司马上就接到两个UI的制作,好久没做这种UI美化...
  • wzk456
  • wzk456
  • 2015年09月02日 00:18
  • 1355
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:关于滚动条控制一个或多个DataGridView的滚动条滚动的实现(VB.net)
举报原因:
原因补充:

(最多只允许输入30个字)