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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيف اوضع ProgressBar في هذا الكود e-coder 0 51 23-05-17, 07:43 PM
آخر رد: e-coder
  افكاركم بخصوص برنامج ادارة محلات بلاي ستيشن Basil Abdallah 3 79 18-05-17, 07:49 PM
آخر رد: Basil Abdallah
  مساعدة بخصوص تشفير ملف exe OakenShield 1 58 18-05-17, 11:27 AM
آخر رد: OakenShield
  [VB.NET] ارجو المساعدة بخصوص Chart vb.net2017 0theghost0 2 58 17-05-17, 05:14 PM
آخر رد: 0theghost0
  سؤال بخصوص التحكم بالمحرك عن طريق الحاسوب Basil Abdallah 2 65 16-05-17, 12:29 AM
آخر رد: alma2
  [نقاش] استفسار بخصوص النت فراموورك Net Framework Ratchinko 4 123 15-05-17, 01:48 AM
آخر رد: Ratchinko
  استفسار حوال التركيز في الادوات المتألق9 6 85 13-05-17, 07:05 PM
آخر رد: أسامة السالمي
  [سؤال] بخصوص ادخال التاريخ الى قاعدة البيانات Abdulaziz Hazazi 7 228 05-05-17, 03:13 PM
آخر رد: وسام احمد ابراهيم
  [VB.NET] استفسار بسيط جدا بخصوص الطباعه !!! CoderMM 1 57 03-05-17, 04:34 PM
آخر رد: mansoor
  طلب كود بخصوص الداتا قردفيو الراس الكبيرة 16 401 01-05-17, 01:06 PM
آخر رد: الراس الكبيرة

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


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