General information
Category:
Coding, syntax & commands
Title:
User interface operation not allowed this time.
the example code below is the one that i compiled as single-threaded com dll server.
The command bellow causes an error- "blah blah user interface operation not allowed this time."
oCom = createobject('keyboard.keyboard1')
ocom.show()
whats did i miss in my code. Please advise
Thanks in advance
********** sample code
DEFINE CLASS keyboard1 AS form OLEPUBLIC
Height = 205
Width = 313
Desktop = .F.
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Caption = "Ahead Keyboard"
ControlBox = .F.
MaxButton = .F.
MinButton = .T.
MDIForm = .F.
TitleBar = 1
WindowState = 0
AlwaysOnTop = .T.
Name = "keyboard"
ADD OBJECT command1 AS commandbutton WITH ;
Top = 156, ;
Left = 72, ;
Height = 27, ;
Width = 84, ;
Caption = "Command1", ;
Name = "Command1"
ADD OBJECT command2 AS commandbutton WITH ;
Top = 156, ;
Left = 156, ;
Height = 27, ;
Width = 84, ;
Caption = "Command2", ;
Name = "Command2"
ADD OBJECT command3 AS commandbutton WITH ;
Top = 96, ;
Left = 48, ;
Height = 27, ;
Width = 84, ;
Caption = "Command1", ;
Name = "Command3"
PROCEDURE Load
PUBLIC wshshell
WshShell = CreateObject("wscript.Shell")
ENDPROC
PROCEDURE Init
_screen.Width = this.Width
_screen.Height = this.Height
_screen.AutoCenter = .t.
thisform.AutoCenter = .t.
thisform.Resize
ENDPROC
PROCEDURE command1.Click
WshShell.appactivate("ahead point of sale")
WshShell.sendkeys("1")
ENDPROC
PROCEDURE command2.Click
thisform.release()
_screen.Visible = .t.
CLEAR events
ENDPROC
PROCEDURE command3.Click
WshShell.appactivate("ahead point of sale")
WshShell.sendkeys("{enter}")
ENDPROC
ENDDEFINE
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only