文字列が結合できない？ (ID:78076)

名前

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

本文

当方の環境で、提示されたコードを試して見ましたが、問題ありませんでしたよ。
	1+2:aaa日本語
	2+1:日本語aaa
という結果が出力されましたので。なお、こちらの環境は、以下の通りです。
	Visual Studio.NET 2003 日本語版 (Ver.7.1.3091)
	.NET Framework 1.1 (Ver.1.1.4322)
	Windows XP Service Pack 1無印 (Build 2600.xpsp2.021108-1929)
	Internet Explorer 6 Service Pack 1 (Ver.6.0.2800.1106.xpsp2.021108-1929)

ただし、実験前に以下のような修正を施してあります。

1) 結果の出力には、Trace.Write の代わりに Trace.WriteLine を利用しました。

2) 下記の部分で警告が出たため、それぞれに As String 宣言を施しました。
    Const con1 = "xxxxxx.ini"
    Const con2 = "String"
    Const con3_1 = "1"
    Const con3_2 = "2"

# 私は、VS.NET オプション設定にて、VBの『既定のプロジェクト設定』の
# 項目にある、Option Explicit と、Option Strict の両方を On に設定しています。

3) getAppPath() メソッドが未宣言エラーとなったため、vstrFileName に、
   直接 ini ファイルのフルパスを格納させて実験しました。

4) Left(strBuffer, iRet) の部分で、フォームのLeftプロパティと誤認されたので、
   以下のように名前空間を補足しました。
   getInifileValue = Microsoft.VisualBasic.Left(strBuffer, iRet)

5) 一番肝心なPInvoke呼び出しの宣言部を書いて頂けなかったので、
   こちらで、以下のような宣言を施しました。

<System.Runtime.InteropServices.DllImport("KERNEL32.DLL", _
    Charset:=Runtime.InteropServices.CharSet.Auto, ExactSpelling:=False)> _
    Public Shared Function GetPrivateProfileString( _
        ByVal lpAppName As String, _
        ByVal lpKeyName As String, _
        ByVal lpDefault As String, _
        ByVal lpReturnedString As String, _
        ByVal nSize As System.Int32, _
        ByVal lpFileName As String) As System.Int32
    End Function

# XP環境なので、実際にはWide系のエントリポイントが読み込まれていると思います。

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

戻る