Visual basicia käsittelevässä oppikirjassa näin muutaman rivin mittaisen koodin- jonka tarkoitus oli "maalata" tekstikehyksessä oleva teksti kun kehystä klikataan. kirjoitin esimerkin mukaan mutten saanut sitä toimimaan Excelissä. En ihan tarkkaan muista miten koodi meni mutta pari riviä oli jotenkin näin:
Private Sub TextBox1_Click()
.
TextBox1.SelStart = 0
TextBox1.SelLength = len(TextBox1)
.
.
End Sub
Osaatteko täydentää kukaan?
Tekstin maalaus
Hellu
1
311
Vastaukset
- nappulan.painaja
Yksi tapa on käyttää MouseDown-eventtiä:
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kalajoen hukkuneet pojat olivat tummaihoisia
Jälleen kerran, hukkuneet tai heikon uimataidon vuoksi vaaraan joutuneet olivat muita kuin suomalaisia. Turha viisastell3237075Kysymys muille miehille
Onko teille varattu nainen ongelma? Mikään muu naisessa ei töki kun se että hän on varattu. Kamppailen houkutuksen kanss714258- 2083155
Kohta katson sun kuvaasi
ja päästän ajatukseni liitämään. Jo kuvasi näkeminen rauhoittaa, ja pistää hyrräämään vähän muutakin. Ihanan kaunista sa242937- 741952
- 1491781
Ahneus iski Fazeriin, suklaalevy kutistuu 180 grammaan
Kun mikään ei riitä. Shrinkflaatio. Mitä isot (Marabou) edellä, sitä pienet (Fazer) perässä. Pienikin voi siis olla a2121746Jos kaivattusi on perääntynyt lähestyessäsi
jossain tilanteessa, ymmärrätkö miksi hän saattoi tehdä sen?1651560Minkä asian haluaisit muuttaa kaivatussasi?
Mikä kaivattusi luonteessa tai ulkonäössä ärsyttää sua?1201548- 891438