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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استفسار حول كود البحث المتعدد حسب الاصناف oman 4 57 منذ 2 ساعة مضت
آخر رد: Marwan9990
  [VB.NET] استفسار حول طباعة جزء من printdocument1 samiiiiii 7 128 أمس, 08:25 PM
آخر رد: samiiiiii
  استفسار حول الكومبو بوكس المتألق9 2 61 أمس, 06:04 PM
آخر رد: مساعدة
  استفسار عن كيف الغي عمل زر من الكيبور؟ samiiiiii 2 54 25-02-17, 09:57 PM
آخر رد: samiiiiii
  [VB.NET] سؤال بخصوص ALTER TABLE dubai.eig 5 100 25-02-17, 09:35 PM
آخر رد: مساعدة
  استفسار بخصوص عدم ظهور اداة عرض ملف pdf في الادوات عباسة 7 154 22-02-17, 08:07 PM
آخر رد: عباسة
Wink [VB.NET] استفسار بخصوص التعديل والحفظ علي اداة datagridview dark1459 9 131 20-02-17, 02:13 AM
آخر رد: khodor1985
Lightbulb للخبراء هل توجد مكتبة او اداة لعمل مثل هذا النموذج عن طريق vb.net ارجو المساعدة Amrjamil 6 108 18-02-17, 02:19 PM
آخر رد: Amrjamil
  استفسار عن تعبئة combobox من قاعدة البيانات المتألق9 2 82 16-02-17, 11:57 AM
آخر رد: المتألق9
  [VB.NET] سؤال بخصوص Next button Setup Factory dubai.eig 1 56 14-02-17, 07:23 PM
آخر رد: dubai.eig

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


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