好久没写.NET了 下面的代码看看能不能启发你点什么思想设置DATAGRID滚动条不可见 Private Sub ScrollBarNoVisible(ByVal aControl As Control) Dim c As Control Try For Each c In aControl.Controls If c.GetType() Is GetType(HScrollBar) Then c.Visible = False End If Next Catch ex As Exception ProjectException.ShowErrMsg(Me.Name, "ScrollBarNoVisible", ex.Message) End Try End Sub
下面的代码看看能不能启发你点什么思想设置DATAGRID滚动条不可见
Private Sub ScrollBarNoVisible(ByVal aControl As Control) Dim c As Control Try
For Each c In aControl.Controls
If c.GetType() Is GetType(HScrollBar) Then
c.Visible = False
End If
Next
Catch ex As Exception
ProjectException.ShowErrMsg(Me.Name, "ScrollBarNoVisible", ex.Message)
End Try End Sub