各位高手帮我看看这个程序怎么样
关于此语言环境下的使用,可以参考VG电子文档:入门手册.chm里面的ActiveX控件在C#中的使用虽然在.Net环境下语言环境调用ActiveX的方法差不多,但下面,我们列出一个基于的例子出来,由于与VB6有本质上的不同,所以还是以示图的方式来演示VG在(VS2005)下的应用:
新建一个的Windows应用程序。
在常规的选项卡里面,鼠标右键点击,在弹出的菜单中选择:选择项(I)……
在选择工具箱的COM组件标签里面,找到VG的两个项目,选择之后,点击确定。
那么就可以发现有两个VG的组件已经加入到里面去了。
在窗口里面放上VG插件与几个按钮。作用与他们的名字一样。
运行或编辑时:
点击进度条加量,见下图:
点击增加两个矩形,再点击设置矩形连接:
其运行的代码如下:
Public Class Form1
Private rect1, rect2 As vg.Iunit’ 声明两个矩形变量,以后要进行引用
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Axvgctrl1.MoveSheet()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Axvgctrl1.Run("D:\tttt.tbl") '运行图形
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Axvgctrl1.Design("D:\tttt.tbl") '编辑图形
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
'增加两个矩形
rect1 = Axvgctrl1.ActiveSheet.AddUnit("rect", 10, 10, 50, 50)
rect2 = Axvgctrl1.ActiveSheet.AddUnit("rect", 100, 100, 50, 50)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim line1 As vg.IUnit
line1 = Axvgctrl1.ActiveSheet.AddUnit("line", 50, 50, 30, 30)
'P0,P1是线line1的两个端点连接点的名字。 center是矩形的中心连接点的名字。
Axvgctrl1.ActiveSheet.SetLink(rect1, line1, "center", "p0")
Axvgctrl1.ActiveSheet.SetLink(rect2, line1, "center", "p1")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim p As vg.IUnit
p = Axvgctrl1.ActiveSheet.UnitByName("进度条")
If Not (p Is Nothing) Then
'让进度条的量为%
p.SetPropertyValue("Value", 80)
End If
End Sub
End Class