Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.basic.visual.misc > #2146

Re: Win8 & VB6

Cross-posted to 2 groups.

Show all headers | View raw

:: 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 :)

Back to comp.lang.basic.visual.misc | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread

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