public Form1()
{
InitializeComponent();
pictureBox1.Image = new Bitmap(@"D:\Pictures\Cat.jpg");
}
private void pictureBox1_MouseDown(object sender, MouseEventArgs e)
{
string[] files = new string[] { @"D:\Pictures\Cat.jpg" };
DoDragDrop(new DataObject(DataFormats.FileDrop, files), DragDropEffects.Copy);
}
Вытащить из программы
Как используя Drag&Drop перетащить предположим картинку из PictureBox на рабочий стол?
Вы используете VB или VB.NET? Если последний, то лучше писать в разделе .NET Framework. И в любом случае указывайте язык.
Что значит "перетащить на рабочий стол"? Поместить туда сам файл с картинкой, или сделать его фоном рабочего стола?
Что значит "перетащить на рабочий стол"? Поместить туда сам файл с картинкой, или сделать его фоном рабочего стола?
Сохранить в виде файла. VB.NET 2010.
На VB не пишу. Если устроит, вот пример на C#:
Добавлено позже:
Решил набросать пример на VB.NET. Вот код:
Код:
Добавлено позже:
Решил набросать пример на VB.NET. Вот код:
Код:
Public Class Form1
Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
Dim files As String() = {"D:\Pictures\Cat.jpg"}
DoDragDrop(New DataObject(DataFormats.FileDrop, files), DragDropEffects.Copy)
End Sub
Public Sub New()
' This call is required by the Windows Form Designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
PictureBox1.Image = New Bitmap("D:\Pictures\Cat.jpg")
End Sub
End Class
Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
Dim files As String() = {"D:\Pictures\Cat.jpg"}
DoDragDrop(New DataObject(DataFormats.FileDrop, files), DragDropEffects.Copy)
End Sub
Public Sub New()
' This call is required by the Windows Form Designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
PictureBox1.Image = New Bitmap("D:\Pictures\Cat.jpg")
End Sub
End Class