The first line sets the title for openFile dialog. MessageBox.Show( 'Unable to insert image.', 'Error' , MessageBoxButtons.OK, MessageBoxIcon.Error).df = DataFormats.GetFormat(DataFormats.Bitmap).string theImagePath1 = openFileDialog1.FileName.RichTextBox RichtxtEditor = activeChildForm.ActiveControl as RichTextBox.openFileDialog1.Filter = 'Bitmap Files|*.bmp|JPEG Files|*.jpg|GIF Files|*.gif|PNG Files|*.png'.openFileDialog1.Title = 'Insert Image'.private void imageToolStripMenuItem_Click( object sender, EventArgs e).Now, let’s examine the “OpenFile” method we have added in “MyForm”. In the catch block, we have added a message box to show the error encountered.Here, we have called its “OpenFile” method and passed the file name with full path, which we will select in the openFile dialog.I have added a new method “OpenFile(stringfileName)” in the code behind in “MyForm” which is to read the file provided by “MDIContainer” Form into its richtext box. In the try catch block, let’s add code to open a new instance of “MyForm”.The fourth line tries to open the openFile dialog and if the result is “OK”, the code in the following section will be executed.These three types of files will be shown in the openFile dialog when you try to open any file. We have set three types *.txt, *.rtf, and *.*. The third line sets the filter property of the 'Open File' dialog.The second line sets the default directory when closing File dialogue, i.e., it will be set to the current directory you have used while opening the file.The first line sets the directory to open by default when the openFile dialog opens.MessageBox.Show(String.Format( ' is not ' + 'a valid file' , fileName), 'Error' , MessageBoxButtons.OK, MessageBoxIcon.Error).childform.OpenFile(openFileDialog1.FileName).String fileName = openFileDialog1.FileName.if (openFileDialog1.ShowDialog() = DialogResult.OK).openFileDialog1.RestoreDirectory = true.openFileDialog1.InitialDirectory = Environment.GetFolderPath().private void openToolStripMenuItem_Click( object sender, EventArgs e).Rtb.SelectionFont = New Font('Times New Roman', 8, FontStyle.Bold) Rtb.SelectionLength = 9 'matches length of sTextToFind, would need modifications to improve for any desired text Public Sub SetRichTextProperties(ByVal rtb As, Optional ByVal sContents As String = '')ĭim lastIndex As Integer = (sTextToFind) The sContents variable contains the text in the richtextbox control. I call this function from the details section format event on the report. I was able to use it with the slight modifications below in an ActiveReports 7.0 report I am developing.

Vb.net richtextbox selected text color