ik wil de text uit een rtb in form1 aanpassen via form2, ik dacht ik doe het volgende:
Form1 = hoofdformulier
RichTextBoxPrintCtrl1 = RichTextBox
txtSearch = textbox
De volgende code staat in een btn click event
maar hij pas RichTextBoxPrintCtrl1.Text niet aan wanneer ik op de knop druk. Wat doe ik verkeerd?
Form1 = hoofdformulier
RichTextBoxPrintCtrl1 = RichTextBox
txtSearch = textbox
De volgende code staat in een btn click event
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| Dim mainScreen As Form1 = New Form1
Try
Dim i As Integer
Dim SearchString = UCase(Trim(txtSearch.Text))
i = InStr(1, UCase(mainScreen.RichTextBoxPrintCtrl1.Text), SearchString) - 1
If i = -1 Then
mainScreen.RichTextBoxPrintCtrl1.Text = UCase(Trim(txtSearch.Text))
Else
mainScreen.RichTextBoxPrintCtrl1.SelectionStart = i
mainScreen.RichTextBoxPrintCtrl1.SelectionLength = SearchString.Length
End If
Catch ex As Exception
End Try |
maar hij pas RichTextBoxPrintCtrl1.Text niet aan wanneer ik op de knop druk. Wat doe ik verkeerd?
[ Voor 3% gewijzigd door toost op 01-05-2006 17:01 ]
This space for rent. Serious inquiries only please.