ahmadreza517
جمعه 16 دی 1390, 17:31 عصر
به نام تنها برنامه نویس هستی
سلام دوستان
می شه قطعه کد زیر توضیح بدید (AddHandler و AddressOf)
مدیران تالار بنا به تکراری بودن تاپیک لطف کنید این تاپیک حذف نکنید .
Public Sub New()
InitializeComponent()
Dim img As Image = Image.FromFile("C:\pics\1.jpg")
Me.btnImage.Image = img
Me.picBox.AllowDrop = True
AddHandler btnImage.MouseDown, AddressOf btnImage _MouseDown
AddHandler picBox.DragDrop, AddressOf pictureBox_DragDrop
AddHandler picBox.DragEnter, AddressOf pictureBox_DragEnter
End Sub
Private Sub btnImage_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
Dim btnPic As Button = CType(sender, Button)
btnPic.DoDragDrop(btnPic.Image, DragDropEffects.Copy)
End Sub
Private Sub pictureBox_DragEnter(ByVal sender As Object, ByVal e As DragEventArgs)
If e.Data.GetDataPresent(DataFormats.Bitmap) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
End Sub
Private Sub pictureBox_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs)
Dim picbox As PictureBox = CType(sender, PictureBox)
Dim g As Graphics = picbox.CreateGraphics()
g.DrawImage(CType(e.Data.GetData(DataFormats.Bitma p), Image), New Point(0, 0))
End Sub
سلام دوستان
می شه قطعه کد زیر توضیح بدید (AddHandler و AddressOf)
مدیران تالار بنا به تکراری بودن تاپیک لطف کنید این تاپیک حذف نکنید .
Public Sub New()
InitializeComponent()
Dim img As Image = Image.FromFile("C:\pics\1.jpg")
Me.btnImage.Image = img
Me.picBox.AllowDrop = True
AddHandler btnImage.MouseDown, AddressOf btnImage _MouseDown
AddHandler picBox.DragDrop, AddressOf pictureBox_DragDrop
AddHandler picBox.DragEnter, AddressOf pictureBox_DragEnter
End Sub
Private Sub btnImage_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
Dim btnPic As Button = CType(sender, Button)
btnPic.DoDragDrop(btnPic.Image, DragDropEffects.Copy)
End Sub
Private Sub pictureBox_DragEnter(ByVal sender As Object, ByVal e As DragEventArgs)
If e.Data.GetDataPresent(DataFormats.Bitmap) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
End Sub
Private Sub pictureBox_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs)
Dim picbox As PictureBox = CType(sender, PictureBox)
Dim g As Graphics = picbox.CreateGraphics()
g.DrawImage(CType(e.Data.GetData(DataFormats.Bitma p), Image), New Point(0, 0))
End Sub