如何实现datagrid单击后被选中单元格所在行改变颜色.txt

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

1、 DataGrid控 件 本 身 不 可 能 做 到 象 你 提 到 的 这 种 功 能 。 
    2、 在 窗 口 的 DataGrid控 件 上 单 击 ， 在 弹 出 菜 单 上 选 “ 折 分 “ 页 的 ” 记 录 选 择 器 “ 每 行 前 有 个 指 示 器 ， 击 指 示 器 可 选 中 该 行 。 
    3、 这 是 个 笨 方 法 
     （ A） 在 单 击 事 件 中 取 （ li_count=DataGrid1.Columns.Count） 表 总 列 数 。 
     （ B） 动 态 生 成 一 个 文 本 框 控 件 数 组 (TEXT[li_count]， （ 最 好 用 LABEL控 件 ， 将 其 设 为 透 时 的 也 可 。 ） 修 改 每 个 元 素 以 下 属 性 ： APPEARANCE设 为 0-FLAT， BORDERSTYLE为 0-NONE， VISIBLE设 为 FALSE。 
     （ C） 在 ROWCOLCHANGE事 件 中 取 （ DataGrid1.Columns(第 几 列 ).Text） 各 列 的 值 赋 给 控 件 数 组 ， 并 改 控 件 数 组 的 背 景 为 你 想 要 的 颜 色 。 （ 用 LABEL可 略 此 步 ） 
     （ D） DataGrid1.Columns(0).Left取 第 一 列 的 左 边 界 ， DataGrid1.Columns(0).TOP 取 第 一 列 的 上 边 界 ， 
     DataGrid1.Columns(0).width 
     DataGrid1.Columns(0).height 赋 给 应 放 在 当 前 行 的 文 本 控 件 的 相 应 属 性 。 
     （ E） 设 所 有 控 件 是 可 见 的 。 
    4、 显 示 所 选 中 的 数 据 。 在 DATAGRID1的 ROWCOLCHANGE事 件 中 
     dim li_data as string 
     dim li_col as integer 
     li_col =datagrid1.col 
     li_data=DataGrid1.Columns(li_col).Text 
     li_col=msgbox(li_data,vbOKOnly) 
    5.双 击 显 示 对 话 框 
     (a)在 窗 口 中 放 MS common Dialog control 6.0控 件 
     (b)在 DATAGRID控 件 的 双 击 中 写 
     CommonDialog1.ShowOpen可 以 显 示 打 开 文 件 对 话 框 。 
<END>