Aracılığıyla paylaş

Pano'ya veri depolama ve Pano'dan okuma (Visual Basic)

  • Makale

Pano, metin ve resim gibi verileri depolamak için kullanılabilir. Pano tüm etkin işlemler tarafından paylaşıldığından, bunlar arasında veri aktarmak için kullanılabilir. nesnesi Pano'ya My.Computer.Clipboard kolayca erişmenizi ve bu nesneden okumanızı ve bu nesneye yazmanızı sağlar.

Pano'dan okuma

Pano'daki GetText metni okumak için yöntemini kullanın. Aşağıdaki kod metni okur ve bir ileti kutusunda görüntüler. Örneğin doğru çalışması için Pano'da depolanan metinler olmalıdır.

MsgBox(My.Computer.Clipboard.GetText())

Bu kod örneği, IntelliSense kod parçacığı olarak da kullanılabilir. Kod parçacığı seçicisinde, Windows Forms Uygulamaları > Panosu'nda bulunur. Daha fazla bilgi için bkz . Kod Parçacıkları.

Pano'dan GetImage görüntü almak için yöntemini kullanın. Bu örnek, panoyu alıp öğesine atamadan PictureBox1önce Pano'da bir görüntü olup olmadığını denetler.

If My.Computer.Clipboard.ContainsImage() Then
    Dim grabpicture As System.Drawing.Image
    grabpicture = My.Computer.Clipboard.GetImage()
    picturebox1.Image = grabpicture
End If

Bu kod örneği, IntelliSense kod parçacığı olarak da kullanılabilir. Kod parçacığı seçicisinde, Windows Forms Uygulamaları > Panosu'nda bulunur. Daha fazla bilgi için bkz. Kod Parçacıkları.

Pano'ya yerleştirilen öğeler, uygulama kapatıldıktan sonra bile kalıcı olur.

Pano'da depolanan dosyanın türünü belirleme

Panodaki veriler metin, ses dosyası veya görüntü gibi çeşitli biçimler alabilir. Pano'da ne tür bir dosya olduğunu belirlemek için , , ContainsFileDropListContainsImageve ContainsTextgibi ContainsAudioyöntemleri kullanabilirsiniz. Denetlemek ContainsData istediğiniz özel bir biçiminiz varsa yöntemi kullanılabilir.

Pano'da ContainsImage yer alan verilerin bir görüntü olup olmadığını belirlemek için işlevini kullanın. Aşağıdaki kod, verilerin bir görüntü olup olmadığını denetler ve buna göre raporlar.

If My.Computer.Clipboard.ContainsImage() Then
    MsgBox("Clipboard contains an image.")
Else
    MsgBox("Clipboard does not contain an image.")
End If

Panoyu Temizleme

yöntemi Panoyu Clear temizler. Pano diğer işlemler tarafından paylaşıldığından, temizlemenin bu işlemler üzerinde bir etkisi olabilir.

Aşağıdaki kodda yönteminin nasıl kullanılacağı gösterilmektedir Clear .

My.Computer.Clipboard.Clear()

Panoya Yazma

Panoya SetText metin yazmak için yöntemini kullanın. Aşağıdaki kod Pano'ya "Bu bir test dizesidir" dizesini yazar.

My.Computer.Clipboard.SetText("This is a test string.")

yöntemi, SetText türü TextDataFormatiçeren bir biçim parametresini kabul edebilir. Aşağıdaki kod, Pano'ya RTF metni olarak "Bu bir test dizesidir" dizesini yazar.

My.Computer.Clipboard.SetText("This is a test string.", 
System.Windows.Forms.TextDataFormat.Rtf)

Panoya SetData veri yazmak için yöntemini kullanın. Bu örnek, DataObject dataChunk panoya özel biçiminde specialFormatyazar.

My.Computer.Clipboard.SetData("specialFormat", dataChunk)

Panoya SetAudio ses verileri yazmak için yöntemini kullanın. Bu örnek bayt dizisini musicReaderoluşturur, dosyayı cool.wav içine okur ve panoya yazar.

Dim musicReader = My.Computer.FileSystem.ReadAllBytes("cool.wav")
My.Computer.Clipboard.SetAudio(musicReader)

Önemli

Pano'ya diğer kullanıcılar tarafından erişilebildiği için parolalar veya gizli veriler gibi hassas bilgileri depolamak için bu panoyu kullanmayın.

Ayrıca bkz.