如何禁止拆分datagrid.txt

VB技巧问答10000例 VB技巧问答10000例

方 法 1:(不 推 荐 ) 
    DataGrid1.RecordSelectors = False 
    方 法 2: 
    设 置 或 编 程 DataGrid本 身 的 成 员 (方 法 属 性 ),好 象 确 实 不 能 禁 止 拆 分 ! 
    换 个 新 思 路 : 
    加 个 控 件 将 DataGrid的 左 下 角 的 拆 分 标 签 挡 上 ! 
    实 践 证 明 Label、 Image不 行 (老 在 最 底 层 ), 
    但 Command、 Picture可 以 ! 
    要 仔 细 码 放 Command效 果 最 好 (极 佳 )! 
    最 好 再 加 一 句 : 
    Command1.TabStop=False 
     补 充 编 写 如 下 过 程 : 
     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 
<END>    
这 个 问 题 比 较 模 糊 ,但 是 对 于 DataGrid的 Split操 作 有 两 个 : 
     拆 分 : DataGrid1.Splits.Add(0) 
     去 掉 : DataGrid1.Splits.Remove(0) 
    详 情 请 看 帮 助 ! 
<END>