Expand|Select|Wrap|Line Numbers
- private Sub cmdscan_Click()
- Const a As Byte = 4
- Const b As Byte = &HFF
- Dim I As Long
- Dim AnyChanged As Boolean
- Dim changeMade As Boolean
- Dim value As Byte
- 'Dim x
- 'Dim tmp As String
- For I = 49 To 100 Step 6
- AnyChanged = False
- rich1.text= ; "Before : "; HexByte2Char(arrByte(I)); " "; HexByte2Char(arrByte(I + 1)); " "; HexByte2Char(arrByte(I + 2)); _ vbnewline
- " "; HexByte2Char(arrByte(I + 3)); " "; HexByte2Char(arrByte(I + 4)); " "; HexByte2Char(arrByte(I + 5))
- ' Print HexByte2Char(I)
- If arrByte(I) <> a Then
- arrByte(I) = a
- value = a
- changeMade = True
- End If
- If arrByte(I + 1) <> b Then
- arrByte(I + 1) = b
- changeMade = True
- End If
- If changeMade Then
- AnyChanged = True
- rich1.text="After : "; HexByte2Char(arrByte(I)); " "; HexByte2Char(arrByte(I + 1)); " "; HexByte2Char(arrByte(I + 2)); _
- " "; HexByte2Char(arrByte(I + 3)); " "; HexByte2Char(arrByte(I + 4)); " "; HexByte2Char(arrByte(I + 5)); _vbnewline
- " <--- Corrected"
- End If
- Debug.Print
- Next
- End Sub
is it way to display it in richbox.debug.print i used rich1.text="After..............
or put rich1.text=rich1.text& HexByte2Char(arrByte(I)); " "; HexByte2Char(arrByte(I + 1)); " "; HexByte2Char(arrByte(I + 2)); _ vbnewline
is it the way
u said i can open the file in binary mode and display the array back to file.
mHandle = FreeFile
Open "a:\bonding.bin " For Binary As mHandle
how to put back into file.Sorry again because im asking a lot question.im asking question for simple task aslo.sory killer32