挑战性课题，谁能搞定？

[FeiXue_AL]

将下面的vb.net 转换成vb。
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName = "" Then
MessageBox.Show("请选择一个打开的文件", "打开文件错误", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
Exit Sub
End If

Dim fs As FileStream = New FileStream(OpenFileDialog1.FileName, FileMode.Open)
Dim r As BinaryReader = New BinaryReader(fs)
Dim i As Integer
Dim char_read As String
Dim string_read As String
Dim ii
For i = 1 To 168

char_read = r.ReadByte.ToString
Next

For ii = 1 To 20
char_read = ""
string_read = ""
For i = 1 To 72
char_read = r.ReadByte.ToString
'string_read = string_read + Hex(Val(char_read))

string_read = string_read + Chr(char_read)
Next
ListBox1.Items.Add(string_read)

Next
r.Close()

[viena]

^-^

[捏造的信仰]

stream？从没在VB里头弄过这个

[APP开发王]

在VB里面添加common dialuogecontrol控件！！！

[earlsen]

用api

[zhanglaokan]

Dim inputdata As String '声明读入数据字符变量
dim strOpenFileName as string'文件名
Open StrOpenFileName For Input As #1
Do While Not EOF(1) ' 检查文件尾。
Line Input #1, inputdata ' 读入一行数据。
Print inputdata'在此放入你的代码
Loop
Close #1