|
code
newsgroups
|
|||||||||||||||||||||||
|
|||||||||||||||||||||||
Within a *.exeAfter I create an .exe file of a program which includes within its menu
options a developers button, when clicked it will reveal a form can it then allow buttons which are hidden to the user to carry out functions? I could have two versions of the form but is there a better way? > After I create an .exe file of a program which includes within its menu Just place the developer's buttons on the form with their Visible property > options a developers button, when clicked it will reveal a form can it > then > allow buttons which are hidden to the user to carry out functions? > I could have two versions of the form but is there a better way? set to False initially (set this at design time). Then, when the developer option is selected, the first thing to do is set these button's Visible property to True so the developer can see them. This next step is important... when the form is closed, set these button's Visible property back to False so they will be hidden to non-developers the next time the form is displayed. Of course, put all of the code necessary to make these buttons function correctly in at design time. Rick On Wed, 28 Feb 2007 09:57:32 -0500, "Rick Rothstein \(MVP - VB\)"
<rickNOSPAMnews@NOSPAMcomcast.net> wrote: Show quoteHide quote >> After I create an .exe file of a program which includes within its menu I would have a Frame with the buttons on it>> options a developers button, when clicked it will reveal a form can it >> then >> allow buttons which are hidden to the user to carry out functions? >> I could have two versions of the form but is there a better way? > >Just place the developer's buttons on the form with their Visible property >set to False initially (set this at design time). Then, when the developer >option is selected, the first thing to do is set these button's Visible >property to True so the developer can see them. This next step is >important... when the form is closed, set these button's Visible property >back to False so they will be hidden to non-developers the next time the >form is displayed. Of course, put all of the code necessary to make these >buttons function correctly in at design time. Hi Rick
Thanks for your post, What is the best way to protect the developers button from being used by all, my guess password, is there a good procedure for setting passwords? Show quoteHide quote "Rick Rothstein (MVP - VB)" wrote: > > After I create an .exe file of a program which includes within its menu > > options a developers button, when clicked it will reveal a form can it > > then > > allow buttons which are hidden to the user to carry out functions? > > I could have two versions of the form but is there a better way? > > Just place the developer's buttons on the form with their Visible property > set to False initially (set this at design time). Then, when the developer > option is selected, the first thing to do is set these button's Visible > property to True so the developer can see them. This next step is > important... when the form is closed, set these button's Visible property > back to False so they will be hidden to non-developers the next time the > form is displayed. Of course, put all of the code necessary to make these > buttons function correctly in at design time. > > Rick > > > "Ron" <R**@discussions.microsoft.com> wrote in message You don't need anything too complex. Have you ever seen any "Easter Eggs"news:8C112039-543C-4060-8884-C53EEB6D0F62@microsoft.com... > Hi Rick > Thanks for your post, What is the best way to protect the developers button > from being used by all, my guess password, is there a good procedure for > setting passwords? > > > <snipped> for various Windows applications? You could simply hold down the Shift and Control keys while clicking a particular spot on an Icon on the About box, hold the Shift key while doing a right-click on the lower left of the form, etc. Hi Ralph
Thanks, sorry I do not think I have seen "Easter Eggs" on Windows apps, sounds like a good idea can you give me a sample to work from please? Show quoteHide quote "Ralph" wrote: > > "Ron" <R**@discussions.microsoft.com> wrote in message > news:8C112039-543C-4060-8884-C53EEB6D0F62@microsoft.com... > > Hi Rick > > Thanks for your post, What is the best way to protect the developers > button > > from being used by all, my guess password, is there a good procedure for > > setting passwords? > > > > > <snipped> > > You don't need anything too complex. Have you ever seen any "Easter Eggs" > for various Windows applications? > > You could simply hold down the Shift and Control keys while clicking a > particular spot on an Icon on the About box, hold the Shift key while doing > a right-click on the lower left of the form, etc. > > > On Thu, 1 Mar 2007 02:02:06 -0800, =?Utf-8?B?Um9u?=
<R**@discussions.microsoft.com> wrote: >Hi Ralph Try this - you can make it a lot more picky>Thanks, sorry I do not think I have seen "Easter Eggs" on Windows apps, >sounds like a good idea can you give me a sample to work from please? Option Explicit Private Sub Form_Load() Me.Caption = "Hold down Shift and Right Click Form 3 times" End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Static HoldTimer!, Count& If Shift And vbShiftMask = vbShiftMask Then If Button = vbRightButton Then Beep ' First Click If Abs(Timer - HoldTimer) > 2 Then HoldTimer = Timer Count = 1 Me.Caption = Str$(Count) Exit Sub End If ' 2nd / 3rd Click If (Timer - HoldTimer) < 2 Then Count = Count + 1 Me.Caption = Str$(Count) If Count = 3 Then MsgBox "BOO!" End If End If End If End If End Sub Hi Thanks for your post I was able to get what I wanted. I now have a quirky
situation, my keyboard has changed when I hold down the Shift Key to get the @ sign I get the " instead. Any ideas? Show quoteHide quote "J French" wrote: > On Thu, 1 Mar 2007 02:02:06 -0800, =?Utf-8?B?Um9u?= > <R**@discussions.microsoft.com> wrote: > > >Hi Ralph > >Thanks, sorry I do not think I have seen "Easter Eggs" on Windows apps, > >sounds like a good idea can you give me a sample to work from please? > > Try this - you can make it a lot more picky > > Option Explicit > > Private Sub Form_Load() > Me.Caption = "Hold down Shift and Right Click Form 3 times" > End Sub > > Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As > Single, Y As Single) > Static HoldTimer!, Count& > > If Shift And vbShiftMask = vbShiftMask Then > If Button = vbRightButton Then > Beep > ' First Click > If Abs(Timer - HoldTimer) > 2 Then > HoldTimer = Timer > Count = 1 > Me.Caption = Str$(Count) > Exit Sub > End If > ' 2nd / 3rd Click > If (Timer - HoldTimer) < 2 Then > Count = Count + 1 > Me.Caption = Str$(Count) > If Count = 3 Then > MsgBox "BOO!" > End If > End If > End If > End If > > End Sub > > You've probably switched to a different keyboard layout. The default key to
switch is the Left-Alt key and the Left-Shift key held down together. If you want a more visible way of checking which keyboard layout you're using, use Control Panel, Keyboard to switch (although the language will usually also be displayed in your system tray, but the Control Panel methoid is pretty much guaranteed to work). Rob Show quoteHide quote "Ron" <R**@discussions.microsoft.com> wrote in message news:44F0CE92-B39C-4A55-A326-023C0A4DC4F8@microsoft.com... > Hi Thanks for your post I was able to get what I wanted. I now have a > quirky > situation, my keyboard has changed when I hold down the Shift Key to get > the > @ sign I get the " instead. Any ideas? > > "J French" wrote: > >> On Thu, 1 Mar 2007 02:02:06 -0800, =?Utf-8?B?Um9u?= >> <R**@discussions.microsoft.com> wrote: >> >> >Hi Ralph >> >Thanks, sorry I do not think I have seen "Easter Eggs" on Windows apps, >> >sounds like a good idea can you give me a sample to work from please? >> >> Try this - you can make it a lot more picky >> >> Option Explicit >> >> Private Sub Form_Load() >> Me.Caption = "Hold down Shift and Right Click Form 3 times" >> End Sub >> >> Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As >> Single, Y As Single) >> Static HoldTimer!, Count& >> >> If Shift And vbShiftMask = vbShiftMask Then >> If Button = vbRightButton Then >> Beep >> ' First Click >> If Abs(Timer - HoldTimer) > 2 Then >> HoldTimer = Timer >> Count = 1 >> Me.Caption = Str$(Count) >> Exit Sub >> End If >> ' 2nd / 3rd Click >> If (Timer - HoldTimer) < 2 Then >> Count = Count + 1 >> Me.Caption = Str$(Count) >> If Count = 3 Then >> MsgBox "BOO!" >> End If >> End If >> End If >> End If >> >> End Sub >> >> On Thu, 1 Mar 2007 09:35:20 -0800, =?Utf-8?B?Um9u?=
<R**@discussions.microsoft.com> wrote: >Hi Thanks for your post I was able to get what I wanted. I now have a quirky Gawd knows how you have done it, but you've changed your Locale.>situation, my keyboard has changed when I hold down the Shift Key to get the >@ sign I get the " instead. Any ideas? "Ron" <R**@discussions.microsoft.com> wrote in message You've chaned your keyboard locale. Go to Control panel and change it back. news:44F0CE92-B39C-4A55-A326-023C0A4DC4F8@microsoft.com... > I now have a quirky situation, my keyboard has changed > when I hold down the Shift Key to get the @ sign I get the > " instead. Any ideas? Was it Oscar wilde who once said, "Britain and Amercia are two countries /separated/ by a common language" ;-) Mike
Show quote
Hide quote
"Mike Williams" <m***@whiskyandCoke.com> wrote in message George Bernard Shawnews:%23gusZnEXHHA.4132@TK2MSFTNGP06.phx.gbl... > "Ron" <R**@discussions.microsoft.com> wrote in message > news:44F0CE92-B39C-4A55-A326-023C0A4DC4F8@microsoft.com... > > > I now have a quirky situation, my keyboard has changed > > when I hold down the Shift Key to get the @ sign I get the > > " instead. Any ideas? > > You've chaned your keyboard locale. Go to Control panel and change it back. > Was it Oscar wilde who once said, "Britain and Amercia are two countries > /separated/ by a common language" ;-) > > Mike > (and it was "England and America". Either the PC of "Britain" was not in vogue back then, or he recognized that the Welsh, Irish, and Scotts don't speak English.) -ralph <g> "Ron" <R**@discussions.microsoft.com> wrote in message Here is some from the top of a quick google search...news:DCF9087F-53F2-43D2-A3A3-ACC7A6AA92D3@microsoft.com... > Hi Ralph > Thanks, sorry I do not think I have seen "Easter Eggs" on Windows apps, > sounds like a good idea can you give me a sample to work from please? > > "Ralph" wrote: > > <snipped> http://www.eeggs.com/items/46999.html http://www.pcworld.com/article/id,109378-page,1/article.html They were quite the rage back in the Win95/98 days. Far less common now. Microsoft banned them (mid Win2k) from their apps for a variety of reasons, but mostly because it upset corporate users - if there is 'this' hidden code, might there be others? &etc. While I fully understand the reasons, I always thought they were kind of fun. My favorite was an early Excel version that showed a "pair-of-ducks" (paradox) getting run off by Excel. -ralph > They were quite the rage back in the Win95/98 days. Far less common now. I rather liked the flight Sim in Excel (97 I think). I hid a blackjack game > Microsoft banned them (mid Win2k) from their apps for a variety of > reasons, > but mostly because it upset corporate users - if there is 'this' hidden > code, might there be others? &etc. > > While I fully understand the reasons, I always thought they were kind of > fun. My favorite was an early Excel version that showed a "pair-of-ducks" > (paradox) getting run off by Excel. > > -ralph into a asset management application I wrote (Enter "Let's play a game" into the comment field and press Search twice) Dave O. On Thu, 1 Mar 2007 08:21:21 -0600, "Ralph" <nt_consultin***@yahoo.com> in <mbCdnQjFnr52fXvYnZ2dnUVZ_qiqn***@arkansas.net> wrote: Show quoteHide quote > My favorite was back in the CDC days when either the 6000 or 7000 series>"Ron" <R**@discussions.microsoft.com> wrote in message >news:DCF9087F-53F2-43D2-A3A3-ACC7A6AA92D3@microsoft.com... >> Hi Ralph >> Thanks, sorry I do not think I have seen "Easter Eggs" on Windows apps, >> sounds like a good idea can you give me a sample to work from please? >> >> "Ralph" wrote: >> >> <snipped> > >Here is some from the top of a quick google search... >http://www.eeggs.com/items/46999.html >http://www.pcworld.com/article/id,109378-page,1/article.html > >They were quite the rage back in the Win95/98 days. Far less common now. >Microsoft banned them (mid Win2k) from their apps for a variety of reasons, >but mostly because it upset corporate users - if there is 'this' hidden >code, might there be others? &etc. > >While I fully understand the reasons, I always thought they were kind of >fun. My favorite was an early Excel version that showed a "pair-of-ducks" >(paradox) getting run off by Excel. > >-ralph > came with a pair of round white on green oscilloscope looking system monitors that were powered by 12 bit minis. Some enterprising lads with far too much time on their hands had come up with two very good pieces of work. One consisted of two eyeballs (one on each screen obviously) that followed one around the control room. The other was a very inviting pair of breasts. 
Other interesting topics
Function that returns an Array
Reason for 'Set' keyword SendKeys command fails on Vista Error in reading large csv file Sending email Should I or shouldn't I include excel.exe in my app distribution package? Getting Info from a .TTF File TaskBar won't show when hidden. Run-time Error 430, WITH non-broken binary compatibility? My DataReport Problem |
|||||||||||||||||||||||
