تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] استفسار بخصوص اداة ProgressBar
#1
السلام عليكم اخوتى
عاوز اعرف ازاى اخلى الاداة ProgressBar تبدأ حينما اضغط

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

يعنى مثلا انا حطيت الكود ده (ProgressBar1.Increment(1
الرد }}}
تم الشكر بواسطة: سعود
#2
PHP كود :
Public Class Form1
    Dim ax 
As Integer
    Dim ay 
As Integer
    Dim dr 
As Boolean

    Private Sub Panel1_MouseDown
(sender As ObjectAs MouseEventArgsHandles Panel1.MouseDown
        If e
.Button MouseButtons.Left Then
            dr 
True
            ax 
MousePosition.Me.Left
            ay 
MousePosition.Me.Top

        End 
If
 
   End Sub

    Private Sub Panel1_MouseMove
(sender As ObjectAs MouseEventArgsHandles Panel1.MouseMove
        If dr Then
            Me
.Left Windows.Forms.Cursor.Position.ax
            Me
.Top Windows.Forms.Cursor.Position.ay

        End 
If
 
   End Sub

    Private Sub Panel1_MouseUp
(sender As ObjectAs MouseEventArgsHandles Panel1.MouseUp
        dr 
False
    End Sub



    Private Sub Button2_Click
(sender As ObjectAs EventArgsHandles Button2.Click
        Me
.Hide()
 
       Me.Close()
 
   End Sub

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        ProgressBar1
.Maximum 100
        If b
.IsBusy False Then b.RunWorkerAsync()
 
   End Sub

    Private Sub b_DoWork
(sender As ObjectAs System.ComponentModel.DoWorkEventArgsHandles b.DoWork
        Dim r 
As Integer
        For r 
0 To 100
            Me
.BeginInvoke(New MethodInvoker(Sub()
 
                                                ProgressBar1.Value r
                                                 ListBox1
.Items.Add("سبحان الله وبحمده سبحان الله العظيم " "- " " -")
 
                                            End Sub))
 
           Threading.Thread.Sleep(1500)
 
       Next
    End Sub
End 
Class 
الرد }}}
تم الشكر بواسطة: ابو روضة , ابو روضة



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم