Clipboard.SetText Text1.SelText
Text1.SelText="" 'Copia' il testo selezionato Clipboard.SetText Text1.SelText 'Incolla' il testo dagli Appunti Public Sub Incolla() Dim Dummy1 As String Dim Dummy2 As String If Clipboard.GetFormat(vbCFText) Then Dummy1 = Left(Text1.Text, Text1.SelStart) Dummy2 = Right(Text1.Text, Len(Text1.Text) - Text1.SelStart) Text1.Text = Dummy1 & Clipboard.GetText & Dummy2 Else MsgBox "Il contenuto degli appunti non puo' essere incollato!" End If End Sub 'Seleziona tutto' il testo della TextBox Text1.SelStart=0 Text1.SelLenght = Len(Text1.Text) 'Trova' il testo indicato Public Sub TrovaTesto(TestodaCercare As String) Dim i as Integer i = InStr(Text1.SelStart, Text1.Text, TestodaCercare) If i = 0 then MsgBox "Elemento non trovato!" : Exit Sub Text1.SelStart = i Text1.SelLenght = Len(TestodaCercare) End Sub 'Sostituisci' il testo indicato con altro testo Public Sub Sostituisci(TestodaCercare As String, TestoSostituto As String) Dim i as Integer i = InStr(Text1.SelStart, Text1.Text, TestodaCercare) If i = 0 then MsgBox "Elemento non trovato!" : Exit Sub Text1.SelStart = i Text1.SelLenght = Len(TestodaCercare) Text1.SelText = TestoSostituto End Sub |