Feedback

VB - String von einer Instanz zur anderen senden

Veröffentlicht von am 15.10.2006
(1 Bewertungen)
Mit dieser Klasse kann man einen Text von einer Instanz eines Programmes zu einer anderen Instanz senden
Dabei muss die Zielinstanz den Handle eines Controls (z.B. eine TextBox) in einer Datei speichern (mit der "WriteHandle" Funktion).
Die Instanz die den Text senden will muss dann dieses Handle aus der Datei auslesen (mit der "ReadHandle" Funktion) um den Text dann zu senden.
GFU-Schulungen  [Anzeige]

ASP.NET Core - Der Einstieg

In nur 3 Tagen lernen Sie, wie man mit ASP.NET Core und den Technologien MVC, Entity Framework, WebAPI und Razor professionelle Web-Anwendungs-Architekturen aufbaut. Diese Schulung ist der perfekte Einstieg, um datengetriebene und präsentations-orientierte Applikationen auf Basis der ASP.NET Core Plattform zu erstellen.

C# 2017/2015/2013 Aufbau

In dieser Schulung lernen Sie fortgeschrittene Techniken im Bereich .Net C#. Dabei stehen neben den eigentlichen Techniken auch architektonische Aspekte im Mittelpunkt.

Imports System.IO

''' <summary>
''' Mit dieser Klasse kann man einen Text von einer Instanz eines Programmes zu einer anderen Instanz senden
''' Dabei muss die Zielinstanz den Handle eines Controls (z.B. eine TextBox) in einer Datei speichern (mit der "WriteHandle" Funktion).
''' Die Instanz die den Text senden will muss dann dieses Handle aus der Datei auslesen (mit der "ReadHandle" Funktion) um den Text dann zu senden.
''' </summary>
''' <remarks>Copyright © 2006 Tim Hartwig</remarks>
Public Class clsSendText
    Private Declare Ansi Function IsWindow Lib "user32.dll" ( _
        ByVal hWnd As Integer) _
    As Integer

    Private Declare Ansi Function SendMessage Lib "user32" Alias "SendMessageA" ( _
        ByVal hWnd As Integer, _
        ByVal wMsg As Integer, _
        ByVal wParam As Integer, _
        ByVal lParam As String) _
    As Integer

    Private Const WM_SETTEXT As Integer = &HC

    ''' <summary>
    ''' Diese Funktion schreibt das Handle eines Controls welchen den Text empfangen soll in eine Datei.
    ''' Die Instanz die den Text senden soll muss dann dieses Handle mit der "ReadHandle" Funktion auslesen.
    ''' </summary>
    ''' <param name="Handle">Das Handle des Controls wie z.B. einer TextBox</param>
    ''' <param name="Path">Den Pfad der Datei in dem das Handle gespeichert werden soll</param>
    Public Sub WriteHandle(ByVal Handle As System.IntPtr, ByVal Path As String)
        File.WriteAllText(Path, Handle.ToString)
    End Sub

    ''' <summary>
    ''' Diese Funktion ließt ein Handle aus einer Datei und gibt diesen als IntPtr zurück.
    ''' Dieses Handle wird benötigt um einen Text an die Zielinstanz zu schicken.
    ''' </summary>
    ''' <param name="Path">Der Pfad der Datei in der sich der Handle-Wert befindet</param>
    Public Function ReadHandle(ByVal Path As String) As System.IntPtr
        Return New System.IntPtr(CInt(File.ReadAllText(Path)))
    End Function

    ''' <summary>
    ''' Diese Funktion sendet den Text zum Control der Zielinstanz
    ''' </summary>
    ''' <param name="Handle">Das Handle des Controls der Zielinstanz an welches der Text gesendet werden soll</param>
    ''' <param name="Text">Der Text der gesendet werden soll</param>
    Public Sub SendText(ByVal Handle As System.IntPtr, ByVal Text As String)
        If Handle <> 0 And IsWindow(Handle) <> 0 Then
            SendMessage(Handle.ToInt32, WM_SETTEXT, 0, Text)
        End If
    End Sub
End Class

Abgelegt unter SendMessage.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!