Setting Insert / Overwrite mode programmatically

Hi SA. You are perfectly correct in your reply as most of the documentation I have studied advised against that and MS also warned about Timing issues with both Old and New methods implemented in SendKeys - I just could not find other way of achieving my goal.

I am trying to format text in two columns using a RTB for printing purposes (a DGV will not work unfortunately). I have Line Descriptions of a fixed length and then Barcodes of a variable length. First, I AppendText the Line Descriptions after which I move the caret (cursor) back and forth to Paste the Barcode from clipboard.

Needless to say, as you probably know, Insert mode is default which means every time I paste the Column 1 Barcode the Line Description of Column 2 will move forward depending on the width of the Barcode image.

Let me know if you need more info on what I am trying to achieve.

Regards,
T

In most part I completely agree with you, however I still find it a useful tool when it comes to printing. Sadly, as you already mentioned, it is severely handicapped in functionality and the RTF code is almost not from this world, thus not easily learned or implemented.

Thanks for your reply and alternative options provided.

Regards,
T

Edit: Here is the code I use to format the text - hope it sheds some light on what I am trying to do ;)

'Description Lines
'Patient Information and Contact Information Columns
Col1 = "Patient ID :" ' Patient Information
Col2 = "Mobile Number :" ' Patient Contact Information
'Insert Line
Dim DescriptionLine As String = String.Format("{0, -70} {1, -24}", Col1, Col2)
rtfMain.AppendText(DescriptionLine)
'We now have to move the cursor back to the first Col in order for us to paste the first Barcode. To do this
'we need to (1) Store the current cursor postion and (2) subtract 70 + 24 from the current position to paste
'Col1 Barcode, (3) move the cursor to the stored cursor postion to paste Col2 Barcode
CursorPosition = rtfMain.SelectionStart
'Move cursor back to Col1 position + 4 chars from ":"
rtfMain.SelectionStart = CursorPosition - 70 + 4
'Paste Barcode for Col1
If Not frmMain.ucPatientInformation.txtPatID.Text = "" Then
GenerateBarcode(frmMain.ucPatientInformation.txtPatID.Text)
Clipboard.Clear()
Clipboard.SetImage(img)
'We need to put the RichTextBox in Overwrite mode before pasting the Barcode
'My.Computer.Keyboard.SendKeys("{INSERT}", True)
SendKeys.Send("{INS}")
SendKeys.Flush()

'Paste the Barcode
rtfMain.Paste()

'Enable Insert mode again
'My.Computer.Keyboard.SendKeys("{INSERT}", True)
SendKeys.Send("{INS}")
SendKeys.Flush()