title image


Smiley Zum Verständnis:
Hi,



ein Server braucht auch einen Client!



Wie bekommt man eine Message in eine Exe:



Man baut die Exe als ActiveX-EXE.



1. Neues Projekt. ActiveX.EXE auswählen

2. Projekteigenschaften:

2.1 Startobjekt auf Sub Main setzen

2.2 Unbeaufsichtigte Ausführung anklicken

2.3 Unter Komponente: Startmodus selbstständig einstellen

2.4 Projektname vorläufig: Sender

3. Öffentliche Klasse von Class1 auf Application umbenennen.

3.1 Testcode Klasse Application:



Public Event MsgReceived(Byval sMsg As String)



Public Property Let Message(Byval sMsg As String)

RaiseEvent MsgReceived(sMsg)

'.... tue was

End Property

3.2 Ein Modul einfügen (Nicht Form, nicht Klassenmodul)

3.3 Testcode Modul:



Sub Main

Msgbox "Sender ready ...", vbInformation, "Sender"

End Sub

4. Das Ganze kompilieren.



Wer kann nun diesen Server bedienen?

Weil:



Dazu öffnet man ein neues Projekt. Eine Standardexe z.B. Unter Verweise bindet man einen Verweis auf die Server.EXE ein. Unter Form1, der verpasse ich ein CommandButton, schreibe ich nämlich frech:





Private WithEvents se As Sender.Application



Private Sub Command1_Click()

se.Message = "Hello World!"

End Sub



Private Sub Form_Load()

Set se = New Sender.Application

End Sub



Private Sub se_MsgReceived(Byval sMsg As String)

MsgBox sMsg, vbInformation, "Received"

End Sub



Projekt starten und ein Klick auf den Button echoed die Message! Text von dieser Anwendung zur Sender Anwendung die damit momentan nur ein Event auslöst. So gelangt Text in eine App die schon gestartet ist. Ein bißchen ooP vielleicht.

Programmierst Du noch frei oder wirst Du schon von Microsoft verwaltet ( .NET)?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: