Question

VB6.0 如何读取图片中的信息。（图片用记事本打开后可以看到的信息）

Answer 1

只要用二进制方式打开图片，并且把数据赋值给一个字节数组即可，比如：

Private Sub Command1_Click()
Dim b() As Byte, i As Long
Open "f:\1.jpg" For Binary As #1  '文件名自己改
b = InputB(LOF(1), #1)
Close #1
For i = 0 To UBound(b)  '显示出所有的可见字符（汉字除外）
    If b(i) > 31 And b(i) < 127 Then Print Chr(b(i));
    If CurrentX > ScaleWidth Then Print
Next
End Sub

如果要显示特定位置的信息，比如第10个到第250个字节的内容，只需

For i = 10 To 250

即可