Loading ...
Sorry, an error occurred while loading the content.

Re: [BCX] Help on BCX

Expand Messages
  • Mike Sanders
    ... Hi martyg_22 and David, That would be my code... Here s another example: -------------------------------------------------------------- Sub ToggleSound()
    Message 1 of 5 , Sep 1, 2005
    View Source
    • 0 Attachment
      On 9/1/05 David spoke unto us saying:

      > According to Window's search, there's a usage of CheckMenuItem in
      > C:\Program Files\BCX\Gui_Demo\Ruler_2\Support.Inc

      Hi martyg_22 and David,

      That would be my code... Here's another example:

      '--------------------------------------------------------------
      Sub ToggleSound()
      '--------------------------------------------------------------
      Dim Raw uState AS UINT
      Dim Raw q As INTEGER

      uState = GetMenuState(mnuFile, IDSOUND, MF_BYCOMMAND)

      If (uState & MF_CHECKED) Then
      bNoise = False
      q = MF_UNCHECKED
      Else
      bNoise = True
      q = MF_CHECKED
      End If
      CheckMenuItem(mnuFile, IDSOUND, q)

      End Sub

      Good luck!

      --
      Later on,
      Mike
      www.fuzzbox.hypermart.net
    Your message has been successfully submitted and would be delivered to recipients shortly.