469,890 Members | 2,319 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 469,890 developers. It's quick & easy.

Coding for Shape Opeartor

Dear Friends,
I have prepared a programme in Visual Basic for SHAPE OPERATOR.But my coding are changing the shape only.It does not changes the fill style of the shape tool .And it is not giving ant error msg. Anyhow anybody knows if there is any error in its please write to me.I am needed this programme for my assignment.

MY CODING :
Private Sub Command1_Click()
Dim i%
If (Option1.Value = True) Then
Shape1.Shape = 0
Shape1.Visible = True
End If
If (Option2.Value = True) Then
Shape1.Shape = 1
Shape1.Visible = True
End If
If (Option3.Value = True) Then
Shape1.Shape = 2
Shape1.Visible = True
End If
If (Option4.Value = True) Then
Shape1.Shape = 3
Shape1.Visible = True
End If
If (Option5.Value = True) Then
Shape1.Shape = 4
Shape1.Visible = True
End If
If (Option6.Value = True) Then
Shape1.Shape = 5
Shape1.Visible = True
End If
For i = 0 To (List1.ListCount) Step -1
If (List1.Selected(i) = True) Then
List1Fill.Style = (i)
End If
Next
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
List1.AddItem "solid"
List1.AddItem "Transparent"
List1.AddItem "HorizontalLine"
List1.AddItem "vertical Line"
List1.AddItem "Upward Diagonal"
List1.AddItem "Downward Diagonal"
List1.AddItem "Cross"
List1.AddItem "Diagonal Cross"
End Sub



Pl. reply to me
Sep 3 '06 #1
0 1726

Post your reply

Sign in to post your reply or Sign up for a free account.

Similar topics

reply views Thread by minjie | last post: by
144 posts views Thread by Natt Serrasalmus | last post: by
3 posts views Thread by PM | last post: by
reply views Thread by nets-rac | last post: by
reply views Thread by Salome Sato | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.