LineShape如何实现控件数组？急！

2011-06-23 11:35:38 183 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

C++图形编辑器课程设计：从架构到实现的全流程实战指南面向对象编程是C++的核心思想，它通过封装、继承和多态三大特性，将数据和操作数据的方法组织成对象，从而构建出模块化、可复用、易维护的软件系统。其原理在于将现实世界中的实体抽象为类，通过对象间的交互模拟业务逻辑。这一技术价值在于显著提升了大型工程代码的组织性和可扩展性。在图形用户界面（GUI）开发、游戏引擎、图形处理等应用场景中，面向对象设计尤为关键。本文以C++图形编辑器项目为例，深入探讨如何运用面向对象思想与设计模式（如命令模式实现撤销/重做功能），结合Qt框架进行跨平台开发，并解析双缓冲技术、事件处理、阅读详情

最近要把一个vb6.0项目升级为vb.net,这个项目类似一个图形编辑器，需要在窗体上画n多条线，拖动图形的时候，图上的连接线也要跟着动。我做了一个实例，代码如下：
Imports Microsoft.VisualBasic.PowerPacks
Imports Microsoft.VisualBasic.Compatibility

Public Class Form1
Private arrayList1 As ArrayList
'Private sharp0 As LineShape

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub add()
Dim ShapeContainer1 = New Microsoft.VisualBasic.PowerPacks.ShapeContainer()
Dim sharp0 = New Microsoft.VisualBasic.PowerPacks.LineShape()
ShapeContainer1.Shapes.AddRange(New Microsoft.VisualBasic.PowerPacks.Shape() {sharp0})
Me.SuspendLayout()
sharp0.X1 = VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(Button1.Left) + VB6.PixelsToTwipsX(Button1.Width))
sharp0.Y1 = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY(Button1.Top) + VB6.PixelsToTwipsY(Button1.Height) / 2)
sharp0.X2 = VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(Button1.Left + 50) + VB6.PixelsToTwipsX(Button1.Width) + 100)
sharp0.Y2 = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY(Button1.Top) + VB6.PixelsToTwipsY(Button1.Height + 100) / 2)
Me.Controls.Add(ShapeContainer1)
'arrayList1.Add(New ShapeContainer)
'Me.PointToClient()
Me.ResumeLayout(False)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.add()
End Sub
End Class

可我往arrayList1里加的时候报运行时错误。我是做C#的，实在搞不懂VB这块控件数组怎么弄，请各位老大帮忙呀！今天就必须做出来啊！谢谢！！

...全文