Clipboard Function

[irresistible007]

Is there is anyway (i m sure, there is) to copy the text of Textbox to Clipboard.. ? please let me know

 

[Legacy 98055]

A bug? Don't know. Use Jaafar's idea or use this:

<table width="100%" border="1" bgcolor="White" style="filterrogid:DXImageTransform.Microsoft.Gradient(endColorstr='#C0CFE2', startColorstr='#FFFFFF', gradientType='0');"><tr><TD><font size="2" face=Courier New>  <font color="#0000A0">Private</font> <font color="#0000A0">Sub</font> CommandButton1_Click()
       <font color="#0000A0">With</font> Me.OLEObjects("TextBox1").Object
           .SelStart = 0
           .SelLength = Len(TextBox1.Text)
           .Copy
       <font color="#0000A0">End</font> <font color="#0000A0">With</font>
  <font color="#0000A0">End</font> <font color="#0000A0">Sub</font>
</FONT></td></tr></table><button onclick='document.all("103200616238359").value=document.all("103200616238359").value.replace(/<br \/>\s\s/g,"");document.all("103200616238359").value=document.all("103200616238359").value.replace(/<br \/>/g,"");window.clipboardData.setData("Text",document.all("103200616238359").value);'>Copy to Clipboard</BUTTON><textarea style="position:absolute;visibility:hidden" name="103200616238359" wrap="virtual">
Private Sub CommandButton1_Click()
With Me.OLEObjects("TextBox1").Object
.SelStart = 0
.SelLength = Len(TextBox1.Text)
.Copy
End With
End Sub</textarea>

 

[irresistible007]

Hmmmmmmm...................
this one worked absolutely fine !!!!!!!

Thanks Buddy