DataObject 作成方法 (ID:91178)

名前

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

本文 まさお と申します。 宜しくお願い致します。 WinXP Pro SP1 VB6 SP6 です。 OLEDragDropイベントの引数である、DataObjectをプロシージャ で作成する方法を教えて下さい。 OLEDragDropイベントは下記のようになります。 HogeHoge_OLEDragDrop(Data As DataObject, _ Effect As Long, _ Button As Integer, _ Shift As Integer, _ x As Single, _ y As Single) エクスプローラ等から、ファイルをHogeHogeにD&Dして、 ある処理をしています。 この DataObjectを処理する別プロシージャは完成しており、 Call HogeProcedure(Data) を実行しています。 Function HogeProcedure(Data As DataObject) … End Function HogeHogeへのD&Dだけでなく、コモンダイアログを使用して ファイルを指定した場合にも、同様の処理をしたいと考えて います。 Function CommonDialogOpen Dim dData As DataObject Dim strFileName As String With Me.CommonDialog .ShowOpen strFileName = .FileName End With dData.SetData strFileName '※ Call HogeProcedure(dData) End Function というようなことを行いたいのですが、※で 「オブジェクト変数未設定エラー」が発生します。 Set dData = New DataObject に類することが必要なのだと 思いますが、この方法が判りません。 DataObject を作成するにはどのようにしたら良いでしょうか？ 以上、宜しくお願い致します。