help

[kirubagari]

rivate Sub Command2_Click()
Dim i As Long

For i = 1 To mfilesize Step 6

rich1.Text = rich1.Text & "Before : " & HexByte2Char(arrByte(i)) & _
" " & HexByte2Char(arrByte(i + 1)) & " " _
& HexByte2Char(arrByte(i + 2)) & " " _
& HexByte2Char(arrByte(i + 3)) & " " & HexByte2Char(arrByte(i + 4)) & " " & HexByte2Char(arrByte(i + 5))


Next
End Sub
using this coding the output is nasty.How to make it seperated by line and how to use the scroll box to see the data in the rich text box.what is the coding

[hariharanmca]

rivate Sub Command2_Click()
Dim i As Long

For i = 1 To mfilesize Step 6

rich1.Text = rich1.Text & "Before : " & HexByte2Char(arrByte(i)) & _
" " & HexByte2Char(arrByte(i + 1)) & " " _
& HexByte2Char(arrByte(i + 2)) & " " _
& HexByte2Char(arrByte(i + 3)) & " " & HexByte2Char(arrByte(i + 4)) & " " & HexByte2Char(arrByte(i + 5))


Next
End Sub
using this coding the output is nasty.How to make it seperated by line and how to use the scroll box to see the data in the rich text box.what is the coding

Can you explain more to get clear, how the design will be?

[kirubagari]

actualy when i display the data until end of file size in the rich text box.the result is ok.but it is not clear.all the values not in correct manner.not arrange accordingly.how to use scroll box ,whwn i scroll the data will be dispalyed until end of file.killer 32 where are you

[hariharanmca]

actualy when i display the data until end of file size in the rich text box.the result is ok.but it is not clear.all the values not in correct manner.not arrange accordingly.how to use scroll box ,whwn i scroll the data will be dispalyed until end of file

I think you have to change font name to Courier or Courier new, because all other font will not be same in size

change font in property

[Killer42]

Using a non-proportional font such as Courier New will probably help with the formatting. You will probably also need to add a linebreak after each section. Just add the built-in constant vbNewLine onto the end of each part. In other words...

Private Sub Command2_Click()
  Dim i As Long
  For i = 1 To mfilesize Step 6
    rich1.Text = rich1.Text & "Before : " & HexByte2Char(arrByte(i)) & _
        " " & HexByte2Char(arrByte(i + 1)) & " " _
        & HexByte2Char(arrByte(i + 2)) & " " _
        & HexByte2Char(arrByte(i + 3)) & " " _
        & HexByte2Char(arrByte(i + 4)) & " " _
        & HexByte2Char(arrByte(i + 5)) _
        & vbNewLine
Next
End Sub

[danp129]

If loading alot of data into a text box, instead of

rich1.Text = rich1.Text & "new text"

consider:

rich1.seltext = "new text"

or

rich1.selstart=len(rich1.text) 'or len(rich1.textrtf)
rich1.seltext = "new text"