هل يمكن الحصول على ال 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
توضيح اكثر مثل مشغل الفيديو
(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% جزاك الله خير