class1.vb

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

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Text

Namespace CodeForChapter4cs_DLL

  Public Class SomeClass
	  Implements ISomeInterface
	#Region "ISomeInterface Members"

	Private Sub DoIt() Implements ISomeInterface.DoIt
	  Dim i As SomeClass = New SomeClass()
	  Dim s As ISomeOtherInterface = CType(i, ISomeOtherInterface)
	End Sub

	#End Region
  End Class

  Public Interface ISomeInterface
	Sub DoIt()
  End Interface

  Public Interface ISomeOtherInterface

  End Interface
End Namespace