摘要: Dim arr1 As String() = {"001", "002"} Dim arr2 As String() = New String() {"001", "002"} Dim arr3(2) As String arr3(0) = "001" 'Dim arr4(2) As String = {"001", "0... 阅读全文
posted @ 2007-07-29 11:30 yongwnet 阅读(224) 评论(0) 推荐(0) 编辑
摘要: Public Class Form1Class Form1 Dim WithEvents cls1 As New ClassTest() 'WithEvents方式 Dim cls2 As New ClassTest() 'AddHandler方式 Private Sub Form1_Load()Sub Form1_Load(ByVal sender A... 阅读全文
posted @ 2007-07-29 00:27 yongwnet 阅读(520) 评论(0) 推荐(0) 编辑