BUG: Visible Property of Sheridan Command Button May Not Work

   #If Win16 Then

   Private Declare Function ShowWindow Lib "User" (ByVal hWnd As Integer,

   ByVal nCmdShow As Integer) As Integer

   #Else

   Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long,

   ByVal nCmdShow As Long) As Long

   #EndIf

   Const SW_SHOW = 5

   Const SW_HIDE = 0
				

   ShowWindow Form1.SSCOmmand1.HWnd, SW_HIDE
				

    ShowWindow Form1.SSCommand1.HWnd, SW_SHOW
				

MORE INFORMATION

Steps to Reproduce Problem

1. Start a new project. Form1 is created by default. On Form1 place a regular Command button and a Sheridan SSCommand button. Go to the Properties window and change the TabIndex property of the SSCommand1 control to 0.
2. In the Form_Load event for Form1, place the following code:

         Private Sub Form_Load()
   
             Form2.Show
   
         End Sub
   						

3. Insert another form into the project. On Form2, place a regular command button. In the Command1_Click event for the button on Form2, place the following code:

         Private Sub Command1_Click()
   
             Form1.SSCommand1.Visible = False
   
         End Sub
   						

Run the project by pressing the F5 key. Bring Form2 to the foreground and press the Command button to make the Sheridan Command button on Form1 disappear. Click anywhere on Form1 to bring it to the foreground. Notice that SSCommand1 reappears.

To correct this problem with the workaround, paste the declaration for ShowWindow in the Form...Declarations section of Form2. Instead of the command to make Visible property false, use the following command:

   Call ShowWindow(Form1.SSCOmmand1.HWnd, SW_HIDE)
				

The button will not reappear until the following command is issued:

   Call ShowWindow(Form1.SSCommand1.HWnd, SW_SHOW)