Hex Viewer / Editor

[GremlinSA]

Like I posted earlier, you can just use a Long variable. No mystery involved.

Here's the way I edited the code when I was in Debug:

Private Sub Next_Block()
If File_Change Then Write_Data (File_Pos)
File_Pos = File_Pos + Tot_Count
If File_Pos > (CLng(Scroll_Pos.Max) * 16) Then
    File_Pos = (CLng(Scroll_Pos.Max) * 16)
End If
Read_Data File_Pos
End Sub

However, it would be more efficiant to use a Long.

I adjusted the code like that.. But still 1 small problem ... Integer max = 32767... Scroll_Pos.Max * 16 = a limit of 524K..

So if you open a file of 600K you can only view the first 524K..

Any Luck on finding why the color goes funny.. (try taking the hexD.visible = True / False out )

Grem...