Eli kuinka pystyy lukemaan textboxista (jossa multiline) tietyn rivin?
Lähes tästä on ollut juttua ennenkin mutta en muista missä. Jos haluat lukea N:n rivin, saat sen näin:
Text1.SetFocus
Text1.SelStart = 0
For I = 1 to N
SendKeys "{DOWN}"
Next
I = Text1.SelStart
Sendkeys "{END}"
Text1.SelLenght = SelStart - I
MsgBox Text1.SelTextMethod or data member not found.
Tulee tuosta:
Text1.SelLenght = SelStart - I
Joo, unohdin tuon SendKeys-metodin lopusta ohjaussanan True, jolloin systeemi vartoo merkin vaikutusta. Sendkeyssit pitää korjata muotoon:
Sendkeys "{DOWN}", True
ja
SndKeys "{END}", True
Vieläkin antaa samaa virhettä...
Ei se näköjään aina onnistu kokeilematta. Näin koodin pitäisi toimia oikein, ainakin toimi minulla:
Text1.SetFocus
Text1.SelStart = 0
For I = 1 to N-1
SendKeys "{DOWN}", True
Next
Sendkeys "{END}", True
I = Text1.SelStart
Sendkeys "{HOME}", True
Text1.SelLenght = I - Text1.SelStart
MsgBox Text1.SelTextTuossa edellisessä koodissa oli siis useita virheitä, Sorry
Nyt toimii, kiitos setä!
Aihe on jo aika vanha, joten et voi enää vastata siihen.