تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الحصول على value من TrackBar
#1
هل يمكن الحصول على ال value من ال scroll بتاع TrackBar
بمعنى عندى TrackBar
max value = 100 normal value = 0
اريد عندما يتحرك ال mouse على ال scroll بتاع TrackBar يظهر فى ToolTip قيمة ال value الى اذا وصلت ال normal value ليه تصبح هذه ال value

الرد
تم الشكر بواسطة:
#2
هل تقصد اذا تعدا 88 تضهر رسالة مثل الي في الصوره ؟
لحمد لله رب العالمين على كل شي
الرد
تم الشكر بواسطة:
#3
(16-06-15, 10:49 PM)hassan كتب : هل تقصد اذا تعدا 88 تضهر رسالة مثل الي في الصوره ؟

لا اقصد مثل هذا
قيمه ال value كلها 100% و لو عيزين نغير ال Value او معرفتها بنستخدم هذا الكود
كود :
       TrackBar1.Value = 20
       Textbox1.text = TrackBar1.Value
لاكن الذى اقصده هو عند تحريك مؤشر الفأره على ال Scroll تظهر رساله بقيمه ال Value الى المؤشر واقف عندها
مثل
كود :
   Private Sub TrackBar1_MouseMove(sender As Object, e As MouseEventArgs) Handles TrackBar1.MouseMove
       'ToolTip1.Show("TrackBar1.Value of scroll", TrackBar1)
   End Sub
توضيح اكثر مثل مشغل الفيديو


[صورة مرفقة: 8Y7sPAW.png?1?9839]
الرد
تم الشكر بواسطة:
#4
سلام

جرب هذا الكود وعدل فيه
كود :
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TrackBarTipValueSetup()
    End Sub

#Region "TrackBar ToolTipValue"
    Dim TrackBarTipValue As New Label
    Private Sub TrackBarTipValueSetup()
        ' TrackBar1 -----------------------------
        AddHandler TrackBar1.MouseMove, AddressOf TrackBarTip_MouseMove
        AddHandler TrackBar1.MouseLeave, AddressOf TrackBarTip_MouseLeave
        AddHandler TrackBar1.MouseDown, AddressOf TrackBarTip_MouseDown
        ' TrackBar2 -----------------------------
        'AddHandler TrackBar2.MouseMove, AddressOf TrackBarTip_MouseMove
        'AddHandler TrackBar2.MouseLeave, AddressOf TrackBarTip_MouseLeave
        'AddHandler TrackBar2.MouseDown, AddressOf TrackBarTip_MouseDown
        '========================================
        TrackBarTipValue.Visible = False
        TrackBarTipValue.Parent = Me
        TrackBarTipValue.BorderStyle = BorderStyle.FixedSingle
        TrackBarTipValue.BackColor = Color.Yellow
        TrackBarTipValue.AutoSize = True
        TrackBarTipValue.BringToFront()
    End Sub
    Private Sub TrackBarTip_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        If e.X >= 13 And e.X <= sender.Width - 14 Then
            Dim tip As Integer = (((e.X - 13) / (sender.Width - 27)) * (sender.Maximum - sender.Minimum)) + sender.Minimum
            If tip >= sender.Minimum And tip <= sender.Maximum Then
                TrackBarTipValue.Text = tip
                TrackBarTipValue.Location = New Point(sender.Left + e.X - (TrackBarTipValue.Width / 2), sender.Top - TrackBarTipValue.Height)
                TrackBarTipValue.Visible = True
            End If
        End If
    End Sub
    Private Sub TrackBarTip_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs)
        TrackBarTipValue.Visible = False
    End Sub
    Private Sub TrackBarTip_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        If e.Button = Windows.Forms.MouseButtons.Left Then sender.Value = Val(TrackBarTipValue.Text)
    End Sub
#End Region

End Class

موفقين
متغيب
الرد
تم الشكر بواسطة: أسامة
#5
(18-06-15, 02:22 AM)الطالب كتب : سلام

جرب هذا الكود وعدل فيه
كود :
Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       TrackBarTipValueSetup()
   End Sub

#Region "TrackBar ToolTipValue"
   Dim TrackBarTipValue As New Label
   Private Sub TrackBarTipValueSetup()
       ' TrackBar1 -----------------------------
       AddHandler TrackBar1.MouseMove, AddressOf TrackBarTip_MouseMove
       AddHandler TrackBar1.MouseLeave, AddressOf TrackBarTip_MouseLeave
       AddHandler TrackBar1.MouseDown, AddressOf TrackBarTip_MouseDown
       ' TrackBar2 -----------------------------
       'AddHandler TrackBar2.MouseMove, AddressOf TrackBarTip_MouseMove
       'AddHandler TrackBar2.MouseLeave, AddressOf TrackBarTip_MouseLeave
       'AddHandler TrackBar2.MouseDown, AddressOf TrackBarTip_MouseDown
       '========================================
       TrackBarTipValue.Visible = False
       TrackBarTipValue.Parent = Me
       TrackBarTipValue.BorderStyle = BorderStyle.FixedSingle
       TrackBarTipValue.BackColor = Color.Yellow
       TrackBarTipValue.AutoSize = True
       TrackBarTipValue.BringToFront()
   End Sub
   Private Sub TrackBarTip_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
       If e.X >= 13 And e.X <= sender.Width - 14 Then
           Dim tip As Integer = (((e.X - 13) / (sender.Width - 27)) * (sender.Maximum - sender.Minimum)) + sender.Minimum
           If tip >= sender.Minimum And tip <= sender.Maximum Then
               TrackBarTipValue.Text = tip
               TrackBarTipValue.Location = New Point(sender.Left + e.X - (TrackBarTipValue.Width / 2), sender.Top - TrackBarTipValue.Height)
               TrackBarTipValue.Visible = True
           End If
       End If
   End Sub
   Private Sub TrackBarTip_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs)
       TrackBarTipValue.Visible = False
   End Sub
   Private Sub TrackBarTip_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
       If e.Button = Windows.Forms.MouseButtons.Left Then sender.Value = Val(TrackBarTipValue.Text)
   End Sub
#End Region

End Class

موفقين

شكرآ يعمل 100% جزاك الله خير
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] سؤال حول الحصول على نص من صحفة ويب داخل Class dametucorazon 8 269 12-08-19, 05:01 AM
آخر رد: dametucorazon
  [سؤال] كيف يمكنني الحصول علي رابط داخل كود جافا من خلال الويب براوزر dametucorazon 0 134 11-05-19, 06:10 AM
آخر رد: dametucorazon
  كيف يمكنني الحصول علي البيانات من قاعدة اكسس salahmax12 2 284 30-10-18, 10:10 PM
آخر رد: sads
  كيف يمكن الحصول على احصائيات من قاعدة البيانات blida02 6 498 30-05-18, 03:50 AM
آخر رد: mrnooo2000
  [سؤال] كيفية الحصول علي مساحة مجلد بالبايت في فجول بيسك Iman Mohamed Omran 4 534 30-04-18, 06:49 PM
آخر رد: Iman Mohamed Omran
  [سؤال] الحصول على اسماء المستخدمين Mohamed20 3 565 27-01-18, 08:50 PM
آخر رد: عبدالله الدوسري
  [VB.NET] كيف يمكن الحصول على ترميز ينيكود Lamyaa 2 333 27-01-18, 12:32 AM
آخر رد: محمود صالح
  كيف يمكننى الحصول على فيجوال استوديو مبرمج مصرى 1 354 05-01-18, 09:18 PM
آخر رد: الكاتب
  الحصول على الوقت و التاريخ Mohamed20 1 423 07-12-17, 06:48 PM
آخر رد: طالب برمجة
  الحصول على التواريخ المحصورة بين تاريخين في متغيرات تناسيم 3 461 03-12-17, 07:28 PM
آخر رد: Rabeea Qbaha

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


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