تقييم الموضوع :
  • 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 

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [نقاش] الى كل خبير ومبتدأ نقاش بخصوص جعل البرنامج نسخة تجريبية 0theghost0 1 152 30-11-16, 11:21 PM
آخر رد: awidan76
  [سؤال] اداة Geckowebbroser التي موجود في لغة vb.net عبدالرحمن المكاوي 0 48 24-11-16, 03:54 PM
آخر رد: عبدالرحمن المكاوي
  مساعدة بخصوص Listbox CLARO 3 83 16-11-16, 06:15 PM
آخر رد: silverlight
  [سؤال] CrystalReports بخصوص GroubBy thevirus 1 60 15-11-16, 10:51 PM
آخر رد: السرور
  [VB.NET] استفسار بخصوص استعلام التعديل dark1459 8 117 15-11-16, 12:31 AM
آخر رد: dark1459
Photo بخصوص قراءة الباركود shwehdi4pc 11 295 10-11-16, 11:44 PM
آخر رد: محمود بكرى
  [VB.NET] بخصوص الطباعه لشي محدد adel27 6 132 10-11-16, 05:51 PM
آخر رد: adel27
Lightbulb [سؤال] هل يوجد اداة لاستعراض الانترنت غير webcontrol elhon.tec 1 157 09-11-16, 03:24 PM
آخر رد: elhon.tec
Exclamation [VB.NET] استفسار في كود string a_abdullah 11 215 07-11-16, 10:05 PM
آخر رد: a_abdullah
  هل من طريقة لإنشاء اداة بنفسك في vb.net thevirus 2 91 30-10-16, 06:15 PM
آخر رد: silverlight

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


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