تبدیل کد vb6 به vb2008

[m.javvi]

با سلام
این کدزیر به زبان vb6 است میشه اون رو به vb2008 تبدبل کنید
Private Sub Command1_Click()
Open "f:\test.txt" For Output As #1
a = InputBox("enter anme")
Print #1, a
Label1.Caption = a
Close
End Sub
Private Sub Form_load()
Open "f:\test.txt" For Input As #1
Input #1, a
Label1.Caption = a
Close
End Sub

[ACorvinus]

سلام.

کدهای vb6 رو فراموش کردم، بگین چیکار میکنه براتون کد 2008 رو بگم. ممنونم.

[Mani_rf]

بفرماید دوست عزیز :


Private Sub Command1_Click()
FileOpen(1, "f:\test.txt", OpenMode.Output)
Dim a As String = InputBox("enter anme")
Print(1, a)
Label1.Text= a
FileClose(1)
End Sub

Private Sub Form_load()
Dim a As String
FileOpen(1, "f:\test.txt", OpenMode.Input)
Input(1, a)
Label1.Text = a
FileClose(1)
End Sub


در ضمن بد نیست سری هم به این تاپیک بزنید:
http://barnamenevis.org/forum/showthread.php?t=209691