03. januar 2009 - 12:40Der er
4 kommentarer og 1 løsning
Placere cursor i enden af en tekst
Hej Følgende kode er placeret i en toolstripmenu og indsætter tekst i en forms textbox. Jeg ville gerne placere cursoren ved enden af den indsatte tekst således at brugeren bare kan starte med at skrive uden først at skulle flytte cursoren.
vh Steen
If Button2.BackColor <> Color.Red Then Dim Ctl As Control Ctl = Me.ActiveControl Dim Tekst As String If TypeOf Ctl Is TextBox Then Tekst = Ctl.Text Ctl.Text = Tekst & vbCrLf & TextBox3884.Text & ": " Else MessageBox.Show("Der er ingen aktive textboxe") End If Else MessageBox.Show("Textboxen er skrivebeskyttet") End If
OK, -SelectionStart er en property på textbox, men åbenbart ikke i den generiske klasse control.
En workaround kunne være at sætte den til en textbox, som f.eks.: If TypeOf Ctl Is TextBox Then Dim tBox As Textbox tBox=Ctl Tekst = tBox.Text tBox.Text = Tekst & vbCrLf & TextBox3884.Text & ": " tBox.Focus() tBox.SelectionStart = Ctl.Text.Length osv.
Det virker dog noget omstændeligt, og må kunne gøres simplere??
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.