|
二次开发的14.5.2 编程思路
1 ObjectID、Handle和对象本身
2 记录和实体对应的惟一性
我对其改进主要使用了MSHFlexGrid1控件,增加了其可视性。
Option Explicit
Dim EntStr As String, EntColor As String
Private Sub MSHFlexGrid1_RowColChange()
Dim Ent As Object
'Entstr恢复原来已经取的值
If EntStr "" Then
Set Ent = obj_Doc.HandleToObject(EntStr)
Ent.Color = EntColor
End If
'点击行所取的值
EntStr = Trim(MSHFlexGrid1.TextMatrix(jj, 17))
If EntStr "" Then
Set Ent = obj_Doc.HandleToObject(EntStr)
EntColor = Ent.Color
End Sub
相比二次开发程序示例而言,直观性更好。
效果见图
vufekhsjco3.jpg
点击任意行实体变色,rowchange换成任意行实体恢复原来实体。 |
|