frminstrumentation.vb

来自「Microsoft Mobile Development Handbook的代码」· VB 代码 · 共 59 行

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports System.Collections
Imports System.Diagnostics

Namespace CodeForChapter4cs
  Public Partial Class frmInstrumentation
	  Inherits Form
	Private Sub DoSomethingNew(ByVal o As Object)
	  Dim col As ArrayList = CType(o, ArrayList)
	  Dim lastObject As Integer = col.Count - 1
	  Dim total As Integer = 0
	  For i As Integer = 0 To lastObject - 1
		Debug.WriteLine(String.Format("Iteration {0}:The 'total' is {1} and I will now add {2}", i, total, (CType(col(i), MyType)).NoOfWidgets))
		total += (CType(col(i), MyType)).NoOfWidgets
	  Next i

	  MessageBox.Show("Total = " & total)
	End Sub

	Public Sub New()
	  InitializeComponent()
	End Sub

	Private Sub menuItem1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles menuItem1.Click
	  Dim ar As ArrayList = New ArrayList(4)
	  ar.Add(New MyType(1))
	  ar.Add(New MyType(1))
	  ar.Add(New MyType(2))
	  ar.Add(New MyType(0))
	  ar.Add(New MyType(1))
	  Me.DoSomething(ar)
	End Sub

	Private Sub DoSomething(ByVal o As Object)
	  Dim col As ArrayList = CType(o, ArrayList)
	  Dim lastObject As Integer = col.Count - 1
	  Dim total As Integer = 0
	  For i As Integer = 0 To lastObject - 1
		 total += (CType(col(i), MyType)).NoOfWidgets
	  Next i

	  MessageBox.Show("Total = " & total)
	End Sub
  End Class

  Public Class MyType
	Public NoOfWidgets As Integer

	Public Sub New(ByVal widgets As Integer)
	  NoOfWidgets = widgets
	End Sub
  End Class
End Namespace