29-04-20, 01:47 PM
29-04-20, 08:24 PM
السلام عليكم ورحمة الله وبركاته
تفضل اخي الكريم مود للنسخ الى الذاكرة وكود أخر للصق من الذاكرة
تفضل اخي الكريم مود للنسخ الى الذاكرة وكود أخر للصق من الذاكرة
كود :
' copy
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
My.Computer.Clipboard.SetImage(PictureBox1.Image)
MsgBox("Copied!")
End Sub
' paste
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If My.Computer.Clipboard.ContainsImage Then
PictureBox2.Image = My.Computer.Clipboard.GetImage
End If
End Sub29-04-20, 10:43 PM
(29-04-20, 08:24 PM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاتهكل الشكر لك اخي
تفضل اخي الكريم مود للنسخ الى الذاكرة وكود أخر للصق من الذاكرة
كود :
' copy
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
My.Computer.Clipboard.SetImage(PictureBox1.Image)
MsgBox("Copied!")
End Sub
' paste
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If My.Computer.Clipboard.ContainsImage Then
PictureBox2.Image = My.Computer.Clipboard.GetImage
End If
End Sub