📄 class1.vb
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -