Initial commit 3

2021-10-01 11:11:04 +02:00
parent 8d9b529721
commit 70e2645059
486 changed files with 279955 additions and 0 deletions
@@ -0,0 +1,116 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+  Persistable = 0  'NotPersistable
+  DataBindingBehavior = 0  'vbNone
+  DataSourceBehavior  = 0  'vbNone
+  MTSTransactionMode  = 0  'NotAnMTSObject
+END
+Attribute VB_Name = "CSPS_OLE"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = True
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = False
+Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
+Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
+'==============================================================================
+'
+' File   : SPS_OLE.cls
+' Date   : 06.04.1999
+' Version: 1.00
+'==============================================================================
+' Author : Reinhard Henning, lindner&partner
+' OLE Server zum Export von Funktionen für andere Programme
+
+' Für einen OLE Server muß unter Projekt / Eigenschaften von... / Allgemein
+' gesetzt werden:
+
+' Projekttyp = ActiveX-EXE
+'
+' Projektname= pruef2000
+' Klassenname=CSPS_OLE
+' OLE Klasse= pruef2000.CSPS_OLE
+'
+' Thread-Pool , 1 Threads
+' Projekt / Eigenschaften / Komponente / Startmodus = Eigenständig
+' Project / Eigenschaften / Debuggen / "Warten bis Komponente erstellt ist" aktivieren
+' Eigenschaften der Klasse:  "5 Multiuse" ist OK
+' ActiveX Steuerelement aktualisieren ?
+' Komponente Startmodus = Eigenständig
+
+Option Explicit
+
+Public Sub Msg(vText As Variant)
+End Sub
+
+'Public Sub Show()
+'   Dim thandle As Long
+'   Dim s As String
+'   Dim myhWnd, iret As Long
+'
+'   'MsgBox (Screen.ActiveForm.Caption)
+'
+'   On Error Resume Next
+'       Screen.ActiveForm.Show
+'       Screen.ActiveForm.SetFocus
+'       myhWnd = GetForegroundWindow()
+'       s = Space(256)
+'       iret = GetWindowText(myhWnd, s, 256)
+'   '    MsgBox (myhWnd & " " & s)
+'       thandle = FindWindow(vbEmpty, "Pruef")
+'       BringWindowToTop thandle
+'
+'       ' frmShow.Show vbModal
+'       frmShow.Show
+'       Call SetOnTop(frmShow, AlwaysOnTop)
+'       Call SetOnTop(frmShow, Default)
+'       Unload frmShow
+'End Sub
+
+Public Sub Show()
+' AppActivate "Pruef2000"
+
+  Dim thandle As Long
+   Dim s As String
+   Dim myhWnd, iret As Long
+'
+'   'MsgBox (Screen.ActiveForm.Caption)
+'
+   On Error Resume Next
+'
+       Screen.ActiveForm.Show
+       Screen.ActiveForm.SetFocus
+       myhWnd = GetForegroundWindow()
+       s = Space(256)
+       iret = GetWindowText(myhWnd, s, 256)
+   '    MsgBox (myhWnd & " " & s)
+       thandle = FindWindow(vbEmpty, "Pruef")
+       BringWindowToTop thandle
+'
+       frmShow.Show vbModal
+End Sub
+
+Public Function GetString() As String
+Dim nullhwnd, myhWnd, iret As Long
+Dim s As String
+
+   nullhwnd = GetActiveWindow()
+   myhWnd = GetForegroundWindow()
+   s = Space(256)
+   iret = GetWindowText(nullhwnd, s, 256)
+   Debug.Print nullhwnd, s; s = Space(256)
+   iret = GetWindowText(myhWnd, s, 256)
+   Debug.Print myhWnd, s
+   
+   
+   GetString = GetActiveWindow()
+   
+   End Function
+
+Private Sub Class_Initialize()
+    'MsgBox ("SPS_OLE initialised")
+End Sub
+
+Private Sub Class_Terminate()
+    'MsgBox ("SPS_OLE terminated")
+End Sub