نکات، ایده ها و ترفندهای کوچک برنامه نویسی در vb.net

[ghafoori]

https://barnamenevis.org/showpo...1&postcount=78

Imports System.Net.Mail



Class SendEmail



    Public Shared Sub SendMessage(ByVal subject As String, ByVal messageBody As String, ByVal fromAddress As String, ByVal toAddress As String, ByVal ccAddress As String)



        Dim message As MailMessage = New MailMessage()

        Dim client As SmtpClient = New SmtpClient()

        message.From = New MailAddress(fromAddress)



        '// Allow multiple "To" addresses to be separated by a semi-colon

        If toAddress.Trim().Length > 0 Then

            For Each addr As String In toAddress.Split(";")

                message.To.Add(New MailAddress(addr))

            Next

        End If



        '// Allow multiple "Cc" addresses to be separated by a semi-colon

        If ccAddress.Trim().Length > 0 Then

            For Each addr As String In ccAddress.Split(";")

                message.CC.Add(New MailAddress(addr))

            Next

        End If



        message.Subject = subject

        message.Body = messageBody

        client.Host = "YourMailServer"

        client.Send(message)

    End Sub

End Class

[ghafoori]

https://barnamenevis.org/showpo...5&postcount=79

برای این عمل به یک رویداد (MouseMove) برای pictureBox منبع نیاز دارید و دو رویداد (DragDrop) و ( DragEnter) از pictureBox مقصد. که نحوه کد کردن آن ها به شکل زیر است

Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove

        If e.Button = MouseButtons.Left And Not PictureBox1.Image Is Nothing Then

            PictureBox1.DoDragDrop(PictureBox1.Image, DragDropEffects.All)

        End If

    End Sub



    Private Sub PictureBox2_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox2.DragEnter

        If e.Data.GetDataPresent(DataFormats.Bitmap) Then

            e.Effect = DragDropEffects.Copy

        Else

            e.Effect = DragDropEffects.None

        End If

    End Sub



    Private Sub PictureBox2_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox2.DragDrop

        If e.Data.GetDataPresent(DataFormats.Bitmap) Then



            PictureBox1.Image = CType(e.Data.GetData(DataFormats.Bitmap), Image)

        End If



    End Sub

نکته : خاصیت AllowDrop مربوط به pictureBox مقصد را بایستی true کنید. دقت داشته باشید که این خاصیت، در پنجره خواص مربوط به pictureBox وجود نداره و باید اونو از طریق کد نویسی اعمال کنید.