VB .netのexeからVC++ 6.0で作成したDLLに含まれる関数をコールするときのエラーをなくすには？ (ID:77049)

名前

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

本文

masat21です。
他の業務に従事していたため、回答が遅くなりました。

以下のように修正した結果、エラーメッセージは表示されなくなりましたが、
今度は、第2引数に環境変数PATHの内容が返されません。
原因についてご教示願います。（そのときのソースを以下に示します）

もちろん、環境変数PATHに設定されていることを確認しました。
それにしても、VB .netって奥が深いですね。

'======== Form1.vb ========
Option Explicit On 
Option Strict On
Public Class Form1
  Inherits System.Windows.Forms.Form

#Region " Windows フォーム デザイナで生成されたコード "
   ' (中略)
  #End Region

Private Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim nRtn As Integer
        Dim Buffer As String
        Buffer = New String(CChar(" "), 1024)
        Dim Size As Integer
        Size = 1024

nRtn = GetEnvironmentVariable("PATH", Buffer, Size)
        MsgBox(Buffer)
    End Sub
End Class

'======== Module1.vb ========
Option Explicit On 
Option Strict On
Module Module1
    <System.Runtime.InteropServices.DllImport("kernel32", _
     EntryPoint:="GetEnvironmentVariableA", _
     CallingConvention:=System.Runtime.InteropServices.CallingConvention.StdCall)> _
    Friend Function GetEnvironmentVariable(ByVal lpNmae As String, ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
    End Function
End Module

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

戻る