ClipBoard – Pano(v.basic kaynak1)

Clipboard.Clear Clipboard temizlenir

Clipboard.SetText MetinKutu.SelText Seçili texti clipboarda kopyalar

Clipboard.SetData Picture1.Picture Resmi clipboarda kopyalar

TextBox1.SelText = Clipboard.GetText() Seçili alanı clipboardaki text ile değiştirir

TextBox1.Text = Clipboard.GetText() Tüm texti clipboardaki text ile değiştirir

Picture1.Picture = Clipboard.GetData() Clipboard içeriğini PictureBox’a yapıştırır



SelStart : Seçilen bölgenin başlangıcı

SelLenght : Seçilen bölgenin karakter sayısı olarak uzunluğu

SelText : Klavye ya da mouse yardımı ile seçilen metin içeriği



Kopyala ClipBoard.SetText Screen.ActiveControl.SelText



Kes ClipBoard.SetText Screen.ActiveControl.SelText

Screen.ActiveControl.SelText = ""



Yapıştır Screen.ActiveControl.SelText = ClipBoard.GetText()



Tüm metni seç text1.SelStart = 0

text1.SelLength = Len(text1.Text)



Bul Değiştir



Bul = InStr(text1.Text, aranantext)

If Bul Then

text1.SelStart = Bul – 1 ‘ Başlangıç ve bitiş aralığı

text1.SelLength = Len(aranantext)

Screen.ActiveControl.SelText = "" ‘ Sil

Screen.ActiveControl.SelText = ClipBoard.GetText() ‘ Yapıştır

End If




ClipBoard İçeriği





If Clipboard.GetFormat(vbCFText) Then

Text1.Text = Clipboard.GetText()

Else

MsgBox ("Clipboard metin içermemektedir.")

End If