جایگزین کردن متن کپی شده در حافظه

[isaac23]

نمی دونم چی نیاز داری اما با توجه به چیزی که نوشتی این جوابش هست.

در صورتی که متن کپی شده رد کلیت بورد تعداد کارکتراش به 4 رسید در عبارت Text رو در کلیپ بورد کپی و سپس در Textbox جایچزین میشه

Private Sub Command1_Click()

Dim gettxt As String



If Clipboard.GetText <> "" Then

gettxt = Clipboard.GetText

If Len(gettxt) = 4 Then

Clipboard.Clear

Clipboard.SetText ("test")

Text1.Text = Clipboard.GetText

End If

End If



End Sub