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.SelText
Method 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.SelText
Tuossa edellisessä koodissa oli siis useita virheitä, Sorry
Nyt toimii, kiitos setä!
Aihe on jo aika vanha, joten et voi enää vastata siihen.