(13-06-16, 03:20 PM)الوادي كتب : يا محمد،

جرب هذه الطريقة يمكن تناسبك، بسبب عدم امكانية معرفة النسبة المنجزة للعملية استخدمت النمط ProgressBarStyle.Marquee

PHP كود :

Public Class Form1

    Dim thr As Threading.Thread

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        CheckForIllegalCrossThreadCalls = False

    End Sub


    ' إبدأ الارسال '
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        thr = New Threading.Thread(AddressOf task)
        thr.IsBackground = True
        thr.Start()
        ProgressBar1.Style = ProgressBarStyle.Marquee
    End Sub

    ' إلغاء الارسال '
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        If Not IsNothing(thr) Then
            thr.Abort()
            ProgressBar1.Style = ProgressBarStyle.Blocks
        End If
    End Sub


    Sub task()

        Try
            Dim mail As New MailMessage
            mail.Subject = "email"
            mail.To.Add(TextBox2.Text)
            mail.From = New MailAddress(TextBox2.Text)
            mail.Body = "good"
            Dim smtp As New SmtpClient("smtp.mail.yahoo.com")
            smtp.EnableSsl = True
            smtp.Credentials = New System.Net.NetworkCredential(TextBox2.Text, TextBox3.Text)
            smtp.Port = "587"
            smtp.Send(mail)
            MsgBox("mail sent")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

        

    End Sub

End Class 


(13-06-16, 03:08 PM)hitman48 كتب : ان كنت تريد ارسال من ايميل يجب تعمل دخول اولا login ثم تبعث الايميل

---

عملتلك مثال شوف الي يناسبك

كود :

Imports System.Net.Mail

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Timer1.Start()
   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       ProgressBar1.Increment(2)
       Label1.Text = ProgressBar1.Value & "%"
       If ProgressBar1.Value = 200 Then
           Try
           Dim SmtpServer As New SmtpClient()
           Dim mail As New MailMessage()
           SmtpServer.Credentials = New  _
 Net.NetworkCredential("amineip0123@gmail.com", "kl01234560")
           SmtpServer.Port = 587
           SmtpServer.EnableSsl = True
           SmtpServer.Host = "smtp.gmail.com"
           mail = New MailMessage()
           mail.From = New MailAddress("amineip0123@gmail.com")
           mail.To.Add("nevergiveupno20015@gmail.com")
           mail.Subject = "Test Mail"
           mail.Body = "This is for testing SMTP mail from GMAIL"

           SmtpServer.Send(mail)
           MsgBox("mail send")
       Catch ex As Exception
           MsgBox(ex.ToString)
       End Try

           Timer1.Stop()
           ProgressBar1.Value = 1
       End If
   End Sub

End Class

(13-06-16, 05:56 PM)الوادي كتب : يا محمد،

يللي فهمته انك تريد Form2 تكون شاشة شريط الانظار، على هذا يكون الكود

Form1

PHP كود :

Public Class Form1

    Dim thr As Threading.Thread

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        CheckForIllegalCrossThreadCalls = False

    End Sub


    ' إبدأ الارسال '
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        thr = New Threading.Thread(AddressOf task)
        thr.IsBackground = True
        thr.Start()

        Form2.ShowDialog()
        If Not IsNothing(thr) Then thr.Abort()

    End Sub


    Sub task()

        Try
            Dim mail As New MailMessage
            mail.Subject = "email"
            mail.To.Add(TextBox2.Text)
            mail.From = New MailAddress(TextBox2.Text)
            mail.Body = "good"
            Dim smtp As New SmtpClient("smtp.mail.yahoo.com")
            smtp.EnableSsl = True
            smtp.Credentials = New System.Net.NetworkCredential(TextBox2.Text, TextBox3.Text)
            smtp.Port = "587"
            smtp.Send(mail)
            MsgBox("mail sent")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

        Me.Invoke(New FormCloseDelegate(AddressOf Form2Close))

    End Sub


    Delegate Sub FormCloseDelegate()
    Sub Form2Close()
        Form2.Close()
    End Sub


End Class 


Form2 وفيه زر لإلغاء العملية

PHP كود :

Public Class Form2

    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ProgressBar1.Style = ProgressBarStyle.Marquee
    End Sub

    ' إلغاء الارسال '
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

End Class 


أما الشق الثاني بخصوص استخدام الثريد،
هو أساساً مهمة مستقلة (أكيد سمعت عن تعدد المهام)
ويستخدم ليقوم بعملية معينة (في الخلفية) بينما يستمر العمل بالبرنامج (بدون تجميد)،
لكن لازم تعرف طريقة عمله بشكل صحيح.