1 svar · 172 visningar · startad av saw
Hur skall jag kunna markera en vis text i en textruta?
Så här är det:
Jag replaca en viss text i text1.
Text2 kommer då att se ut så här efter ett antal operationer:
MultiLang_TEXT1 "En Bra TestSida"
MultiLang_TEXT2 "Känn Dig välkommen till Användarföreningens hemsida."
För varje replace, så lägger jag in en siffra i list1, i detta fallet ser list ut:
1
2
Genom en split så kan jag få tag på den texten som jag vill ha:
Dim texten() As String, j As Integer
j = List1.ListIndex ' + 1
texten = Split(Text2.text, " ")
Label1.Caption = Replace("Visa inlaggd multilang nr: ", vbTab, "") & j + 1
Info.Caption = Replace(texten(j), vbTab, "")
Jag behöver alltså bara klicka i list1 så har jag den texten jag vil ha.
Nu skulle jag vilja att just den texten också var markerad i text2.
Är detta möjligt?
Jag hittade en kodsnutt som gör som jag ville:
Dim s as string,l as long
s = "MultiLang_TEXT" & j + 1
l = InStr(Text2.text, s)
If l = 0 Then ' 1st spot is string is 1. 0 means "not found"
MsgBox "The text was not found."
Else
Text2.SetFocus
Text2.SelStart = l - 1 ' 1st spot for selected text is numbered 0
Text2.SelLength = Len(Info.Caption)-1
End If
Nu tror jag inte att det kan bli bättre