SegmentedControlItem
From Xojo Documentation
 |
This item was deprecated in version 2019r2. Please use Segment as a replacement. |
Class (inherits from RectControl)
New in 2010r4
A segment of a SegmentedControl.
| Properties | ||||||
|
Notes
You access the segments of a SegmentedControl from the control’s Items() property. It requires a parameter that specifies the segment that you want to address. For example, the following code selects all the segments in a loop. For each segment, it uses the Selected property to determine whether the segment is selected.
// count down to avoid re-evaluating the Ubound all the time
For i As Integer = SegmentedControl1.Items.Ubound DownTo 0
// get the reference to the segment
Dim s As SegmentedControlItem = SegmentedControl1.SegmentAt(i)
// see if the segment was selected
If s.Selected Then
// it is selected so increase this segment in size
s.Width = s.Width + 2
End If
Next
// make sure the segmented control knows to resizes its drawing boundaries or you can get weird effects
SegmentedControl1.ResizeSegmentsToFit
For i As Integer = SegmentedControl1.Items.Ubound DownTo 0
// get the reference to the segment
Dim s As SegmentedControlItem = SegmentedControl1.SegmentAt(i)
// see if the segment was selected
If s.Selected Then
// it is selected so increase this segment in size
s.Width = s.Width + 2
End If
Next
// make sure the segmented control knows to resizes its drawing boundaries or you can get weird effects
SegmentedControl1.ResizeSegmentsToFit
See Also
SegmentedControl control.