الحصول على value من TrackBar - أسامة - 16-06-15
هل يمكن الحصول على ال value من ال scroll بتاع TrackBar
بمعنى عندى TrackBar
max value = 100 normal value = 0
اريد عندما يتحرك ال mouse على ال scroll بتاع TrackBar يظهر فى ToolTip قيمة ال value الى اذا وصلت ال normal value ليه تصبح هذه ال value
RE: الحصول على value من TrackBar - hassan - 16-06-15
هل تقصد اذا تعدا 88 تضهر رسالة مثل الي في الصوره ؟
RE: الحصول على value من TrackBar - أسامة - 17-06-15
(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
توضيح اكثر مثل مشغل الفيديو
RE: الحصول على value من TrackBar - الطالب - 18-06-15
سلام
جرب هذا الكود وعدل فيه
كود :
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
موفقين
RE: الحصول على value من TrackBar - أسامة - 18-06-15
(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% جزاك الله خير
|