|
在VB中对选中的图形进行编辑
在设计绘图界面的时候，我们经常需要对选中的图形进行编辑。下面我们以VB为例，说明使用方法：
一、在VB中建立一个新的工程，在左侧工具栏上按右键，选择菜单“部件”，添加Visual Graph控件。
二、在窗口上添加Visual Graph ActiveX Control控件，这个控件将用来画图。
三、在Form_Load中写如下代码：
vgctrl1.Design ""
set d = vgctrl1.vg.ActiveSheet.AddUnit( nothing, "circle" )
d.SetBounds 10, 10, 40, 40
set d = vgctrl1.vg.ActiveSheet.AddUnit( nothing, "circle" )
d.SetBounds 60, 10, 40, 40
set d = vgctrl1.vg.ActiveSheet.AddUnit( nothing, "circle" )
d.SetBounds 110, 10, 40, 40
四、在Visual Graph控件的OnSelectChange事件中写如下代码：
dim g as IGroup
dim d as IUnit
dim s as string
set g = vgctrl1.vg.Selection
s = "一共选中了：" + g.UnitCount.ToString() + "个图形。"
if g.UnitCount > 0 then
s = s + "其中第一个选中的图形是：" + g.Units( 0 ).Name
end if
Caption = s
五、运行这个程序，用鼠标选中画面上的两个图形。 |