Tekstiseikkailupelissäni on nyt:
listTarina.items.Add("---") listTarina.Focus SendKeys.Send("{PGDN}") listTarina.items.Add(tarina)
Eli tarina-muuttujassa on aina tulostuva tekstin pätkä, joka tulostetaan listTarina listboxiin muodossa:
---
tekstiä
---
tekstiä
Entä miten saan tarina-muuttujan tekstin rivittymään mikäli se on niin pitkä ettei mahdu listboxiin samalle riville? Jos ensin katsoisi listboxin leveyden, sitten tekstistä katsotaan kohta tekstistä joka jää juuri alle maksimileveyden, sitten vaihdetaan riviä ja tulostetaan loput tekstit toiselle riville. Tämän katkoskohdan voisi katsoa viimeisestä yhdelle riville mahtuvasta välilyönnistä ja laittaa sen jälkeen alkava teksti toiselle riville. Näin ei yksi sana katkeaisi kahdelle riville.
Vai kannattaako tarina tulostaa mieluummin johonkin muualle? Mieluiten pitäisi löytyä scrollbar ainakin sitten.
Hassu idea tehdä vb:llä tekstiseikkailu. 0_o
Itse aiheeseen: Miksi et tekisi vaikkapa niin, että valinnat on listboxissa (oletan, että on valintoja, kun on kerta tekstiseikkailusta kyse) ja itse tarina vaikkapa textboksissa, jonka multiline-arvo on true?
Joo, pitääpä koittaa. Tohon multilineboxhärpäkkeeseen sai näköjään scrollbarinki
Lisäkysymys. Miten saan Sendkeyllä "---" merkkijonon jälkeen kursorin tuon taakse ja sinne enterin eli teksti tulisi näin?
---
tekstiä
---
tekstiä
Tämä ei toiminut
textTarina.text = "---"
textTarina.focus
Sendkeys.send("{PGDN}")
SendKeys.Send("{END}")
SendKeys.send("{ENTER}")
textTarina.text = textTarina.text & Tarina
eli ensin page downilla viimeiselle riville, endillä rivin loppuun ja enterillä uusi rivi. Ei näytä toimivan kunnolla
Harrastan yksinpuhelua, sain toimimaan. PGDN ei toimi silloin jos tekstiä ei ole niin paljon että scrollbar aktivoituisi..
Aihe on jo aika vanha, joten et voi enää vastata siihen.