严格听取版主建议，专门开设一个visual graph专栏，请各位技术人员支持。如有不对请提出，会尽快进行改。谢谢。首先讲解一下visual graph的应用领域：Visual Graph工业图形系统，此产品经过长期研发，包含了大量的创新技术，系统具有尺寸小（不到300K）、功能丰富、灵活性高、稳定可靠等突出优点，特别适合于WEB上的软件开发，是国产软件中比较罕见的精品,目前已经广泛应用于电力、煤炭、化工、仿真、通信、自动化监控、地理信息系统、报表开发等许多领域。
严格听取版主建议，专门开设一个visual graph专栏，请各位技术人员支持。如有不对请提出，会尽快进行改。谢谢。
首先讲解一下visual graph的应用领域：
Visual Graph工业图形系统，此产品经过长期研发，包含了大量的创新技术，系统具有尺寸小（不到300K）、功能丰富、灵活性高、稳定可靠等突出优点，特别适合于WEB上的软件开发，是国产软件中比较罕见的精品,目前已经广泛应用于电力、煤炭、化工、仿真、通信、自动化监控、地理信息系统、报表开发等许多领域。
提供官方下载地址：
http://www.visual-graph.com
一些典型用户列表： 国电自动化研究院，南京南瑞集团公司 南京东大金智电气自动化有限公司 深圳市国电信息技术股份有限公司 国电南京自动化股份有限公司 江苏河海大学电力软件有限公司 江苏常州东瑞电力软件公司 重庆跨越集团宏泰电力软件公司 北京高阳万为电力信息技术有限公司 南京四方亿能公司 深圳腾鹰软件有限公司 北京百联优力软件有限公司 杭州人和软件开发有限公司 昆明东电科技有限公司 杭州朗新软件有限公司
以下资料供下载的朋友参考
第一讲图库的使用
Visual Graph有强大的图库开发能力，而且使用非常简便，下面以VB中的使用为例：
一、在VB中建立一个新的工程，在左侧工具栏上按右键，选择菜单“部件”，添加Visual Graph控件。
二、在窗口上添加Visual Graph ActiveX Control控件，这个控件将用来画图。
三、再添加一个Visual Graph ActiveX Control控件，这个控件中的文件将被当作图库，我们把这个控件充分缩小，放到上面那个控件的下面。
四、在Load事件里写程序：
vgctrl1.Design ""
vgctrl2.Run "e:\vg\lib\电力设备.tbl"
这一句把vgctrl2中的图形文件当作元件库。
五、在窗口上插入按钮。在这个按钮的OnClick事件里面写：
vgctrl1.vg.NewUnit vgctrl2.vg, "垂直刀闸"
画图时，将从当前指定的图库中寻找“垂直刀闸”这个元件。
六、再放一个按钮，在这个按钮的OnClick事件里面写：
vgctrl1.vg.ActiveSheet.AddUnit vgctrl2.vg, "垂直刀闸"
七、运行，测试。
2楼
第二讲 在VB中对选中的图形进行编辑
在VB中对选中的图形进行编辑
在设计绘图界面的时候，我们经常需要对选中的图形进行编辑。下面我们以VB为例，说明使用方法：
一、在VB中建立一个新的工程，在左侧工具栏上按右键，选择菜单“部件”，添加Visual Graph控件。
二、在窗口上添加Visual Graph ActiveX Control控件，这个控件将用来画图。
三、在Form_Load中写如下代码：
vgctrl1.Design ""
set d = vgctrl1.vg.ActiveSheet.AddUnit( 0, "circle" )
d.SetBounds 10, 10, 40, 40
set d = vgctrl1.vg.ActiveSheet.AddUnit( 0, "circle" )
d.SetBounds 60, 10, 40, 40
set d = vgctrl1.vg.ActiveSheet.AddUnit( 0, "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.ActiveSheet.Selection
s = "一共选中了：" + CStr( g.UnitCount ) + "个图形。"
if g.UnitCount > 0 then
s = s + "其中第一个选中的图形是：" + g.Units( 0 ).Name
end if
Caption = s
五、运行这个程序，用鼠标选中画面上的两个图形。
回复
3楼
有没有人到官方网站上下载试用呀？！用时有什么问题请发到论坛里来。今天进行第三讲
可移动标签
观察下面这个元件，它有一个文字标签，标签上有一个点，鼠标拖动这个点，可以改变标签的位置，标签和调控点都在图形选择框外面。
下面说明制作方法：
一、在集成开发环境中新建一个图形文件，画面上放一个“水平开关”元件。该元件在系统Lib子目录下的“电力设备.tbl”里。
二、这个元件没有带文字标签，我们想办法改进一下它。
三、在元件上按右键选择“编辑元件”，打开一个新的窗口，我们现在已经“进入”元件的“内部”了，现在我们看到的页面就是外面看到的那个“水平开关”。
四、在左侧图库列表的基本图形中选择文字单元，鼠标在画面上单击添加一个文字单元，（这个文字单元是无边框的，它的Border属性为0，如果画的时候鼠标在页面上拉框，则创建的文字单元有边框）
五、在左侧图库列表的基本图形中选择线条单元，鼠标到上面这个文字单元的中间按下左键再立即按下右键，则在文字单元上面添加了一个只有一个点的线条Line3。
六、在右侧的函数事件中找到OnNodeChange，双击，编写下面的代码：
Text1.MoveTo(Sender.X[0]-Text1.Width/2,Sender.Y[0]-Text1.Height/2)
七、选择文字单元和线条单元，单击工具栏上的“锁定”。锁定的图形在图元中将不被选中。
八、选择菜单“文件/保存”，其实这里的保存并非保存到文件或硬盘，而是更新了元件。接着，关闭窗口。
九、测试这个元件，我们看到元件上现在带了一个文字标签，移动元件，标签跟着移动。标签上面有一个黄色的菱形，拖动，标签跟着移动。
回复
4楼
继续贴，
下面左边这个图是一个按钮，右图是该按钮按下的状态。
具体做法如下：
一、在画面上用多边形工具画一个五角星，把它的背景设置成灰色，然后复制一份，放到它的左上方，把这个五角星的背景色设置成红色。两个图形的水平垂直偏移距离是16。
二、在页面的OnLButtonDown事件里面写如下代码：（注意不是在五角星上写OnLButtonDown事件代码，不要选中五角星！）
MoveBy( 16, 16 )
三、在页面的OnLButtonUp事件里面写如下代码：
MoveBy( -16, -16 )
四、选择菜单“页面/更名...”，把当前页面的名字改成“五角星按钮”。
五、保存文件，命名为“c:\libtest.tbl”。
六、在左侧图库列表窗口上按右键，选择“打开...”，插入上面这个文件，就可以看到这个libtest元件库。
七、新建一个文件，把“五角星按钮”拖动到画面上，选择菜单“程序/运行”，测试这个按钮。
回复
5楼
:L 发了这么多，怎么没有一个朋友帮忙顶呀？？？
回复
6楼
你好，请问vg里的直线当宽度超过1后，端子头为圆头很不好看，怎样才可以把直线的端子修改为直头呢？
回复
7楼
谢谢楼主提供的好资料
回复
