New topic: With ... End With
<http://forums.realsoftware.com/viewtopic.php?t=45654> Page 1 of 1 [ 1 post ] Previous topic | Next topic Author Message TomazVDaSilva Post subject: With ... End WithPosted: Sat Oct 20, 2012 3:49 pm Joined: Thu Dec 29, 2011 6:46 pm Posts: 187 Location: Edmonton, AB, Canada Is there anything as "With ... End With", how should re-write this code in RealBasic ? Dim n As Long If Rnd * 32 > 1 Then Exit Sub n = getPt If n = ptMax Then Exit Sub With pt(n) v = True t = 0 x = Int(Rnd * 480) + 16 y = -16 dy = 0 r = 16 p1 = 5 End With _________________ Regards, TomazVDaSilva Clean Code: Robert C. Martin It is not the language that makes programs appear simple. It is the programmer that make the language appear simple! Top Display posts from previous: All posts1 day7 days2 weeks1 month3 months6 months1 year Sort by AuthorPost timeSubject AscendingDescending Page 1 of 1 [ 1 post ] -- Over 1500 classes with 29000 functions in one REALbasic plug-in collection. The Monkeybread Software Realbasic Plugin v9.3. http://www.monkeybreadsoftware.de/realbasic/plugins.shtml [email protected]
