hallo liebe community,
ich habe ein Problem mit meiner intelisense.
ich habe die inelisense mit einer Listbox gemacht, und wenn man Enter drückt soll an der stelle wo der Cursor ist der Text eingefügt werden.
wie mache ich das? mein code:
ich weiß das man bei: .SelectionStart was anderes einsetzten muss nur was weiß ich nicht?
könntet ihr mir dahelfen?
vielen Dank
filmee24
ich habe ein Problem mit meiner intelisense.
ich habe die inelisense mit einer Listbox gemacht, und wenn man Enter drückt soll an der stelle wo der Cursor ist der Text eingefügt werden.
wie mache ich das? mein code:
VB.NET-Quellcode
- Private Sub ListBox1_KeyPress(ByVal sender As Object, _
- ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ListBox1.KeyPress
- ' Wurde die Entertaste in der ListBox gedrückt?
- If Asc(e.KeyChar) = Keys.Enter Then
- With SyntaxRtb1
- Dim strTag As String = ListBox1.SelectedItem
- ' Auswerten des Eintrages der ListBox und
- ' Umwandlung in den entsprechenden Wert der
- ' in die RTB eingefügt werden soll
- Select Case strTag
- Case strTag
- strTag = ListBox1.SelectedItem.ToString
- Case "br"
- strTag = "Br />"
- Case Else
- strTag = ""
- End Select
- ' Das "Steuerzeichen" # ersetzen durch einen NullString
- .Text = Replace(.Text, "#", vbNullString) & strTag
- ' wo soll der Cursor nach dem Einfügen in der RTB stehen?
- .SelectionStart = .TextLength
- ' Listbox wieder auf den ersten Eintrag setzen
- ' und ausblenden
- ListBox1.SelectedItem = 0
- ListBox1.Visible = False
- ' Focus wieder auf RTB setzen
- .Focus()
- End With
- End If
- End Sub
ich weiß das man bei: .SelectionStart was anderes einsetzten muss nur was weiß ich nicht?
könntet ihr mir dahelfen?
vielen Dank
filmee24