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 und Angular Komplett für .NET-Entwickler

Sie  lernen in drei (3) Tagen wie man mit  ASP.NET Core und den Technologien  MVC, Entity Framework, WebAPI und  Razor professionelle sowie moderne  Web-Anwendungsarchitekturen aufbaut.  Die Schulung ist der perfekte  Einstieg um insbesondere datengetriebene  und präsentationsorientierte  Applikationen auf Basis der robusten und  skalierbaren ASP.NET Core  Plattform zu erstellen. Nach der Veranstaltung kennen Sie die Konzepte von Angular und können Angular in neue und bestehende ASP.NET-Anwendungen einsetzen.

Visual Studio Team Foundation Server 2017/2015 (TFS) für Projektmitglieder - Kompakt

Nach Teilnahme an dieser Schulung sind Ihnen die Grundlagen von ALM geläufig. Sie planen und steuern Projekte effizient mit dem Visual Studio Team Foundation Server.

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!