VB.NET質問スレ (Part18)

VB.NET質問スレ (Part18) at TECH

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

750:デフォルトの名無しさん
 06/12/26 17:02:24 
>>749 
どうもです、そうでした、System.ComponentModel.Component　にも 
DesignMode　はありました。 
 
Parent　の　DesignMode　はその記事の通りやはり　Protected　だった 
ようでエラーとなりました。 
 
いまいろいろ調べてみましたがまだ解決していませんが、 
さらに調べてみます。

751:デフォルトの名無しさん
 06/12/26 20:25:20 
ttp://www.be-interactive.org/index.php?itemid=118&catid=10 
これをVB2005で行いたいのですが、どのようにすれば良いのか分かりません。 
 
    Const WM_COPYDATA As Integer = &H4A 
    Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Integer, ByVal MSG As Integer, ByVal wParam As Integer, ByVal lParam As COPYDATASTRUCT) As Integer 
 
    Sub main() 
        Dim sendMes As New COPYDATASTRUCT 
        sendMes.lpData = _ 
New System.Text.StringBuilder("TestAPP" + Chr(0).ToString + "Music" + Chr(0).ToString + "1" + Chr(0).ToString + "{0} - {1}" + Chr(0).ToString + "TEST" + Chr(0).ToString + "TEST") 
        sendMes.cbData = sendMes.lpData.Length + 2 
        SendMessage(132030, WM_COPYDATA, Nothing, sendMes) 
    End Sub 
 
    Public Structure COPYDATASTRUCT 
        Const dwData As Integer = 1351 
        Public cbData As Integer 
        Public lpData As System.Text.StringBuilder 
    End Structure 
 
このようにしたところ、SendMessageのところでTypeLoadExceptionを吐いてしまいます。 
 
よろしくお願いします。

次ページ