Ongelma: Minulla on formilla picture1 kuvineen ja sen päällä kelluva tekstilaatikko (text1). Voin liikuttaa tekstilaatikkoa picturen päällä nuolinäppäimillä x:n ja y:n suhteen Private Sub Text3_KeyDown -tapahtumassa.
Nyt haluaisin sijoittaa tekstilootaan kirjoittamani tekstin pictureen juuri samaan kohtaan, jossa tekstilaatikko on, eli sen "alle". Käsky käynee "Picture1.Print (teksti)" ja jotain. Miten annan tarvittavat x ja y-koordinaatit?
Lie helpompiakin tapoja kirjoittaa tekstiä pictureen juuri haluamaansa kohtaan?
(Ellette nyt ihan kauheasti naura tekeleelleni, ongelmani liittyy seuraavaan: http://kotisivu.mtv3.fi/laskieemeli/gst.html).
Picture1.ScaleMode = 4 'ei mitään Twippejä vaan Characterit Picture1.CurrentX = 10 'x Picture1.CurrentY = 5 'y Picture1.Print "Ja toimii"
Private Sub Form_Load() Picture1.AutoRedraw = True Picture1.ScaleMode = 3 'Tällä ei merkitystä muuten kuin nuolinäppäinten toiminnan kannalta, ne ovat nyt mitoitettu pixeleihin End Sub Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer) Form1.Caption = KeyCode If KeyCode = 38 Then Text1.Top = Text1.Top - 10 If KeyCode = 40 Then Text1.Top = Text1.Top + 10 If KeyCode = 37 Then Text1.Left = Text1.Left - 10 If KeyCode = 39 Then Text1.Left = Text1.Left + 10 If KeyCode = 13 Then Picture1.CurrentX = Text1.Left Picture1.CurrentY = Text1.Top 'Teksti ei tulee juuri samaan kohtaan johtuen siitä että textboxissa on reunat Picture1.Print Text1.Text End If End Sub
(Offtopic)
pale kirjoitti:
Onpas kiva sivu. Valkosta tekstiä valkosella pohjalla >_<
Edit2: Eikä tuo latauslinkki toimi, ennen kuin väännän JavaScriptin päälle.
Versio, joka toimii myös minulla:
<form action="http://kotisivu.mtv3.fi/laskieemeli/gst.zip" method="get"> <input type="submit" value="Lataa gst.zip (n. 20 kt)"> </form>
(Toivottavasti en unohtanu mitään pakollisia attribuutteja...)
Edit: bah. lainaus bugittaa, jos lopputagi on suoraan kiinni linkissä.
Tekstiruudun tulee olla pictureboxissa (ehkä onkin), tekstiruudun ja pictureboxin fonttimääritykset tulee olla samat. Tekstin alkukohta saadaan tosiaan asettamalla pictureboxin CurrentX = Text1.Left ja CurrentY = Text1.Top (tekstiruutu reunattomaksi), mutta rivien vaihto on ongelmallinen. Jos tekstiruudussa on rivinvaihtomerkit, niin silloin rivi vaihtuu myös pictureboxissa, ellei, teksti menee yhdelle riville ja loppuosa näkymättömiin. Joka rivin alkuun on asetettava CurrentX = Text1.Left. Ei taida ihan suoraan onnistua tolla Picture1.Print Text1.Text paitsi jos teksti on 1 rivinen.
Aluksi, kiitos avusta Hunajavohveli ja Meitzi, tuli muuten tarpeeseen. Joku neuvoi jo aiemmin tulostamisessa sekä tallentamisessa, toimii nyt.
Blaze sanoi, että teksti ei näy ja lainaus bugittaa. Yritin väsätä tuon sivun tyyleillä ja annoin mm.
BODY { background: #07188d }
Eli taustan piti olla tumman sininen ja onkin, mitä Mozillalla ja IE:n eri versioilla olen kokeillut. Joku kuitenkin siis mättää.
Korjaan tuon latauslinkin myös ehdottamaksesi. Ilmoitatko, Blaze, jos ei toimi sittenkään.
pale kirjoitti:
Ilmoitatko, Blaze, jos ei toimi sittenkään.
Will do.
Yksi rivi riittänee tekstille onneksi. Kiitos ja kuittaus neuvosta, setä.
Aihe on jo aika vanha, joten et voi enää vastata siihen.