.Net でVarPtrの代わりなるものは？ (ID:78602)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

書き方はいろいろあると思いますけど、例えば、こんな感じかな。

Imports System.Runtime.InteropServices
Public Class Messenger
    Private Sender As String
    Public ServerName, FromName As String
    <DllImport("netapi32.dll", CharSet:=CharSet.Unicode)> _
    Public Shared Function NetMessageBufferSend(ByVal servername As String, _
         ByVal msgname As String, _
         ByVal fromname As String, _
         ByVal buf As String, _
         ByVal buflen As System.Int32) As System.Int32
    End Function
    Public Sub New()
        Me.Sender = Nothing
    End Sub
    Public Sub New(ByVal Sender As String)
        Me.Sender = Sender
    End Sub
    Public Sub SendMessage(ByVal Message As String)
        Dim Ret As System.Int32
        Dim Size As System.Int32
        Size = Message.Length * 2 'Unicodeなので、バイト数は常に文字数の2倍
        Ret = Me.NetMessageBufferSend(Me.Sender, Me.ServerName, Me.FromName, Message, Size)
    End Sub
End Class

使うときは、
  Dim X As New Messenger
  X.ServerName = TextBox1.Text
  X.FromName = TextBox2.Text
  X.SendMessage(Me.TextBox3.Text)
って感じで。

ServerNameやFromNameもコンストラクタに含めた方が、使いやすいかな？

←解決時は質問者本人がここをチェックしてください。

戻る