Moi,
Minkälainen koodi tarvitaan lomakkeelle, että saadaan tektiruutua tupla-klikkaamalla kopioitua ruudun sisältö win7 leikepöydälle?
Private Sub KenttaX_DblClick(Cancel As Integer) Dim tieto As String tieto = Me.KenttaX ' ??? End Sub
Mod. lisäsi kooditagit.
Private Sub KenttaX_DblClick(Cancel As Integer) Clipboard.Clear 'En tiedä tarviiko tätä useinkaan Clipboard.SetText(KenttaX.Text) End Sub
Ei toimi niin, vaan herjaa seuraavasti:
Compile error: Variable not defined!
Moi haka_74!
this is the right way to do it...
Option Compare Database Private Clip As MSForms.DataObject 'referenssi: 'Microsoft Forms 2.0 Object Library '(C:\Windows\System32\FM20.dll) Private Sub KenttaX_DblClick(Cancel As Integer) Set Clip = New MSForms.DataObject Clip.SetText KenttaX.Text Clip.PutInClipboard 'Testi... 'Clip.Clear 'Clip.GetFromClipboard 'MsgBox Clip.GetText Set Clip = Nothing End Sub
Moi Nea,
Kiitos paljon! Nyt homma toimii..
Kiva kun asiantuntijoita löytyy, niin ei tarvitse itse kaikkea opiskella ;)
t.Harri
Tämän siitä saa kun vastaa kokeilematta. Anteeksi väärästä neuvosta (joka toimii esim. VB6:lla)
Aihe on jo aika vanha, joten et voi enää vastata siihen.