Problem mit Scrollen in Usercontrol

sothere · 13. Februar 2015, 20:11

Hallöchen ihr lieben,
ich hänge gerade an einem alten Problem von mir fest und hoffe, das ihr mir vielleicht helfen könnt.
Ich habe ein UserControl geschrieben, das praktisch eine neue Trackbar ist. An sich funktioniert alles supi, es gibt nur beim scrollen ein Problem:
Ich kann das scrollen ohne Probleme abfragen und kann machen, was ich damit will. Allerdings scrolle ich nicht nur in meinem UC, sondern auch in der Anwendung.
Bedeutet: Wenn ich das ganze in dem UC-Testfenster laufen lasse und die Größe dann so einstelle, das es Scroll-Balken benötigt, dann werden auch diese gescrollt. Dabei hat bzw. sollte eigentlich nur das UC den Focus.
An sich nicht weiter Problematisch, aber wenn ich das nun in eine Anwendung einfüge und AutoScroll benutzen muss, dann scrolle ich nun in der Anwendung und sehe die Trackbar gar nicht mehr.

Kann man das ganze beheben? Hab ich eventuell irgendwo einen Denkfehler?

RodFromGermany · 13. Februar 2015, 20:40

@sothere Kannst Du mal den Code posten?

sothere · 13. Februar 2015, 23:06

Spoiler anzeigen

VB.NET-Quellcode

<DefaultEvent("ValueChanged")> _
Public Class NikoTecTrackbar
Inherits UserControl
#Region "Einstellungen"
Private _value As Integer
<Category("TrackbarSettings")> _
Public Overloads Property Value() As Integer
Get
Return _value
End Get
Set(ByVal value As Integer)
_value = value
If _value < _minimum Then _value = _minimum
If _value > _maximum Then _value = _maximum
Button.Location = New Point(0, CInt(Math.Round((Me.Height - Button.Size.Height) / GetRange() * (_maximum - _value))))
Me.Invalidate()
End Set
End Property
Private _minimum As Integer
<Category("TrackbarSettings")> _
Public Overloads Property Minimum() As Integer
Get
Return _minimum
End Get
Set(ByVal value As Integer)
_minimum = value
If _minimum < 0 Then _minimum = 0
If _minimum + 1 > _maximum Then _minimum = _maximum - 1
If _value < _minimum Then _value = _minimum
Button.Location = New Point(0, CInt(Math.Round((Me.Height - Button.Size.Height) / GetRange() * (_maximum - _value))))
Me.Invalidate()
End Set
End Property
Private _maximum As Integer
<Category("TrackbarSettings")> _
Public Overloads Property Maximum() As Integer
Get
Return _maximum
End Get
Set(ByVal value As Integer)
_maximum = value
If _maximum < _minimum + 1 Then _maximum = _minimum + 1
If _value > _maximum Then _value = _maximum
Button.Location = New Point(0, CInt(Math.Round((Me.Height - Button.Size.Height) / GetRange() * (_maximum - _value))))
Me.Invalidate()
End Set
End Property
Private _largechange As Integer
<Category("TrackbarSettings")> _
Public Overloads Property LargeChange As Integer
Get
Return _largechange
End Get
Set(ByVal value As Integer)
_largechange = value
If _largechange < 1 Then
_largechange = 1
MsgBox("Kein gültiger Wert" + vbNewLine + ErrorToString())
End If
End Set
End Property
Private _showTicks As Boolean
<Category("TrackbarSettings")> _
Public Property ShowTicks() As Boolean
Get
Return _showTicks
End Get
Set(ByVal value As Boolean)
_showTicks = value
Me.Invalidate()
End Set
End Property
Private _tickColor As Color
<Category("TrackbarSettings")> _
Public Property TickColor() As Color
Get
Return _tickColor
End Get
Set(ByVal value As Color)
_tickColor = value
Me.Invalidate()
End Set
End Property
Private _tickFrequency As Integer
<Category("TrackbarSettings")> _
Public Overloads Property TickFrequency() As Integer
Get
Return _tickFrequency
End Get
Set(ByVal value As Integer)
_tickFrequency = value
If _tickFrequency < 1 Then _tickFrequency = 1
Me.Invalidate()
End Set
End Property
Private _trackLineColor As Color
<Category("TrackbarSettings")> _
Public Property TrackLineColor() As Color
Get
Return _trackLineColor
End Get
Set(ByVal value As Color)
_trackLineColor = value
Me.Invalidate()
End Set
End Property
<Category("TrackbarSettings")> _
Public Property TrackButtonForeColor() As Color
Get
Return Button.TrackButtonForeColor
End Get
Set(ByVal value As Color)
Button.TrackButtonForeColor = value
Me.Invalidate()
End Set
End Property
<Category("TrackbarSettings")> _
Public Property TrackButtonBackColor() As Color
Get
Return Button.TrackButtonBackColor
End Get
Set(ByVal value As Color)
Button.TrackButtonBackColor = value
Me.Invalidate()
End Set
End Property
Private _trackLineSize As Integer
<Category("TrackbarSettings")> _
Public Property TrackLineSize As Integer
Get
Return _trackLineSize
End Get
Set(value As Integer)
_trackLineSize = value
If _trackLineSize > 15 Then _trackLineSize = 4
Me.Invalidate()
End Set
End Property
Private _buttonheight As Integer
<Category("TrackbarSettings")> _
Public Property ButtonHeight As Integer
Get
Return _buttonheight
End Get
Set(value As Integer)
If value >= Me.Height Then
Return
Else
_buttonheight = value
Button.Size = New Size(Button.Size.Width, value)
'Button wird neu gezeichnet
If Button IsNot Nothing Then
Button.Size = New Size(Me.Width, Button.Size.Height)
Button.Location = New Point(0, CInt(Math.Round((Me.Height - Button.Size.Height) / GetRange() * (_maximum - _value))))
Me.Invalidate()
End If
End If
End Set
End Property
#End Region
Public Shadows Event ValueChanged(sender As Object)
Private Button As TrackButton
Private mdownPoint As Point
Public Sub New()
mdownPoint = New Point(-1, -1)
Button = New TrackButton(New Point(0, 36), New Size(14, 28))
Maximum = 100
Minimum = 0
LargeChange = 5
Value = 0
TrackLineColor = Color.DimGray
TickFrequency = 25
ButtonHeight = 28
ShowTicks = True
TickColor = Color.Gray
TrackLineSize = 4
Me.SetStyle(ControlStyles.SupportsTransparentBackColor Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint, True)
InitializeComponent()
Me.Size = New Size(14, 100)
End Sub
Protected Overrides Sub OnPaintBackground(pevent As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaintBackground(pevent)
pevent.Graphics.SmoothingMode = SmoothingMode.HighQuality
pevent.Graphics.PixelOffsetMode = PixelOffsetMode.HighQuality
pevent.Graphics.InterpolationMode = InterpolationMode.HighQualityBicubic
pevent.Graphics.DrawLine(New Pen(_trackLineColor, _trackLineSize), Me.Width \ 2, 0, Me.Width \ 2, Me.Height)
If _showTicks Then
For i As Integer = _minimum To _maximum Step _tickFrequency
Dim yValue As Single = CSng((Me.Height - Button.Size.Height) / GetRange() * (i - _minimum) + Button.Size.Height \ 2)
pevent.Graphics.DrawLine(New Pen(_tickColor, 1), 2.0F, yValue, CSng(Me.Width / 2 - 3), yValue)
pevent.Graphics.DrawLine(New Pen(_tickColor, 1), CSng(Me.Width / 2 + 3), yValue, CSng(Me.Width - 2), yValue)
Next
End If
End Sub
Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaint(e)
Button.Paint(e.Graphics)
End Sub
Protected Overrides Function IsInputKey(ByVal keyData As System.Windows.Forms.Keys) As Boolean
Select Case keyData And Keys.KeyCode
Case Keys.Up, Keys.Down, Keys.Right, Keys.Left
Return True
Case Else
Return MyBase.IsInputKey(keyData)
End Select
End Function
Private Sub Slider_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Down Then
Value -= 1
RaiseEvent ValueChanged(Me)
ElseIf e.KeyCode = Keys.Up Then
Value += 1
RaiseEvent ValueChanged(Me)
ElseIf e.KeyCode = Keys.PageUp Then
Value += _largechange
RaiseEvent ValueChanged(Me)
ElseIf e.KeyCode = Keys.PageDown Then
Value -= _largechange
RaiseEvent ValueChanged(Me)
ElseIf e.KeyCode = Keys.Home Then ' Pos1
Value = _maximum
RaiseEvent ValueChanged(Me)
ElseIf e.KeyCode = Keys.End Then ' Ende
Value = _minimum
RaiseEvent ValueChanged(Me)
End If
End Sub
Private Sub Slider_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
If New Rectangle(Button.Location, Button.Size).IntersectsWith(New Rectangle(e.Location, New Size(1, 1))) Then
mdownPoint = New Point(0, e.Y - Button.Location.Y)
End If
End Sub
Private Sub Slider_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If mdownPoint.X >= 0 Then
Dim oldvalue = Value
Value = GetRange() - CInt(Math.Round((e.Y - mdownPoint.Y) / (Me.Height - Button.Size.Height) * GetRange())) + _minimum
If Value <= _maximum And oldvalue <> Value Then
RaiseEvent ValueChanged(Me)
End If
End If
End Sub
Private Sub Slider_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
mdownPoint = New Point(-1, -1)
End Sub
Private Sub Slider_MouseWheel(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
Dim oldvalue = Value
If e.Delta > 0 Then
Value += _largechange
Else
Value -= _largechange
End If
If Value <= _maximum And oldvalue <> Value Then
RaiseEvent ValueChanged(Me)
End If
End Sub
Private Sub Slider_SizeChanged(sender As Object, e As System.EventArgs) Handles Me.SizeChanged
If Button IsNot Nothing Then
Button.Size = New Size(Me.Width, Button.Size.Height)
Button.Location = New Point(0, CInt(Math.Round((Me.Height - Button.Size.Height) / GetRange() * (_maximum - _value))))
Me.Invalidate()
End If
End Sub
Private Function GetRange() As Integer
Return _maximum - _minimum
End Function
'############################-TrackButton-############################
Private Class TrackButton
Private _size As Size
Public Property Size() As Size
Get
Return _size
End Get
Set(ByVal value As Size)
_size = value
GenerateImage()
End Set
End Property
Private _location As Point
Public Property Location() As Point
Get
Return _location
End Get
Set(ByVal value As Point)
_location = value
End Set
End Property
Private _trackButtonForeColor As Color
Public Property TrackButtonForeColor() As Color
Get
Return _trackButtonForeColor
End Get
Set(ByVal value As Color)
_trackButtonForeColor = value
GenerateImage()
End Set
End Property
Private _trackButtonBackColor As Color
Public Property TrackButtonBackColor() As Color
Get
Return _trackButtonBackColor
End Get
Set(ByVal value As Color)
_trackButtonBackColor = value
GenerateImage()
End Set
End Property
Private ButtonBitmap As Bitmap
Public Sub Paint(e As Graphics)
e.DrawImage(ButtonBitmap, Location)
End Sub
Public Sub New(l As Point, s As Size)
Location = l
Size = s
TrackButtonForeColor = Color.Cyan
TrackButtonBackColor = Color.Silver
GenerateImage()
End Sub
Private Sub GenerateImage()
Using bmp As New Bitmap(Size.Width, Size.Height), g As Graphics = Graphics.FromImage(bmp)
g.SmoothingMode = SmoothingMode.HighQuality
g.PixelOffsetMode = PixelOffsetMode.HighQuality
g.InterpolationMode = InterpolationMode.HighQualityBicubic
g.Clear(_trackButtonBackColor)
Using b1 As New LinearGradientBrush(New Point(0, 0), New Point(0, Size.Height), Color.FromArgb(70, Color.White), Color.FromArgb(70, Color.Black)), b2 As New LinearGradientBrush(New Point(0, 5), New Point(0, Size.Height - 6), Color.FromArgb(70, Color.Black), Color.FromArgb(70, Color.White))
g.FillRectangle(b1, 0, 0, Size.Width, 5)
g.FillRectangle(b1, 0, Size.Height - 6, Size.Width, 6)
g.FillRectangle(b2, 0, 5, Size.Width, Size.Height - 11)
End Using
g.DrawLine(New Pen(_trackButtonForeColor, 2), 3, Size.Height \ 2, Size.Width - 3, Size.Height \ 2)
g.DrawRectangle(New Pen(Color.FromArgb(90, Color.Black)), New Rectangle(0, 0, Size.Width, Size.Height))
ButtonBitmap = CType(bmp.Clone, Bitmap)
End Using
End Sub
End Class
End Class

Ist ein ganz alter Code aus meinen Anfängen, ich hab den auch nicht komplett selber entwickelt. Wollte mich bloß mal wieder daran probieren, weil mich das damals immer ziemlich genervt hat.

RodFromGermany · 14. Februar 2015, 07:19

sothere schrieb:

alter Code

Leite die Klasse nicht von UserControl sondern von Trackbar ab.

sothere · 14. Februar 2015, 10:43

Das hatte ich ursprünglich auch. Allerdings konnte und kann ich dann nicht die Größe des Controls frei wählen, sondern immer nur einen Wert ändern, je nach der Orientation. Ich habe es zwar so hin bekommen das er als Orientation immer vertikal nimmt, aber die breite kann ich dann nicht ändern.

sothere · 16. Februar 2015, 19:32

Oder man überschreibt einfach AutoSize

Problem mit Scrollen in Usercontrol

Problem mit Scrollen in Usercontrol

VB.NET-Quellcode

sothere schrieb:

Ähnliche Themen

2 Benutzer haben hier geschrieben