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

هل يمكن الحصول على ال value من ال scroll بتاع TrackBar
بمعنى عندى TrackBar
max value = 100 normal value = 0
اريد عندما يتحرك ال mouse على ال scroll بتاع TrackBar يظهر فى ToolTip قيمة ال value الى اذا وصلت ال normal value ليه تصبح هذه ال value

[صورة مرفقة: 4haEd3B.png?1]

هل تقصد اذا تعدا 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% جزاك الله خير

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

أسامة

hassan

أسامة

الطالب

أسامة