VB.Net Tutorial/Development/DirectCast
DirectCast
<source lang="vbnet">public class Test
public Shared Sub Main Dim numberOfTimes As Object numberOfTimes = 12 If TypeOf numberOfTimes Is Integer Then Dim repeatCount As Integer repeatCount = _ DirectCast(numberOfTimes, Integer) For idx As Integer = 1 To repeatCount Console.WriteLine("Duncanma") Next End If End Sub
End class</source>
Duncanma Duncanma Duncanma Duncanma Duncanma Duncanma Duncanma Duncanma Duncanma Duncanma Duncanma Duncanma
DirectCast from Integer to MsgBoxResult
<source lang="vbnet">Option Strict On Public Module TestDirectCast
Public Sub Main Dim choice As Integer = MsgBox("Continue?", MsgBoxStyle.YesNo) Dim result As MsgBoxResult = DirectCast(choice, MsgBoxResult) Console.WriteLine(result.ToString) End Sub
End Module</source>
No