منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم اخوتى

عاوز اعرف ازاى اخلى الاداة ProgressBar تبدأ حينما اضغط

على البوتون وتنتهى مع انتهاء عمل الامر الموجود فى البوتون

يعنى مثلا انا حطيت الكود ده (ProgressBar1.Increment(1

PHP كود :

Public Class Form1
    Dim ax As Integer
    Dim ay As Integer
    Dim dr As Boolean

    Private Sub Panel1_MouseDown(sender As Object, e As MouseEventArgs) Handles Panel1.MouseDown
        If e.Button = MouseButtons.Left Then
            dr = True
            ax = MousePosition.X - Me.Left
            ay = MousePosition.Y - Me.Top

        End If
    End Sub

    Private Sub Panel1_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel1.MouseMove
        If dr Then
            Me.Left = Windows.Forms.Cursor.Position.X - ax
            Me.Top = Windows.Forms.Cursor.Position.Y - ay

        End If
    End Sub

    Private Sub Panel1_MouseUp(sender As Object, e As MouseEventArgs) Handles Panel1.MouseUp
        dr = False
    End Sub



    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Hide()
        Me.Close()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ProgressBar1.Maximum = 100
        If b.IsBusy = False Then b.RunWorkerAsync()
    End Sub

    Private Sub b_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles b.DoWork
        Dim r As Integer
        For r = 0 To 100
            Me.BeginInvoke(New MethodInvoker(Sub()
                                                 ProgressBar1.Value = r
                                                 ListBox1.Items.Add("سبحان الله وبحمده سبحان الله العظيم " & "- " & r & " -")
                                             End Sub))
            Threading.Thread.Sleep(1500)
        Next
    End Sub
End Class 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ابو روضة

سعود