Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > comp.lang.basic.visual.misc > #2149
| From | GS <gs@somewhere.net> |
|---|---|
| Newsgroups | comp.lang.basic.visual.misc, microsoft.public.vb.general.discussion |
| Subject | Re: Win8 & VB6 |
| Date | 2014-08-29 07:55 -0400 |
| Organization | A noiseless patient Spider |
| Message-ID | <ltppn7$cjt$1@dont-email.me> (permalink) |
| References | <lto8fv$jna$1@dont-email.me> <20140829095319.000000c1@albasani.net> <ltphka$n69$1@dont-email.me> <20140829125948.00000dd7@albasani.net> |
Cross-posted to 2 groups.
>>> On Fri, 29 Aug 2014 05:37:10 -0400 >>> (comp.lang.basic.visual.misc,microsoft.public.vb.general.discussion) >>> <ltphka$n69$1@dont-email.me> >>> GS <gs@somewhere.net> wrote: > >>> it as a semaphore; for example >>> >>> Sub Form_Activate() >>> Static bFirstTime As Boolean >>> >>> If Not bFirstTime Then >>> bFirstTime = True >>> txtLicenseKey.SetFocus >>> End If >>> End Sub >> >> Thank you.., that's a great idea! As it happens, the code is about >> 10 years old but the Form has been revised from a multi-use >> component to > > just in case, change the code this way > > Sub Form_Activate() > Static bInitFlag As Boolean > > ' enter only once > If bInitFlag Then Exit Sub > bInitFlag = True > > ' add here your one time code > txtLicenseKey.SetFocus > '....more code.... > End Sub > > > not that the other code is wrong, but I think the above is cleaner > and avoids wrapping the "one time" code inside the "if" block :) Either example still evals an If...Then so I'm going to say that 'cleaner' to me means the 1st example because it more concisely does the job!<g>... This example is better (IMO) where the code that follows the check is lengthy, in which case I prefer to exit early. -- Garry Free usenet access at http://www.eternal-september.org Classic VB Users Regroup! comp.lang.basic.visual.misc microsoft.public.vb.general.discussion
Back to comp.lang.basic.visual.misc | Previous | Next — Previous in thread | Find similar | Unroll thread
Win8 & VB6 GS <gs@somewhere.net> - 2014-08-28 17:55 -0400
Re: Win8 & VB6 john@jeasonNoSpam.cix.co.uk (John K.Eason) - 2014-08-28 23:58 +0100
Re: Win8 & VB6 GS <gs@somewhere.net> - 2014-08-28 20:46 -0400
Re: Win8 & VB6 GS <gs@somewhere.net> - 2014-08-28 20:49 -0400
Re: Win8 & VB6 GS <gs@somewhere.net> - 2014-08-28 20:58 -0400
Re: Win8 & VB6 john@jeasonNoSpam.cix.co.uk (John K.Eason) - 2014-08-29 12:16 +0100
Re: Win8 & VB6 GS <gs@somewhere.net> - 2014-08-29 07:42 -0400
Re: Win8 & VB6 ObiWan <obiwan@mvps.org> - 2014-08-29 09:53 +0200
Re: Win8 & VB6 GS <gs@somewhere.net> - 2014-08-29 05:37 -0400
Re: Win8 & VB6 GS <gs@somewhere.net> - 2014-08-29 05:44 -0400
Re: Win8 & VB6 ObiWan <obiwan@mvps.org> - 2014-08-29 12:59 +0200
Re: Win8 & VB6 GS <gs@somewhere.net> - 2014-08-29 07:55 -0400
csiph-web