Hejsan! Första delen av din fråga (Du matar in från tangentbord)Tvingad radbrytning i textbox
Hur skulle en kodsnutt se ut där man vill ha radbrytning efter 50 tecken i en textbox?
Som jag har det nu så får man ta godtyckligt och trycka enter för att få radbrytning.
Klistrar man in en text så får man gå igenom den så den inte blir för lång.
Radbrytningen skall bryta efter ett ord och inte mitt i ett ord.
Tack på förhand
//JockeSv: Tvingad radbrytning i textbox
Kan du göra enl denna princip.
Obs TextBoxens MultiLine skall vara satt till True
<code>
Option Explicit
Dim tCount As Long
Private Sub Text1_KeyPress(KeyAscii As Integer)
tCount = tCount + 1
If KeyAscii = 13 Then tCount = 0 ' tryckte Enter
If KeyAscii = 8 Then tCount = tCount - 1 ' tryckte BackSpace
If tCount >= 50 And KeyAscii = 32 Then
SendKeys "{ENTER}", True
SendKeys "{BACKSPACE}" ' tar bort första space på ny rad.
tCount = 0
End If
End Sub
</code>