Next
วนลูปจนค่าเท่ากับอาเรย์
ตัวอย่างการประกาศอาเรย์ จะมีวงเล็บตามหลัง โดยด้านหน้าวงเล็บจะเป็นชื่อของอาเรย์
Ex1
Dim myIPAddresses() As IPAddress = myIPHostEntry.AddressList
ตัวอย่างการใช้ For Each
Ex2
For Each myIPAddress In myIPAddresses
Console.WriteLine(myIPAddress.ToString)
Next
myIPAddress คือตัวแปร
muIPAddresses คือชื่อของอาเรย์
ใช้ In ในการดึงเอาข้อมูลในอาเรย์เข้ามายังตัวแปร myIPAddress แล้วแสดงออกมาบนหน้าจอ วนลูปจนค่าเท่ากับอาเรย์
ตัวอย่างโปรแกรมเปลี่ยนชื่อโดเมนแสดงเป็น IP Address
Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Try
Dim myIPHostEntry As IPHostEntry = Dns.Resolve("www.google.com")
Dim myIPAddresses() As IPAddress = myIPHostEntry.AddressList
Dim myIPAddress As IPAddress
Dim strIPAddressList As String
For Each myIPAddress In myIPAddresses
Console.WriteLine(myIPAddress.ToString)
Next
Catch ex As SocketException
Console.WriteLine(ex.Message)
End Try
End Sub
End Class
ไม่มีความคิดเห็น:
แสดงความคิดเห็น