89 lines
1.5 KiB
Text
89 lines
1.5 KiB
Text
' Gambas class file
|
|
|
|
Public Sub btnEmbed_Click()
|
|
|
|
Dim sTitle As String
|
|
Dim aHandle As Integer[]
|
|
Dim iHandle As Integer
|
|
|
|
sTitle = Trim(txtTitle.Text)
|
|
If Not sTitle Then Return
|
|
|
|
If Left(sTitle, 2) = "0x" Then
|
|
iHandle = Val("&" & Mid$(sTitle, 3))
|
|
Else If Left(sTitle) = "&" Then
|
|
iHandle = Val(sTitle)
|
|
Else
|
|
' aHandle = Desktop.FindWindow(Trim(txtTitle.Text))
|
|
aHandle = Desktop.FindWindow(txtTitle.Text)
|
|
If aHandle.Count = 0 Then
|
|
Message.Warning(("Window not found!"))
|
|
Return
|
|
Else If aHandle.Count >= 2 Then
|
|
Message(("Several windows found. I take the first one!"))
|
|
Endif
|
|
iHandle = aHandle[0]
|
|
Endif
|
|
|
|
Try embEmbedder.Embed(iHandle)
|
|
If Error Then Message.Warning(Error.Text)
|
|
|
|
End
|
|
|
|
Public Sub embEmbedder_Embed()
|
|
|
|
btnEmbed.Enabled = False
|
|
btnDiscard.Enabled = True
|
|
|
|
End
|
|
|
|
Public Sub btnDiscard_Click()
|
|
|
|
embEmbedder.Discard
|
|
embEmbedder_Close
|
|
|
|
End
|
|
|
|
Public Sub embEmbedder_Close()
|
|
|
|
btnEmbed.Enabled = True
|
|
btnDiscard.Enabled = False
|
|
|
|
End
|
|
|
|
Public Sub Form_Open()
|
|
|
|
lblID.Text = "&" & Hex$(embEmbedder.Id)
|
|
|
|
End
|
|
|
|
Public Sub embEmbedder_Error()
|
|
|
|
Message.Error(("Embed error"))
|
|
|
|
End
|
|
|
|
|
|
Public Sub Process_Read()
|
|
|
|
Dim sStr As String
|
|
|
|
'READ #LAST, sStr, Lof(LAST)
|
|
Line Input #Last, sStr
|
|
Print "\t"; sStr
|
|
|
|
End
|
|
|
|
Public Sub Process_Error(sStr As String)
|
|
|
|
Print "\t"; sStr;
|
|
If Right(sStr) <> "\n" Then Print
|
|
|
|
End
|
|
|
|
Public Sub Process_Kill()
|
|
|
|
Print ("Process_Kill")
|
|
Print Last.State;; Last.Value
|
|
|
|
End
|