Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: Mene riville

Sivun loppuun

Cc [12.06.2005 01:52:19]

#

Miten saisin omaan visual basic projektiini sellaisen ominaisuuden mitä on yleisimmissä teksti editoreissa eli kirjotetaan rivi numero ja painetaan ok niin sarkain on sillä rivillä?

nomic [12.06.2005 05:07:11]

#

Olisi ehkä maailman siistein juttu, jos kertoisit käytätkö esim. Textboxia, Rtboxia vai mitä?

Ihan koodivinkeistä löytyi seuraava:
https://www.ohjelmointiputka.net/koodivinkit/24093-vb6-richtextbox-rivinumero

Cc [12.06.2005 19:50:11]

#

kiitos etenin jonkin verran jo mutta miten saisin vielä siirretty sarkaimen sille tietylle riville? käytän textboxia mutta jos sitä ei saa siinä mitenkään siirrettyä niin voin käyttää myös rtboxia...

hunajavohveli [12.06.2005 19:57:11]

#

Valmista toimintoa ei taida olla, mutta voit kokeilla niin, että etsit silmukalla rivivaihtomerkkejä ja kasvatat muuttujaa aina kun sellainen löytyy. Kun löytyy oikea rivivaihto (esim. kolmas rivivaihto, jos haluat siirtää sarkaimen kolmannelle riville), niin vaihdat SelStart-ominaisuuden osoittamaan siihen kohtaan tekstiä, josta rivivaihto löytyi.

Esim.

For i = 1 To Len(Text1.Text)              'Käydään merkit läpi
If Mid$(Text1.Text, i, 2) = vbCrLf Then   'Jos löytyy rivivaihto
  am = am + 1                             'Kasvatetaan muuttujaa
  If am = 3 Then Text1.SelStart = i + 1   'Jos kolmas rivi niin siirretään tekstiosoitinta
End If
Next i

Cc [12.06.2005 20:04:19]

#

kiitos hunajavohveli tuo toimii täydellisesti kun ottaa tuolta text1.selstart = i + 1 kohdasta tuon + 1:sen pois... vähän offtopic: miten saisin vielä omaan editoriini sellaisen "Etsi / korvaa sana" toiminnon?

Blaze [12.06.2005 20:40:12]

#

No vaikka Replace-funktiolla.

Gwaur [12.06.2005 21:25:32]

#

Replace-funktio ei taida varmistaa korvausta vaan käy heti kaikki läpi. Luulisin näin.

Tavalliseen etsimiseen voit soveltaa tuota hunajavohvelin antamaa pätkää. kun käydään kaikki merkit läpi, katsotaan i:nnestä merkistä Mid-funktiolla etsittävän sanan pituuden verran eteenpäin. Mikäli ne täsmää, on etsittävä löytynyt. Jos haluat,, ettei kirjainkoolla ole väliä, niin vertaile molempia vaikka Lcase-funktiolla käsiteltynä.

tesmu [12.06.2005 21:54:59]

#

Tai Ucase functiolla

Cc [12.06.2005 22:30:43]

#

Sain toimimaan kiitoksia avusta...


Sivun alkuun

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta