Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: Leikepöydän käyttäminen *VB*

The Ohjelmoija [02.01.2004 22:40:29]

#

Voisiko joku muuttaa tämän koodin toimimaan RichTextBox:lle?
(Kirjoitettiinkohan se noin :D)
Ihan sama. Tässä koodi:

Private Sub Command1_Click()
   If Text1.SelText = "" Then
       MsgBox "Valitse kopioitava kohta!"
   Else
       Clipboard.SetText Text1
   End If
End Sub

Private Sub Command2_Click()
   Text1.Text = Left$(Text1.Text, Text1.SelStart) & _
   Clipboard.GetText & Mid$(Text1.Text, Text1.SelStart + _
   Text1.SelLength + 1)
End Sub

Private Sub Form_Load()
   Command1.Caption = "Kopioi teksti"
   Command2.Caption = "Liitä teksti"
   Text1.Text = "Kirjoita jotain"
End Sub

Yritin itse... Sain kopioinnin toimimaan, mutta liittäminen bugitti pahasti.

tnb [03.01.2004 00:48:23]

#

Liittäminen:

RichTextBox1.SelRTF = Clipboard.GetText

*** eikä sitten muuta tarvitakkaan ***

Vastaus

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

Tietoa sivustosta