تبدیل کدهای VB6 به VB.Net

[Mani_rf]

6- ساختن داده از نوع دلخواه.

VB6

Type UserName

   LoginName As String

   FullName As String

   Address As String

   MaxLogins As Integer

End Type

VB.Net

Structure UserName

   Dim LoginID As String

   Dim FullName As String

   Dim Address As String

   Dim MaxLogins As Short

End Structure

[Mani_rf]

7- خواندن خط به خط از فایل.

VB6

Dim sLine As String

Open "C:\File.txt" For Input As #1

Do Until EOF(1)

Line Input #1, sLine

Loop

Close #1

Vb.Net

Dim sr As StreamReader = File.OpenText("c:\file.txt")

Dim sLine As String

Do

sLine = sr.ReadLine()

Loop Until sLine = Nothing

sr.Close()

[Mani_rf]

8- خواندن کل فایل.

Vb6

Dim sAllText As String

Open "C:\File.txt" For Input As #1

sAllText = Input(LOF(1), #1)

Close #1

VB.Net

Dim sr As StreamReader = File.OpenText("c:\file.txt")

Dim sAllText As String

sAllText = sr.ReadToEnd()

sr.Close()

[Mani_rf]

9- چک کردن وجود فایل.

Vb6

If Dir("c:\file.txt") <> "" Then

MsgBox("File Found!")

Else

MsgBox("File Not Found!")

End If

VB.Net

If File.Exists("C: \File.txt") Then

MessageBox.Show("File Found!")

Else

MessageBox.Show("File Not Found!")

End If