Hei
helppiä kolunneena huomaan kirjoittavani taas tänne :D
Miten jaan tekstiä Inputboxissa boxihan jakaa tekstiä kyllä muttei niin kuin haluaisin, myös rivinvaihtoja voisi lisätä
Dim Kysymys, otsikko, luku As String Dim arvo As Short Kysymys = ("Anna lavan paksuus. tämän jälkeen ohjelma mitoittaa kiskot kummallekkin puolelle lapaa, luku voi osoittaa myös lapojen välisen etäisyyden. ") otsikko = "Mittaluvun syöttö" Do luku = InputBox(Kysymys, otsikko) If IsNumeric(luku) Then
Hei! Näin saat rivinvaihdot:
Kysymys = "Anna lavan paksuus. " _ & vbCrLf & "tämän jälkeen ohjelma mitoittaa " _ & vbCrLf & "kiskot kummallekkin puolelle lapaa, " _ & vbCrLf & "luku voi osoittaa myös " _ & vbCrLf & "lapojen välisen etäisyyden. "
Edit: Harkitse myös oman kyselylomakkeen luomista. Voit laittaa sinne Labelin ja TextBoxin vähän niinkuin InputBoxissakin on, ja lisäksi voit laittaa ruksin (CheckBox) tai RadioButtonin lisävalintoja varten. Mahdollisesti muita asiaan liittyviä tietojen kyselyitä samalle lomakkeelle. Ja OK- ja Cancel-nappi. Tässä on tietysti enemmän hommaa. Oikeestaan tähän kannattaa alkaa vasta kun keksii tarpeeksi paljon kyseltävää samalle lomakkeelle.
Kiitokset vinkistä
Aihe on jo aika vanha, joten et voi enää vastata siihen.