Hello Listers

I am looking for a way of adding Line style on a form. Basically, the
user will choose the line width (from combo) and the line width (on
the form) changes accordingly.

This will be used with another programs api (which I have done in the
past) - Mapinfo.

I look forward for your response. If you need more info, please let
me know.

Faisal...

Guys

I managed to solve the problem using the same methodology as Greg
Wilson's Color Palette example.
http://groups.google.co.uk/group/mic...25fde7683f983b


Here is how i did it (in 4 Steps):
STEP 1: Copy and paste the following codes in a Module (under
subroutine showform replace the name of the created form
appropriately):
==========================================================
Sub MakeLineStyleSelection()
Dim i, ii, iii
Dim UFrm As Object
Dim Frm, FrmLn
Dim CBox

Set UFrm = ThisWorkbook.VBProject.VBComponents.Add(3)
With UFrm
.Properties("Height") = 180
.Properties("Width") = 110
.Properties("Caption") = "Line Style Selection"

For i = 0 To 26
Set FrmLn = UFrm.designer.Controls.Add("Forms.Frame.1")
With FrmLn
.Left = 10 + i
.Top = 24
.Height = 1
.Width = 1
.BackColor = RGB(0, 0, 0)
.ForeColor = RGB(0, 0, 0)
.SpecialEffect = 0
.Caption = ""
.ControlTipText = "Part" + Str(i)
.BorderStyle = 0
.Enabled = True
End With
Next i

Set Frm = .designer.Controls.Add("Forms.Frame.1")
With Frm
.Caption = "Line Styles"
.ForeColor = RGB(20, 20, 100)
.Enabled = True
.Top = 35
.Left = 10
.Width = 87
.Height = 115
End With
End With


For i = 0 To 26
Set Ctrl = Frm.Controls.Add("Forms.Frame.1")
With Ctrl
.Left = 10 + i
.Top = 20
.Height = 1
.Width = 1
.BackColor = RGB(0, 0, 0)
.ForeColor = RGB(0, 0, 0)
.SpecialEffect = 0
.Caption = ""
.ControlTipText = i
.BorderStyle = 0
.Enabled = True
End With
Next i
Set Ctrl = Frm.Controls.Add("Forms.OptionButton.1")
With Ctrl
.Left = 40
.Top = 12
.Caption = "1"
.BackStyle = 0
.Value = True
End With



For i = 0 To 26
Set Ctrl = Frm.Controls.Add("Forms.Frame.1")
If i Mod 2 = 0 Then
With Ctrl
.Left = 10 + i
.Top = 30
.Height = 1
.Width = 1
.BackColor = RGB(0, 0, 0)
.ForeColor = RGB(0, 0, 0)
.BorderColor = RGB(0, 0, 0)
.SpecialEffect = 0
.Caption = ""
.ControlTipText = i + 27
.BorderStyle = 0
.Enabled = True
End With
Else
With Ctrl
.Left = 10 + i
.Top = 30
.Height = 1
.Width = 1
.BackColor = UFrm.designer.BackColor
.ForeColor = UFrm.designer.BackColor
.BorderColor = UFrm.designer.BackColor
.SpecialEffect = 0
.Caption = ""
.ControlTipText = i + 27
.BorderStyle = 0
.Enabled = True
End With
End If
Next i
Set Ctrl = Frm.Controls.Add("Forms.OptionButton.1")
With Ctrl
.Left = 40
.Top = 22
.Caption = "2"
.BackStyle = 0
End With

For i = 0 To 26
Set Ctrl = Frm.Controls.Add("Forms.Frame.1")
If (i - 2) Mod 4 = 0 Or (i - 3) Mod 4 = 0 Then
With Ctrl
.Left = 10 + i
.Top = 40
.Height = 1
.Width = 1
.BackColor = UFrm.designer.BackColor
.ForeColor = UFrm.designer.BackColor
.BorderColor = UFrm.designer.BackColor
.SpecialEffect = 0
.Caption = ""
.ControlTipText = i + 53
.BorderStyle = 0
.Enabled = True
End With
Else
With Ctrl
.Left = 10 + i
.Top = 40
.Height = 1
.Width = 1
.BackColor = RGB(0, 0, 0)
.ForeColor = RGB(0, 0, 0)
.BorderColor = RGB(0, 0, 0)
.SpecialEffect = 0
.Caption = ""
.ControlTipText = i + 53
.BorderStyle = 0
.Enabled = True
End With
End If
Next i
Set Ctrl = Frm.Controls.Add("Forms.OptionButton.1")
With Ctrl
.Left = 40
.Top = 32
.Caption = "3"
.BackStyle = 0
End With

For i = 0 To 26
Mod_Val = i Mod 10
Set Ctrl = Frm.Controls.Add("Forms.Frame.1")
If Mod_Val = 0 Or Mod_Val = 1 Or Mod_Val = 4 Or Mod_Val = 5 Or
Mod_Val = 6 Or Mod_Val = 7 Then
With Ctrl
.Left = 10 + i
.Top = 50
.Height = 1
.Width = 1
.BackColor = RGB(0, 0, 0)
.ForeColor = RGB(0, 0, 0)
.BorderColor = RGB(0, 0, 0)
.SpecialEffect = 0
.Caption = ""
.ControlTipText = i + 79
.BorderStyle = 0
.Enabled = True
End With
Else
With Ctrl
.Left = 10 + i
.Top = 50
.Height = 1
.Width = 1
.BackColor = UFrm.designer.BackColor
.ForeColor = UFrm.designer.BackColor
.BorderColor = UFrm.designer.BackColor
.SpecialEffect = 0
.Caption = ""
.ControlTipText = i + 79
.BorderStyle = 0
.Enabled = True
End With
End If
Next i
Set Ctrl = Frm.Controls.Add("Forms.OptionButton.1")
With Ctrl
.Left = 40
.Top = 42
.Caption = "4"
.BackStyle = 0
End With

For i = 0 To 26
Set Ctrl = Frm.Controls.Add("Forms.Frame.1")
If i = 2 Or i = 3 Or i = 10 Or i = 11 Or i = 14 Or i = 15 Or i
= 22 Or i = 23 Then
With Ctrl
.Left = 10 + i
.Top = 60
.Height = 1
.Width = 1
.BackColor = UFrm.designer.BackColor
.ForeColor = UFrm.designer.BackColor
.BorderColor = UFrm.designer.BackColor
.SpecialEffect = 0
.Caption = ""
.ControlTipText = i + 105
.BorderStyle = 0
.Enabled = True
End With
Else
With Ctrl
.Left = 10 + i
.Top = 60
.Height = 1
.Width = 1
.BackColor = RGB(0, 0, 0)
.ForeColor = RGB(0, 0, 0)
.BorderColor = RGB(0, 0, 0)
.SpecialEffect = 0
.Caption = ""
.ControlTipText = i + 105
.BorderStyle = 0
.Enabled = True

End With
End If
Next i
Set Ctrl = Frm.Controls.Add("Forms.OptionButton.1")
With Ctrl
.Left = 40
.Top = 52
.Caption = "5"
.BackStyle = 0
End With
End Sub

Sub showform()
UserForm3.Show

End Sub

======================================

STEP 2: Run the MakeLineStyleSelection Subroutine

STEP 3: Paste the following Code under the Code Pane for the created
form (this case assumes that the form is UserForm3, so replace
appropriately):
======================================
Private Sub OptionButton1_Click()
Dim MyContrl As Control
For i = 0 To 26
For Each MyContrl In Controls
If MyContrl.ControlTipText = "Part" + Str(i) Then
Set Ctrl = MyContrl
End If
Next
With Ctrl
.BackColor = RGB(0, 0, 0)
.ForeColor = RGB(0, 0, 0)
.SpecialEffect = 0
.Caption = ""
.BorderStyle = 0
.Enabled = True
End With
Next i

End Sub

Private Sub OptionButton2_Click()
Dim MyContrl As Control
For i = 0 To 26
ii = i + 1

For Each MyContrl In Controls
If MyContrl.ControlTipText = "Part" + Str(i) Then
Set Ctrl = MyContrl
End If
Next
If i Mod 2 = 0 Then
With Ctrl
.BackColor = RGB(0, 0, 0)
.ForeColor = RGB(0, 0, 0)
.BorderColor = RGB(0, 0, 0)
.SpecialEffect = 0
.Caption = ""
.BorderStyle = 0
.Enabled = True
End With
Else
With Ctrl
.BackColor = UserForm3.BackColor
.ForeColor = UserForm3.BackColor
.BorderColor = UserForm3.BackColor
.SpecialEffect = 0
.Caption = ""
.BorderStyle = 0
.Enabled = True
End With
End If
Next i

End Sub
Private Sub OptionButton3_Click()
Dim MyContrl As Control

For i = 0 To 26
ii = i + 1

For Each MyContrl In Controls
If MyContrl.ControlTipText = "Part" + Str(i) Then
Set Ctrl = MyContrl
End If
Next
If (i - 2) Mod 4 = 0 Or (i - 3) Mod 4 = 0 Then
With Ctrl
.BackColor = UserForm3.BackColor
.ForeColor = UserForm3.BackColor
.BorderColor = UserForm3.BackColor
.SpecialEffect = 0
.BorderStyle = 0
.Enabled = True
End With
Else
With Ctrl
.BackColor = RGB(0, 0, 0)
.ForeColor = RGB(0, 0, 0)
.BorderColor = RGB(0, 0, 0)
.SpecialEffect = 0
.BorderStyle = 0
.Enabled = True
End With
End If
Next i
End Sub
Private Sub OptionButton4_Click()
Dim MyContrl As Control

For i = 0 To 26
ii = i + 1
For Each MyContrl In Controls
If MyContrl.ControlTipText = "Part" + Str(i) Then
Set Ctrl = MyContrl
End If
Next
Mod_Val = i Mod 10
If Mod_Val = 0 Or Mod_Val = 1 Or Mod_Val = 4 Or Mod_Val = 5 Or
Mod_Val = 6 Or Mod_Val = 7 Then
With Ctrl
.BackColor = RGB(0, 0, 0)
.ForeColor = RGB(0, 0, 0)
.BorderColor = RGB(0, 0, 0)
.SpecialEffect = 0
.BorderStyle = 0
.Enabled = True
End With
Else
With Ctrl
.BackColor = UserForm3.BackColor
.ForeColor = UserForm3.BackColor
.BorderColor = UserForm3.BackColor
.SpecialEffect = 0
.BorderStyle = 0
.Enabled = True
End With
End If
Next i
End Sub
Private Sub OptionButton5_Click()
Dim MyContrl As Control
For i = 0 To 26
ii = i + 1
For Each MyContrl In Controls
If MyContrl.ControlTipText = "Part" + Str(i) Then
Set Ctrl = MyContrl
End If
Next

If i = 2 Or i = 3 Or i = 10 Or i = 11 Or i = 14 Or i = 15 Or i
= 22 Or i = 23 Then
With Ctrl
.BackColor = UserForm3.BackColor
.ForeColor = UserForm3.BackColor
.BorderColor = UserForm3.BackColor
.SpecialEffect = 0
.BorderStyle = 0
.Enabled = True
End With
Else
With Ctrl
.BackColor = RGB(0, 0, 0)
.ForeColor = RGB(0, 0, 0)
.BorderColor = RGB(0, 0, 0)
.SpecialEffect = 0
.BorderStyle = 0
.Enabled = True

End With
End If
Next i
End Sub
=================================

STEP 4: Run subroutine ShowForm


Thanks Greg.

Faisal...

On Oct 26, 6:20 pm, faisalmooraby.subscript...@googlemail.com wrote:
> Hello Listers
>
> I am looking for a way of adding Line style on a form. Basically, the
> user will choose the line width (from combo) and the line width (on
> the form) changes accordingly.
>
> This will be used with another programs api (which I have done in the
> past) - Mapinfo.
>
> I look forward for your response. If you need more info, please let
> me know.
>
> Faisal...

The current code does not include line width but this should not be
difficult (anymore)

Faisal...
On Oct 30, 4:34 pm, faisalmooraby.subscript...@googlemail.com wrote:
> Guys
>
> I managed to solve the problem using the same methodology as Greg
> Wilson's Color Palette example.http://groups.google.co.uk/group/mic....programming/b...
>
> Here is how i did it (in 4 Steps):
> STEP 1: Copy and paste the following codes in a Module (under
> subroutine showform replace the name of the created form
> appropriately):
> ==========================================================
> Sub MakeLineStyleSelection()
> Dim i, ii, iii
> Dim UFrm As Object
> Dim Frm, FrmLn
> Dim CBox
>
> Set UFrm = ThisWorkbook.VBProject.VBComponents.Add(3)
> With UFrm
> .Properties("Height") = 180
> .Properties("Width") = 110
> .Properties("Caption") = "Line Style Selection"
>
> For i = 0 To 26
> Set FrmLn = UFrm.designer.Controls.Add("Forms.Frame.1")
> With FrmLn
> .Left = 10 + i
> .Top = 24
> .Height = 1
> .Width = 1
> .BackColor = RGB(0, 0, 0)
> .ForeColor = RGB(0, 0, 0)
> .SpecialEffect = 0
> .Caption = ""
> .ControlTipText = "Part" + Str(i)
> .BorderStyle = 0
> .Enabled = True
> End With
> Next i
>
> Set Frm = .designer.Controls.Add("Forms.Frame.1")
> With Frm
> .Caption = "Line Styles"
> .ForeColor = RGB(20, 20, 100)
> .Enabled = True
> .Top = 35
> .Left = 10
> .Width = 87
> .Height = 115
> End With
> End With
>
> For i = 0 To 26
> Set Ctrl = Frm.Controls.Add("Forms.Frame.1")
> With Ctrl
> .Left = 10 + i
> .Top = 20
> .Height = 1
> .Width = 1
> .BackColor = RGB(0, 0, 0)
> .ForeColor = RGB(0, 0, 0)
> .SpecialEffect = 0
> .Caption = ""
> .ControlTipText = i
> .BorderStyle = 0
> .Enabled = True
> End With
> Next i
> Set Ctrl = Frm.Controls.Add("Forms.OptionButton.1")
> With Ctrl
> .Left = 40
> .Top = 12
> .Caption = "1"
> .BackStyle = 0
> .Value = True
> End With
>
> For i = 0 To 26
> Set Ctrl = Frm.Controls.Add("Forms.Frame.1")
> If i Mod 2 = 0 Then
> With Ctrl
> .Left = 10 + i
> .Top = 30
> .Height = 1
> .Width = 1
> .BackColor = RGB(0, 0, 0)
> .ForeColor = RGB(0, 0, 0)
> .BorderColor = RGB(0, 0, 0)
> .SpecialEffect = 0
> .Caption = ""
> .ControlTipText = i + 27
> .BorderStyle = 0
> .Enabled = True
> End With
> Else
> With Ctrl
> .Left = 10 + i
> .Top = 30
> .Height = 1
> .Width = 1
> .BackColor = UFrm.designer.BackColor
> .ForeColor = UFrm.designer.BackColor
> .BorderColor = UFrm.designer.BackColor
> .SpecialEffect = 0
> .Caption = ""
> .ControlTipText = i + 27
> .BorderStyle = 0
> .Enabled = True
> End With
> End If
> Next i
> Set Ctrl = Frm.Controls.Add("Forms.OptionButton.1")
> With Ctrl
> .Left = 40
> .Top = 22
> .Caption = "2"
> .BackStyle = 0
> End With
>
> For i = 0 To 26
> Set Ctrl = Frm.Controls.Add("Forms.Frame.1")
> If (i - 2) Mod 4 = 0 Or (i - 3) Mod 4 = 0 Then
> With Ctrl
> .Left = 10 + i
> .Top = 40
> .Height = 1
> .Width = 1
> .BackColor = UFrm.designer.BackColor
> .ForeColor = UFrm.designer.BackColor
> .BorderColor = UFrm.designer.BackColor
> .SpecialEffect = 0
> .Caption = ""
> .ControlTipText = i + 53
> .BorderStyle = 0
> .Enabled = True
> End With
> Else
> With Ctrl
> .Left = 10 + i
> .Top = 40
> .Height = 1
> .Width = 1
> .BackColor = RGB(0, 0, 0)
> .ForeColor = RGB(0, 0, 0)
> .BorderColor = RGB(0, 0, 0)
> .SpecialEffect = 0
> .Caption = ""
> .ControlTipText = i + 53
> .BorderStyle = 0
> .Enabled = True
> End With
> End If
> Next i
> Set Ctrl = Frm.Controls.Add("Forms.OptionButton.1")
> With Ctrl
> .Left = 40
> .Top = 32
> .Caption = "3"
> .BackStyle = 0
> End With
>
> For i = 0 To 26
> Mod_Val = i Mod 10
> Set Ctrl = Frm.Controls.Add("Forms.Frame.1")
> If Mod_Val = 0 Or Mod_Val = 1 Or Mod_Val = 4 Or Mod_Val =5 Or
> Mod_Val = 6 Or Mod_Val = 7 Then
> With Ctrl
> .Left = 10 + i
> .Top = 50
> .Height = 1
> .Width = 1
> .BackColor = RGB(0, 0, 0)
> .ForeColor = RGB(0, 0, 0)
> .BorderColor = RGB(0, 0, 0)
> .SpecialEffect = 0
> .Caption = ""
> .ControlTipText = i + 79
> .BorderStyle = 0
> .Enabled = True
> End With
> Else
> With Ctrl
> .Left = 10 + i
> .Top = 50
> .Height = 1
> .Width = 1
> .BackColor = UFrm.designer.BackColor
> .ForeColor = UFrm.designer.BackColor
> .BorderColor = UFrm.designer.BackColor
> .SpecialEffect = 0
> .Caption = ""
> .ControlTipText = i + 79
> .BorderStyle = 0
> .Enabled = True
> End With
> End If
> Next i
> Set Ctrl = Frm.Controls.Add("Forms.OptionButton.1")
> With Ctrl
> .Left = 40
> .Top = 42
> .Caption = "4"
> .BackStyle = 0
> End With
>
> For i = 0 To 26
> Set Ctrl = Frm.Controls.Add("Forms.Frame.1")
> If i = 2 Or i = 3 Or i = 10 Or i = 11 Or i = 14 Or i = 15 Or i
> = 22 Or i = 23 Then
> With Ctrl
> .Left = 10 + i
> .Top = 60
> .Height = 1
> .Width = 1
> .BackColor = UFrm.designer.BackColor
> .ForeColor = UFrm.designer.BackColor
> .BorderColor = UFrm.designer.BackColor
> .SpecialEffect = 0
> .Caption = ""
> .ControlTipText = i + 105
> .BorderStyle = 0
> .Enabled = True
> End With
> Else
> With Ctrl
> .Left = 10 + i
> .Top = 60
> .Height = 1
> .Width = 1
> .BackColor = RGB(0, 0, 0)
> .ForeColor = RGB(0, 0, 0)
> .BorderColor = RGB(0, 0, 0)
> .SpecialEffect = 0
> .Caption = ""
> .ControlTipText = i + 105
> .BorderStyle = 0
> .Enabled = True
>
> End With
> End If
> Next i
> Set Ctrl = Frm.Controls.Add("Forms.OptionButton.1")
> With Ctrl
> .Left = 40
> .Top = 52
> .Caption = "5"
> .BackStyle = 0
> End With
> End Sub
>
> Sub showform()
> UserForm3.Show
>
> End Sub
>
> ======================================
>
> STEP 2: Run the MakeLineStyleSelection Subroutine
>
> STEP 3: Paste the following Code under the Code Pane for the created
> form (this case assumes that the form is UserForm3, so replace
> appropriately):
> ======================================
> Private Sub OptionButton1_Click()
> Dim MyContrl As Control
> For i = 0 To 26
> For Each MyContrl In Controls
> If MyContrl.ControlTipText = "Part" + Str(i) Then
> Set Ctrl = MyContrl
> End If
> Next
> With Ctrl
> .BackColor = RGB(0, 0, 0)
> .ForeColor = RGB(0, 0, 0)
> .SpecialEffect = 0
> .Caption = ""
> .BorderStyle = 0
> .Enabled = True
> End With
> Next i
>
> End Sub
>
> Private Sub OptionButton2_Click()
> Dim MyContrl As Control
> For i = 0 To 26
> ii = i + 1
>
> For Each MyContrl In Controls
> If MyContrl.ControlTipText = "Part" + Str(i) Then
> Set Ctrl = MyContrl
> End If
> Next
> If i Mod 2 = 0 Then
> With Ctrl
> .BackColor = RGB(0, 0, 0)
> .ForeColor = RGB(0, 0, 0)
> .BorderColor = RGB(0, 0, 0)
> .SpecialEffect = 0
> .Caption = ""
> .BorderStyle = 0
> .Enabled = True
> End With
> Else
> With Ctrl
> .BackColor = UserForm3.BackColor
> .ForeColor = UserForm3.BackColor
> .BorderColor = UserForm3.BackColor
> .SpecialEffect = 0
> .Caption = ""
> .BorderStyle = 0
> .Enabled = True
> End With
> End If
> Next i
>
> End Sub
> Private Sub OptionButton3_Click()
> Dim MyContrl As Control
>
> For i = 0 To 26
> ii = i + 1
>
> For Each MyContrl In Controls
> If MyContrl.ControlTipText = "Part" + Str(i) Then
> Set Ctrl = MyContrl
> End If
> Next
> If (i - 2) Mod 4 = 0 Or (i - 3) Mod 4 = 0 Then
> With Ctrl
> .BackColor = UserForm3.BackColor
> .ForeColor = UserForm3.BackColor
> .BorderColor = UserForm3.BackColor
> .SpecialEffect = 0
> .BorderStyle = 0
> .Enabled = True
> End With
> Else
> With Ctrl
> .BackColor = RGB(0, 0, 0)
> .ForeColor = RGB(0, 0, 0)
> .BorderColor = RGB(0, 0, 0)
> .SpecialEffect = 0
> .BorderStyle = 0
> .Enabled = True
> End With
> End If
> Next i
> End Sub
> Private Sub OptionButton4_Click()
> Dim MyContrl As Control
>
> For i = 0 To 26
> ii = i + 1
> For Each MyContrl In Controls
> If MyContrl.ControlTipText = "Part" + Str(i) Then
> Set Ctrl = MyContrl
> End If
> Next
> Mod_Val = i Mod 10
> If Mod_Val = 0 Or Mod_Val = 1 Or Mod_Val = 4 Or Mod_Val =5 Or
> Mod_Val = 6 Or Mod_Val = 7 Then
> With Ctrl
> .BackColor = RGB(0, 0, 0)
> .ForeColor = RGB(0, 0, 0)
> .BorderColor = RGB(0, 0, 0)
> .SpecialEffect = 0
> .BorderStyle = 0
> ...
>
> read more »