|
▼IROC さん:
>私が勘違いしているのか、相手にされていないようですが・・・
>
>
>Dim MyData As DataObject
>
>Private Sub CommandButton1_Click()
>Set MyData = New DataObject
>
> TextBox1.SelStart = 0
> TextBox1.SelLength = TextBox1.TextLength
> TextBox1.Copy
>
>End Sub
>
>Private Sub TextBox2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
>
> If Button = 2 Then
> MyData.GetFromClipboard
> TextBox2.Text = MyData.GetText(1)
> End If
>
>End Sub
え〜と、気分を害された事、最初に謝っておきます。相手にしていないなんて
とんでもなく、皆さんに提示していただいたものを扱いかねているのが現状で
す。現状では今しばらく時間がかかりそうなんで、これはこれでおいておきた
いのですが。
せっかく教えていただきながら、それを活かしきれないこと、
ichinoseさん、IROCさん、クウガさん、Jカーターさんに申し訳ないです。
|
|