View Single Post
Old November 14th, 2017, 02:03 PM   #2
Lifetime Supporting Member + Moderator
United States

TheWaterboy is offline
TheWaterboy's Avatar
Join Date: May 2006
Location: State of Denial
Posts: 859
That sounds odd, I thought the keyboard would slide out of the way when you are done with it. But here a potential solution.

Insert the following script in General Declarations section for the project:

Private Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any)

Private Declare Function FindWindow& Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String)
Insert a pushbutton object into the application from which to close My-T-Soft keypad. Note: Recommended that this be inserted on an overview screen or a picture that is opened and available to the operator.
Select the pushbutton object with the mouse then right click and select Edit Script.
Insert the following script between the CommandButton1_Click and End Sub:

Dim hw& Dim cnt&
hw& = FindWindow(vbNullString, "My-T-Soft")
cnt& = SendMessage(hw&, &H10, 0, 0&)
Save the edited picture.
Activate My-T-Soft touchscreen and then switch the above picture to run; click on the pushbutton object and the My-T-Soft touchscreen application will be closed
  Reply With Quote