منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : الحصول على value من TrackBar
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
هل يمكن الحصول على ال value من ال scroll بتاع TrackBar
بمعنى عندى TrackBar
max value = 100 normal value = 0
اريد عندما يتحرك ال mouse على ال scroll بتاع TrackBar يظهر فى ToolTip قيمة ال value الى اذا وصلت ال normal value ليه تصبح هذه ال value

هل تقصد اذا تعدا 88 تضهر رسالة مثل الي في الصوره ؟
(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]
سلام

جرب هذا الكود وعدل فيه
كود :
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

موفقين
(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% جزاك الله خير