تقييم الموضوع :
  • 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 
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: ابو روضة , ابو روضة
#3
(15-08-16, 08:50 AM)سعود كتب :
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 

مش فاهم اخى ممكن توضح اعمل ايه بكل هذا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية ادراج نص في اداة RichTextBox مع الاحتفاظ بالنص soper 0 29 منذ 6 ساعة مضت
آخر رد: soper
  [SQL] بخصوص SQL And VB.Net thevirus 0 49 16-01-17, 07:43 PM
آخر رد: thevirus
  [VB.NET] بخصوص WebBrowser dubai.eig 5 158 15-01-17, 03:10 PM
آخر رد: dubai.eig
  استفسار عن الجداول المتعددة في قاعدة البيانات اكسس أبووسم 4 132 14-01-17, 12:36 PM
آخر رد: أبووسم
  اداة اختيار الملفات محمد بن عطية 2 76 12-01-17, 06:01 PM
آخر رد: مساعدة
  سئوال بخصوص التاريخ السيد الجوهري 2 112 08-01-17, 04:01 PM
آخر رد: السيد الجوهري
  استفسار حول (ComboBox) و (TextBox). المبرمج المبتدئ 1 10 267 05-01-17, 03:37 AM
آخر رد: المبرمج المبتدئ 1
  بخصوص الاداة WebBrowser ali.alfoly 5 128 31-12-16, 04:59 PM
آخر رد: ali.alfoly
  [VB.NET] استفسار عن DataGridView dubai.eig 3 169 28-12-16, 08:11 AM
آخر رد: Hazim Elabd
  اريد كود لفتح ملف صوتى فى اداة ويندوز ميديا بلير من ملف الريسورس المبرمج الاسطورى 5 576 23-12-16, 03:16 PM
آخر رد: silverlight

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


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