So hier zum Letzten Update der ScrollBaas die ich hier Posten werde!
VerticalScrollBaas ->
Spoiler anzeigen
HorizontalScrollBaas ->
Spoiler anzeigen
Eigentlich hatte ich vor die ScrollBaas noch mit RoundEdges und Transparents zuversehen... Allerdings habe ich mich dazu entschieden eine mehr oder weniger Kleines Framework zuschreiben... Weil es Wesentlich schwieriger für mich ist in den Windows Standart controls mit ScrollBars meine ScrollBaas zu implementieren als eigene Lists&Controls zuschreiben... was auch am besten lösbar für RoundEdges& Transparents etc.. pp ist.. Leider ist mein Laptop Kaputt & ich im moment bei meiner Arbeit hart gefordert aber in Ferner zukunft werde ich denke ich hier irgendwo im Forum ein Framework von mir Publizieren... Damit sage ich in diesem Sinne ein Wundervolles Danke & REINGEHAUEN! Euer Baa$ aka Huchti591
VerticalScrollBaas ->
VB.NET-Quellcode
- ' ___ ___ ___ ___ _ _ ___ _ _ ___
- ' / __|/ __| _ \/ _ \| | | | | _ ) /_\ /_\ / __|
- ' \__ \ (__| / (_) | |__| |__| _ \/ _ \ / _ \\__ \
- ' |___/\___|_|_\\___/|____|____|___/_/ \_\/_/ \_\___/
- ' VerticalScrollBaas v0.0.3 Beta
- ' 2021 by Baa$ aka Huchti591
- ' Helpers Credits on vb-paradise.de From RodFromGermany & Takafusa
- Option Strict On
- Imports System.ComponentModel
- Imports System.Drawing.Drawing2D
- Public Class VerticalScrollBaas
- Inherits Control
- #Region "Events"
- Public Event Scroll()
- Public Event ValueChanged(sender As VerticalScrollBaas, value As Integer)
- #End Region
- Sub New()
- SetStyle(ControlStyles.AllPaintingInWmPaint, True)
- SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
- SetStyle(ControlStyles.ResizeRedraw, True)
- SetStyle(ControlStyles.UserPaint, True)
- UpdateStyles()
- Size = New Size(6, 150)
- End Sub
- #Region "Deklaration"
- #Region "Rectangles"
- Private Track As Rectangle
- Private Thumb As Rectangle
- #End Region
- #Region "GraphicParts"
- Private ThumbGPath As New GraphicsPath
- Private TrackGPath As New GraphicsPath
- #End Region
- #Region "Integers"
- Private ThumbSize As Integer
- Private ThumbY As Integer
- Private OffSet As Integer
- #End Region
- #Region "Clicks"
- Private TrackClick As Boolean = False
- Private ThumbClick As Boolean = False
- #End Region
- #End Region
- #Region "Propertys"
- #Region "Main"
- Private _Value As Integer
- <Category("ScrollBar"), Description("It is used to Obtain or set a value in a ScrollBaas Control that indicates a ScrollBox's current Position.")>
- Public Property Value As Integer
- Get
- Return _Value
- End Get
- Set(value As Integer)
- _Value = value
- If _Value >= Maximum Then
- _Value = Maximum
- ElseIf _Value <= Minimum Then
- _Value = Minimum
- End If
- RaiseEvent ValueChanged(Me, value)
- Invalidate()
- End Set
- End Property
- Private _Minimum As Integer = 0
- <Category("ScrollBar"), Description("It is used to get or set the Minimum value of the ScrollBaas Control. By Default it is 0.")>
- Public Property Minimum As Integer
- Get
- Return _Minimum
- End Get
- Set(value As Integer)
- _Minimum = value
- Invalidate()
- End Set
- End Property
- Private _Maximum As Integer = 100
- <Category("ScrollBar"), Description("It is used to set or get the Maximum value of the ScrollBaas Control. The Default is 100.")>
- Public Property Maximum As Integer
- Get
- Return _Maximum
- End Get
- Set(value As Integer)
- _Maximum = value
- Invalidate()
- End Set
- End Property
- Private _SmallChange As Integer = 1
- <Category("ScrollBar"), Description("It is used to Obtain or set a Value that will be added or Subtracted from the Property of the ScrollBaas Control when the ScrollBaas is moved a short Distance.")>
- Public Property SmallChange As Integer
- Get
- Return _SmallChange
- End Get
- Set(value As Integer)
- _SmallChange = value
- Invalidate()
- End Set
- End Property
- Private _LargeChange As Integer = 10
- <Category("ScrollBar"), Description("It is used to Obtain or set a Value that will be added or Subtracted from the Property of the ScrollBaas Control when the ScrollBaas is moved a large Distance.")>
- Public Property LargeChange As Integer
- Get
- Return _LargeChange
- End Get
- Set(value As Integer)
- _LargeChange = value
- Invalidate()
- End Set
- End Property
- #End Region
- #Region "Style"
- Private _TrackColor As Color = Color.FromArgb(180, 216, 216, 216)
- <Category("Style"), Description("Change the Color of the Track.")>
- Public Property TrackColor As Color
- Get
- Return _TrackColor
- End Get
- Set(value As Color)
- _TrackColor = value
- Invalidate()
- End Set
- End Property
- Private _ThumbColor As Color = Color.FromArgb(180, 216, 216, 31)
- <Category("Style"), Description("Change the Color of the Thumb.")>
- Public Property ThumbColor As Color
- Get
- Return _ThumbColor
- End Get
- Set(value As Color)
- _ThumbColor = value
- Invalidate()
- End Set
- End Property
- Private _ThumbHoverColor As Color = Color.FromArgb(180, 225, 188, 0)
- <Category("Style"), Description("Change the Color of Thumb when the Mouse is on it.")>
- Public Property ThumbHoverColor As Color
- Get
- Return _ThumbHoverColor
- End Get
- Set(value As Color)
- _ThumbHoverColor = value
- Invalidate()
- End Set
- End Property
- #End Region
- #End Region
- #End Region
- #Region "Mouse"
- Private Enum MouseState
- Hover
- Click
- None
- End Enum
- Private _MouseState As MouseState = MouseState.None
- Protected Overrides Sub OnMouseMove(e As MouseEventArgs)
- MyBase.OnMouseMove(e)
- If ThumbClick = True Then
- If ThumbY < Minimum Then
- ThumbY = Minimum
- ElseIf ThumbY > Track.Height - ThumbSize Then
- ThumbY = Track.Height - ThumbSize
- Else
- ThumbY = ThumbY + (e.Y - OffSet)
- Value = Percentage(ThumbY, Track.Height - ThumbSize)
- RaiseEvent Scroll()
- End If
- End If
- If TrackGPath.IsVisible(e.Location) OrElse ThumbGPath.IsVisible(e.Location) Then
- _MouseState = MouseState.Hover
- End If
- OffSet = e.Y
- Invalidate()
- End Sub
- Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
- MyBase.OnMouseDown(e)
- If e.Button = MouseButtons.Left Then
- If ThumbGPath.IsVisible(e.Location) Then
- OffSet = e.Y
- ThumbClick = True
- ElseIf TrackGPath.IsVisible(e.Location) Then
- TrackClick = True
- End If
- End If
- Invalidate()
- End Sub
- Protected Overrides Sub OnMouseClick(e As MouseEventArgs)
- MyBase.OnMouseClick(e)
- If TrackGPath.IsVisible(e.Location) Then
- If e.Y < ThumbY Then 'Über Thumb Click!
- ThumbY -= BackPercentage(Track.Height - ThumbSize, LargeChange)
- Value = Percentage(ThumbY, Track.Height - ThumbSize)
- RaiseEvent Scroll()
- ElseIf e.Y > ThumbY + ThumbSize Then 'Unter Thumb Click!
- If ThumbY > Track.Height Then
- ThumbY = Track.Height - ThumbSize
- Value = Percentage(ThumbY, Track.Height - ThumbSize)
- RaiseEvent Scroll()
- Else
- ThumbY += BackPercentage(Track.Height - ThumbSize, LargeChange)
- Value = Percentage(ThumbY, Track.Height - ThumbSize)
- RaiseEvent Scroll()
- End If
- End If
- End If
- Invalidate()
- End Sub
- Protected Overrides Sub OnMouseWheel(e As MouseEventArgs)
- MyBase.OnMouseWheel(e)
- Select Case e.Delta
- Case Is <= -1 'Runterscrollen
- If ThumbY < Minimum Then
- ThumbY = Minimum
- Else
- ThumbY -= BackPercentage(Track.Height - ThumbSize, SmallChange)
- Value = Percentage(ThumbY, Track.Height - ThumbSize)
- RaiseEvent Scroll()
- End If
- Case Is >= 1 'Hochscrollen
- If ThumbY > Track.Height - ThumbSize Then
- ThumbY = Track.Height - ThumbSize
- Else
- ThumbY += BackPercentage(Track.Height - ThumbSize, SmallChange)
- Value = Percentage(ThumbY, Track.Height - ThumbSize)
- RaiseEvent Scroll()
- End If
- End Select
- Invalidate()
- End Sub
- Protected Overrides Sub OnMouseLeave(e As EventArgs)
- MyBase.OnMouseLeave(e)
- ThumbClick = False
- TrackClick = False
- _MouseState = MouseState.None
- Invalidate()
- End Sub
- Protected Overrides Sub OnMouseUp(e As MouseEventArgs)
- MyBase.OnMouseUp(e)
- ThumbClick = False
- TrackClick = False
- _MouseState = MouseState.None
- Invalidate()
- End Sub
- #End Region
- #Region "Keyboard"
- Protected Overrides Sub OnKeyDown(e As KeyEventArgs)
- MyBase.OnKeyDown(e)
- Select Case e.KeyCode
- Case Keys.PageUp '- LargeChange
- If ThumbY <= Minimum Then
- ThumbY = Minimum
- Else
- ThumbY -= BackPercentage(Track.Height - ThumbSize, LargeChange)
- Value = Percentage(ThumbY, Track.Height - ThumbSize)
- RaiseEvent Scroll()
- End If
- Case Keys.PageDown '+ LargeChange
- If ThumbY >= Track.Height - ThumbSize Then
- ThumbY = Track.Height - ThumbSize
- Else
- ThumbY += BackPercentage(Track.Height - ThumbSize, LargeChange)
- Value = Percentage(ThumbY, Track.Height - ThumbSize)
- RaiseEvent Scroll()
- End If
- Case Keys.Up '- SmallChange
- If ThumbY <= Minimum Then
- ThumbY = Minimum
- Else
- ThumbY -= BackPercentage(Track.Height - ThumbSize, SmallChange)
- Value = Percentage(ThumbY, Track.Height - ThumbSize)
- RaiseEvent Scroll()
- End If
- Case Keys.Down '+ SmallChange
- If ThumbY >= Track.Height - ThumbSize Then
- ThumbY = Track.Height - ThumbSize
- Else
- ThumbY += BackPercentage(Track.Height - ThumbSize, SmallChange)
- Value = Percentage(ThumbY, Track.Height - ThumbSize)
- RaiseEvent Scroll()
- End If
- End Select
- Invalidate()
- End Sub
- #End Region
- #Region "OnPaint"
- Protected Overrides Sub OnPaint(e As PaintEventArgs)
- MyBase.OnPaint(e)
- ThumbSize = Maximum - Minimum
- #Region "GParts"
- TrackGPath.Reset()
- TrackGPath.AddRectangle(Track)
- ThumbGPath.Reset()
- ThumbGPath.AddRectangle(Thumb)
- #End Region
- With e.Graphics
- Select Case _MouseState
- Case MouseState.None
- Size = New Size(6, Height)
- Track = New Rectangle(0, 0, 6, Height)
- .FillRectangle(New SolidBrush(TrackColor), Track)
- Thumb = New Rectangle(0, ThumbY, Width, ThumbSize)
- .FillRectangle(New SolidBrush(ThumbColor), Thumb)
- Case MouseState.Hover
- Size = New Size(12, Height)
- Track = New Rectangle(0, 0, 12, Height)
- .FillRectangle(New SolidBrush(TrackColor), Track)
- Thumb = New Rectangle(0, ThumbY, Width, ThumbSize)
- .FillRectangle(New SolidBrush(ThumbHoverColor), Thumb)
- Case MouseState.Click
- Size = New Size(12, Height)
- Track = New Rectangle(0, 0, 12, Height)
- .FillRectangle(New SolidBrush(TrackColor), Track)
- Thumb = New Rectangle(0, ThumbY, Width, ThumbSize)
- .FillRectangle(New SolidBrush(ThumbHoverColor), Thumb)
- End Select
- End With
- End Sub
- #End Region
- #Region "ScrollBaas Functions" 'With Integer-Division
- Private Function Percentage(Value As Integer, Maximum As Integer) As Integer
- Return (Value * _Maximum) \ Maximum
- End Function
- Private Function BackPercentage(Maximum As Integer, Change As Integer) As Integer
- Return (Maximum * _Maximum) \ Change
- End Function
- #End Region
- End Class
HorizontalScrollBaas ->
VB.NET-Quellcode
- ' ___ ___ ___ ___ _ _ ___ _ _ ___
- ' / __|/ __| _ \/ _ \| | | | | _ ) /_\ /_\ / __|
- ' \__ \ (__| / (_) | |__| |__| _ \/ _ \ / _ \\__ \
- ' |___/\___|_|_\\___/|____|____|___/_/ \_\/_/ \_\___/
- ' HorizontalScrollBaas v0.0.3 Beta
- ' 2021 by Baa$ aka Huchti591
- ' Helpers Credits on vb-paradise.de From RodFromGermany & Takafusa
- Option Strict On
- Imports System.ComponentModel
- Imports System.Drawing.Drawing2D
- Public Class HorizontalScrollBaas
- Inherits Control
- #Region "Events"
- Public Event Scroll()
- Public Event ValueChanged(sender As HorizontalScrollBaas, value As Integer)
- #End Region
- Sub New()
- SetStyle(ControlStyles.AllPaintingInWmPaint, True)
- SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
- SetStyle(ControlStyles.ResizeRedraw, True)
- SetStyle(ControlStyles.UserPaint, True)
- UpdateStyles()
- Size = New Size(150, 6)
- End Sub
- #Region "Deklaration"
- #Region "Rectangles"
- Private Track As Rectangle
- Private Thumb As Rectangle
- #End Region
- #Region "GraphicParts"
- Private ThumbGPath As New GraphicsPath
- Private TrackGPath As New GraphicsPath
- #End Region
- #Region "Integers"
- Private ThumbSize As Integer
- Private ThumbX As Integer
- Private OffSet As Integer
- #End Region
- #Region "Clicks"
- Private TrackClick As Boolean = False
- Private ThumbClick As Boolean = False
- #End Region
- #End Region
- #Region "Propertys"
- #Region "Main"
- Private _Value As Integer
- <Category("ScrollBar"), Description("It is used to Obtain or set a value in a ScrollBaas Control that indicates a ScrollBox's current Position.")>
- Public Property Value As Integer
- Get
- Return _Value
- End Get
- Set(value As Integer)
- _Value = value
- If _Value >= Maximum Then
- _Value = Maximum
- ElseIf _Value <= Minimum Then
- _Value = Minimum
- End If
- RaiseEvent ValueChanged(Me, value)
- Invalidate()
- End Set
- End Property
- Private _Minimum As Integer = 0
- <Category("ScrollBar"), Description("It is used to get or set the Minimum value of the ScrollBaas Control. By Default it is 0.")>
- Public Property Minimum As Integer
- Get
- Return _Minimum
- End Get
- Set(value As Integer)
- _Minimum = value
- Invalidate()
- End Set
- End Property
- Private _Maximum As Integer = 100
- <Category("ScrollBar"), Description("It is used to set or get the Maximum value of the ScrollBaas Control. The Default is 100.")>
- Public Property Maximum As Integer
- Get
- Return _Maximum
- End Get
- Set(value As Integer)
- _Maximum = value
- Invalidate()
- End Set
- End Property
- Private _SmallChange As Integer = 1
- <Category("ScrollBar"), Description("It is used to Obtain or set a Value that will be added or Subtracted from the Property of the ScrollBaas Control when the ScrollBaas is moved a short Distance.")>
- Public Property SmallChange As Integer
- Get
- Return _SmallChange
- End Get
- Set(value As Integer)
- _SmallChange = value
- Invalidate()
- End Set
- End Property
- Private _LargeChange As Integer = 10
- <Category("ScrollBar"), Description("It is used to Obtain or set a Value that will be added or Subtracted from the Property of the ScrollBaas Control when the ScrollBaas is moved a large Distance.")>
- Public Property LargeChange As Integer
- Get
- Return _LargeChange
- End Get
- Set(value As Integer)
- _LargeChange = value
- Invalidate()
- End Set
- End Property
- #End Region
- #Region "Style"
- Private _TrackColor As Color = Color.FromArgb(180, 216, 216, 216)
- <Category("Style"), Description("Change the Color of the Track.")>
- Public Property TrackColor As Color
- Get
- Return _TrackColor
- End Get
- Set(value As Color)
- _TrackColor = value
- Invalidate()
- End Set
- End Property
- Private _ThumbColor As Color = Color.FromArgb(180, 216, 216, 31)
- <Category("Style"), Description("Change the Color of the Thumb.")>
- Public Property ThumbColor As Color
- Get
- Return _ThumbColor
- End Get
- Set(value As Color)
- _ThumbColor = value
- Invalidate()
- End Set
- End Property
- Private _ThumbHoverColor As Color = Color.FromArgb(180, 225, 188, 0)
- <Category("Style"), Description("Change the Color of Thumb when the Mouse is on it.")>
- Public Property ThumbHoverColor As Color
- Get
- Return _ThumbHoverColor
- End Get
- Set(value As Color)
- _ThumbHoverColor = value
- Invalidate()
- End Set
- End Property
- #End Region
- #End Region
- #Region "Mouse"
- Private Enum MouseState
- Hover
- Click
- None
- End Enum
- Private _MouseState As MouseState = MouseState.None
- Protected Overrides Sub OnMouseMove(e As MouseEventArgs)
- MyBase.OnMouseMove(e)
- If ThumbClick = True Then
- If ThumbX < Minimum Then
- ThumbX = Minimum
- ElseIf ThumbX > Track.Width - ThumbSize Then
- ThumbX = Track.Width - ThumbSize
- Else
- ThumbX = ThumbX + (e.X - OffSet)
- Value = Percentage(ThumbX, Track.Width - ThumbSize)
- RaiseEvent Scroll()
- End If
- End If
- If TrackGPath.IsVisible(e.Location) OrElse ThumbGPath.IsVisible(e.Location) Then
- _MouseState = MouseState.Hover
- End If
- OffSet = e.X
- Invalidate()
- End Sub
- Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
- MyBase.OnMouseDown(e)
- If e.Button = MouseButtons.Left Then
- If ThumbGPath.IsVisible(e.Location) Then
- OffSet = e.X
- ThumbClick = True
- ElseIf TrackGPath.IsVisible(e.Location) Then
- TrackClick = True
- End If
- End If
- Invalidate()
- End Sub
- Protected Overrides Sub OnMouseClick(e As MouseEventArgs)
- MyBase.OnMouseClick(e)
- If TrackGPath.IsVisible(e.Location) Then
- If e.X < ThumbX Then 'Über Thumb Click!
- ThumbX -= BackPercentage(Track.Width - ThumbSize, LargeChange)
- Value = Percentage(ThumbX, Track.Width - ThumbSize)
- RaiseEvent Scroll()
- ElseIf e.X > ThumbX + ThumbSize Then 'Unter Thumb Click!
- If ThumbX > Track.Width Then
- ThumbX = Track.Width - ThumbSize
- Value = Percentage(ThumbX, Track.Width - ThumbSize)
- RaiseEvent Scroll()
- Else
- ThumbX += BackPercentage(Track.Width - ThumbSize, LargeChange)
- Value = Percentage(ThumbX, Track.Width - ThumbSize)
- RaiseEvent Scroll()
- End If
- End If
- End If
- Invalidate()
- End Sub
- Protected Overrides Sub OnMouseWheel(e As MouseEventArgs)
- MyBase.OnMouseWheel(e)
- Select Case e.Delta
- Case Is <= -1 'Runterscrollen
- If ThumbX < Minimum Then
- ThumbX = Minimum
- Else
- ThumbX -= BackPercentage(Track.Width - ThumbSize, SmallChange)
- Value = Percentage(ThumbX, Track.Width - ThumbSize)
- RaiseEvent Scroll()
- End If
- Case Is >= 1 'Hochscrollen
- If ThumbX > Track.Width - ThumbSize Then
- ThumbX = Track.Width - ThumbSize
- Else
- ThumbX += BackPercentage(Track.Width - ThumbSize, SmallChange)
- Value = Percentage(ThumbX, Track.Width - ThumbSize)
- RaiseEvent Scroll()
- End If
- End Select
- Invalidate()
- End Sub
- Protected Overrides Sub OnMouseLeave(e As EventArgs)
- MyBase.OnMouseLeave(e)
- ThumbClick = False
- TrackClick = False
- _MouseState = MouseState.None
- Invalidate()
- End Sub
- Protected Overrides Sub OnMouseUp(e As MouseEventArgs)
- MyBase.OnMouseUp(e)
- ThumbClick = False
- TrackClick = False
- _MouseState = MouseState.None
- Invalidate()
- End Sub
- #End Region
- #Region "Keyboard"
- Protected Overrides Sub OnKeyDown(e As KeyEventArgs)
- MyBase.OnKeyDown(e)
- Select Case e.KeyCode
- Case Keys.PageUp '- LargeChange
- If ThumbX <= Minimum Then
- ThumbX = Minimum
- Else
- ThumbX -= BackPercentage(Track.Width - ThumbSize, LargeChange)
- Value = Percentage(ThumbX, Track.Width - ThumbSize)
- RaiseEvent Scroll()
- End If
- Case Keys.PageDown '+ LargeChange
- If ThumbX >= Track.Width - ThumbSize Then
- ThumbX = Track.Width - ThumbSize
- Else
- ThumbX += BackPercentage(Track.Width - ThumbSize, LargeChange)
- Value = Percentage(ThumbX, Track.Width - ThumbSize)
- RaiseEvent Scroll()
- End If
- Case Keys.Up '- SmallChange
- If ThumbX <= Minimum Then
- ThumbX = Minimum
- Else
- ThumbX -= BackPercentage(Track.Width - ThumbSize, SmallChange)
- Value = Percentage(ThumbX, Track.Width - ThumbSize)
- RaiseEvent Scroll()
- End If
- Case Keys.Down '+ SmallChange
- If ThumbX >= Track.Width - ThumbSize Then
- ThumbX = Track.Width - ThumbSize
- Else
- ThumbX += BackPercentage(Track.Width - ThumbSize, SmallChange)
- Value = Percentage(ThumbX, Track.Width - ThumbSize)
- RaiseEvent Scroll()
- End If
- End Select
- Invalidate()
- End Sub
- #End Region
- #Region "OnPaint"
- Protected Overrides Sub OnPaint(e As PaintEventArgs)
- MyBase.OnPaint(e)
- ThumbSize = Maximum - Minimum
- #Region "GParts"
- TrackGPath.Reset()
- TrackGPath.AddRectangle(Track)
- ThumbGPath.Reset()
- ThumbGPath.AddRectangle(Thumb)
- #End Region
- With e.Graphics
- Select Case _MouseState
- Case MouseState.None
- Size = New Size(Width, 6)
- Track = New Rectangle(0, 0, Width, 6)
- .FillRectangle(New SolidBrush(TrackColor), Track)
- Thumb = New Rectangle(ThumbX, 0, ThumbSize, Height)
- .FillRectangle(New SolidBrush(ThumbColor), Thumb)
- Case MouseState.Hover
- Size = New Size(Width, 12)
- Track = New Rectangle(0, 0, Width, 12)
- .FillRectangle(New SolidBrush(TrackColor), Track)
- Thumb = New Rectangle(ThumbX, 0, ThumbSize, Height)
- .FillRectangle(New SolidBrush(ThumbHoverColor), Thumb)
- Case MouseState.Click
- Size = New Size(Width, 12)
- Track = New Rectangle(0, 0, Width, 12)
- .FillRectangle(New SolidBrush(TrackColor), Track)
- Thumb = New Rectangle(ThumbX, 0, ThumbSize, Height)
- .FillRectangle(New SolidBrush(ThumbHoverColor), Thumb)
- End Select
- End With
- End Sub
- #End Region
- #Region "ScrollBaas Functions" 'With Integer-Division
- Private Function Percentage(Value As Integer, Maximum As Integer) As Integer
- Return (Value * _Maximum) \ Maximum
- End Function
- Private Function BackPercentage(Maximum As Integer, Change As Integer) As Integer
- Return (Maximum * _Maximum) \ Change
- End Function
- #End Region
- End Class
Eigentlich hatte ich vor die ScrollBaas noch mit RoundEdges und Transparents zuversehen... Allerdings habe ich mich dazu entschieden eine mehr oder weniger Kleines Framework zuschreiben... Weil es Wesentlich schwieriger für mich ist in den Windows Standart controls mit ScrollBars meine ScrollBaas zu implementieren als eigene Lists&Controls zuschreiben... was auch am besten lösbar für RoundEdges& Transparents etc.. pp ist.. Leider ist mein Laptop Kaputt & ich im moment bei meiner Arbeit hart gefordert aber in Ferner zukunft werde ich denke ich hier irgendwo im Forum ein Framework von mir Publizieren... Damit sage ich in diesem Sinne ein Wundervolles Danke & REINGEHAUEN! Euer Baa$ aka Huchti591