|
这是我利用文件操作方法编写的文件16进制察看软件。本来是可以利用UltraEdit来干这件事的。我编写的目的就是想看一下自己能不能编出来。于是我就用VB编了一下，先前我只是把源代码直接放到网上，没想到大家很支持我，给了我很大的鼓舞，在这里我十分感谢eastunfail的帮助，使我的代码更加完善。
源代码如下：
Dim col As ColumnHeader
Dim litem As ListItem
Dim sb As ListSubItem
Dim filename As String
Dim index As Long
Private Sub Command1_Click()
Dim b As Byte
''''Dim ff() As Byte
Dim fl As Long
Dim sect As Long
Dim ss As Long
ListView1.ListItems.Clear
dlg.ShowOpen
filename = dlg.filename
fl = FileLen(filename)
sect = fl / 16
ss = fl Mod 16
Open filename For Binary As #1
If sect = 0 Then
Set litem = ListView1.ListItems.Add()
For index = 1 To ss
Get #1, index, b
Set sb = litem.ListSubItems.Add(index, , DecToHex(b))
Next index
End If
If sect <> 0 Then
For i = 1 To sect
Set litem = ListView1.ListItems.Add()
For index = 1 To 16
Get #1, 16 * (i - 1) + index, b
Set sb = litem.ListSubItems.Add(index, , DecToHex(b))
Next index
Next i
Set litem = ListView1.ListItems.Add()
For index = 1 To ss
Get #1, index, b
Set sb = litem.ListSubItems.Add(index, , DecToHex(b))
Next index
End If
Close #1
End Sub
Private Sub Command2_Click()
MsgBox "Welcome To Three Leaf WorkRoom!!", , "About"
End Sub
Private Sub Form_Load()
Dim i As Integer
ListView1.ColumnHeaders.Add , , "Address", ListView1.Width / 14
For i = 1 To 16
Set col = ListView1.ColumnHeaders.Add()
col.Text = "+" & DecToHex(i - 1)
col.Width = ListView1.Width / 25
Next
ListView1.ColumnHeaders.Add , , "ASCII", ListView1.Width / 4
End Sub
Private Function DecToHex(dd As Byte) As String
DecToHex=IIf(Dec>&HF,Hex(dd),"0" & Hex(dd)) ''''这行代码是eastunfail提供的。
End Function
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
