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
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
