Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations TugboatEng on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!
obj color problem..
- Thread starter keeyean
- Start date
You can use (4 + q) in your formula, or include and If statement:
Code:
For q = 0 To 3
If q = 3 Then
SolidObjR.Color = 7
TextObj.Color = 7
Else
SolidObjR.Color = 1 + q
TextObj.Color = 1 + q
End If
Next q
DimensionalSolutions@Core.com
While I welcome e-mail messages, please post all thread activity in these forums for the benefit of all members.Hi,
No way is right but I'd have gone this way
for q = 0 to 2 'Note 2 not 3
SolidObjR.Color = 1 + q
TextObj.Color = 1 + q
next q
SolidObjR.Color = 7
TextObj.Color = 7
When the q loop is over ie q=2 the colors are changed
to white (7) as though q had gone one more loop. It should be slightly faster than the previous example (which was very good).
The only draw back is if q needs to be 3 later on in the program (ie its value after it leaves the loop is required further in the code) if it is then add q=3 after the Next q instruction.
Regards
No way is right but I'd have gone this way
for q = 0 to 2 'Note 2 not 3
SolidObjR.Color = 1 + q
TextObj.Color = 1 + q
next q
SolidObjR.Color = 7
TextObj.Color = 7
When the q loop is over ie q=2 the colors are changed
to white (7) as though q had gone one more loop. It should be slightly faster than the previous example (which was very good).
The only draw back is if q needs to be 3 later on in the program (ie its value after it leaves the loop is required further in the code) if it is then add q=3 after the Next q instruction.
Regards
- Status
Similar threads
- Locked
- Question