タイトル : Re^8: 転送データが表示されない理由につきまして 投稿日 : 2008/01/12(Sat) 10:06 投稿者 : sinkai
花ちゃん さん >コードを投稿して、肝心な部分のコードが投稿されないし >クイズのヒントでもあるまいに中途半端な >貴方が書いたコードを(Form1 に書いてあるコード)全て投稿 >肝心な部分のコードが投稿されないし、人の質問には答えないし 親 のハンドルやアクティブにする必要もなく肝心な部分は 下記の一行だけで動作確認できますので今回の投稿になりました。 Ret = SendMessage(ChildhWnd, &HC, 0, ByVal "test") けしてクイズのヒントのつもりで書いて投稿しているつもりではしていません。 投稿では転送データは"test"にしていますが実際は"test"の所、ChildhWnd部分を変えて 動作確認だけの為に一行で行っています。 初めから下記の様に投稿しておけばと反省はしています。 '------------------------------------------------------------------------ ' Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Sub Form_Load() Ret = SendMessage(ChildhWnd, &HC, 0, ByVal "test") End Sub '------------------------------------------------------------------------ ' いろいろとお世話になりありがとう御座いました。 |