CSDN博客

img jackxu1982

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

发表于2008/9/28 9:44:00  1665人阅读

        不久前,在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

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

0 0

相关博文

我的热门文章

img
取 消
img