تقييم الموضوع :
  • 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% جزاك الله خير
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف الحصول على قيمة الخلية بعد تحديد الصف في datagridview؟ hazim1 2 558 06-08-23, 01:12 AM
آخر رد: hazim1
  لا استطيع الحصول على الرقم التسلسلي للقرص C ابو محمد محمد محمد 6 736 27-04-23, 01:49 PM
آخر رد: ابو محمد محمد محمد
  الحصول على إسم الفورم jemyx 3 1,003 10-05-22, 08:40 PM
آخر رد: asmarsou
  إستفسار حول طريقة الحصول على رقم المحمول عبد العزيز البسكري 0 787 22-11-21, 09:47 PM
آخر رد: عبد العزيز البسكري
  الحصول على جزء من نص باستخدام الريجكس Basil Abdallah 1 918 29-05-21, 07:15 AM
آخر رد: اليوم السابع
Question هل يمكن الحصول على نسخه برنامج كريستال ربيوت مع الكراك إن امكن ذلك ؟ Microformt 1 1,518 23-11-20, 08:09 PM
آخر رد: عبد العزيز البسكري
  [سؤال] سؤال حول الحصول على نص من صحفة ويب داخل Class dametucorazon 8 2,442 12-08-19, 05:01 AM
آخر رد: dametucorazon
  [سؤال] كيف يمكنني الحصول علي رابط داخل كود جافا من خلال الويب براوزر dametucorazon 0 1,146 11-05-19, 06:10 AM
آخر رد: dametucorazon
  كيف يمكنني الحصول علي البيانات من قاعدة اكسس salahmax12 2 1,718 30-10-18, 10:10 PM
آخر رد: sads
  كيف يمكن الحصول على احصائيات من قاعدة البيانات blida02 6 2,217 30-05-18, 03:50 AM
آخر رد: mrnooo2000

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


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