如何使DataGrid不能拆分?

toply13 2003-10-18 01:37:42
我在Form_Load中写了如下语句但是没有效果!
DataGrid1.Splits(0).AllowSizing = False
该如何做?
...全文
92 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
守城小轩 2003-10-18
  • 打赏
  • 举报
回复
引playyuer | 小干部

换个新思路:
加个控件将 DataGrid 的左下角拆分标签挡上!
实践证明 Label、Image 不行(老在最底层),
但 CommandButton、PictureBox 可 以 !
要仔细码放 Command 效果最好(极佳)!
最 好 再 加 一 句 :
Command1.TabStop=true
补充编写如下过程在 Form_Load 事件里调用
Private Sub Form_Load()
'.....
DisableDataGridSplit DataGrid1,Command1
End Sub

Public Sub DisableDataGridSplit(DataGridX As DataGrid, CommandX As CommandButton)
'DataGrid1.ScrollBars = dbgBoth '最 好 加 上 这 一 句 ,一 劳 永 逸 ,
'否 则 还 得 编 程 DataGrid1_ColResize 等 事 件 ,
'控 制 Command 的 Visible 属 性
CommandX.Height = 270
CommandX.Move DataGridX.Left + 10, DataGridX.Top + DataGridX.Height - CommandX.Height, 30
CommandX.TabStop = True
End Sub

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧