アイコンにドロップすることによるファイルオープン

解決

DQマニア@＿|‾|○ 2004-04-11 07:40:01 No: 82980

…初歩的覚悟で質問します。
エクスプローラー上のアイコンにファイル(この場合はtxt形式)をドラッグドロップしてRichTextBoxにロードするには如何なる手を使えば良いのでしょうか?
…要するにファイルのフルパスが知りたいのです。
過去ログに似たような書き込みがあったのですがアイコンではなくコントロールにドロップしていたので…＿|‾|○。
また、上記のプログラムを書き込み、関連付けした場合、txtファイルを押しただけでしっかりと作成したプログラムでファイルがオープンできるのですか?
環境
Windows98
VB6.0ProfessionalEdition
…初歩的でスミマセン＿|‾|○。

DQマニア 2004-04-11 09:26:02 No: 82981

はりゃ…ブイビー・ラボ!に載ってますた。
…出来ますた。自己解決しますた。
Private Sub Form_Load()
If Command$ <> "" Then
'ファイルを読み込む
On Error GoTo error:
RichTextBox1.LoadFile = Command$
Me.Caption = Command$
End If
Exit Sub
error:
End Sub

…Command$使えば良かったのですね。