アクセサリのペイントを呼び出すには？

ボタンを押したらアクセサリのペイントが自動的に開くようにしたいんですがどうしたらいいのでしょうか？
ど素人質問ですみません＾＾；

No.7 回答者： noname#4564 回答日時： 2003/01/12 10:34

#No.6

> ＃１と＃５とちょっとだけ違う回答。vbHideにして良いのかな。

意味わかって書いてる？
vbHideにしてるのはMsPaintじゃなくて、Startの方だよ。

この回答への補足

実行したらファイルが見つかりませんとでましたがこれは何かコンポーネントを追加しなくてはいけないのでしょうか？

補足日時：2003/01/12 10:42

No.6 回答者： imogasi 回答日時： 2003/01/12 09:54

Private Sub CommandButton2_Click()

Call Shell("Start MsPaint" & " " _
& "千鳥格子.bmp", vbNormalFocus)
End Sub
＃１と＃５とちょっとだけ違う回答。vbHideにして
良いのかな。
Private Sub CommandButton2_Click()
Call Shell("pbrush" & " " & "test01.bmp", _
vbNormalFocus)
End Sub
でも動いた。（pbrushとstartの省略）
ペイントで何か絵を描き、test01で保存し、テストしてください。

この回答への補足

実行したらファイルが見つかりませんとでますがなぜでしょうか？

補足日時：2003/01/12 10:32

No.5 回答者： bin-chan 回答日時： 2003/01/12 03:22

質問のジャンルからして、＃１さんの回答が正解でしょう。

１．Visual Basicを起動する。（標準 EXEで「開く」）
２．フォームが表示されてるから「コマンドボタン」を貼り付ける。
３．２．をダブルクリックする。
４．Private Sub Command1_Click()
　　
　　End Sub
　　と表示されるから間の行に＃１さんのコードを貼り付ける。
　　もし、特定のBMPファイル（ここではC:\TEST.BMP)を開きたいなら
　　下記のコードに変える。
あえて空白を分けてあります。パス＋ファイル名は変数にした方が良いでしょう。 　



Private Sub Command1_Click()

　　Call Shell("Start MsPaint" & " " & "c:\test.bmp", vbHide)

End Sub

この回答への補足

実行したらファイルが見つかりませんとでますがなぜでしょうか？

補足日時：2003/01/12 10:33

No.4 回答者： noname#3595 回答日時： 2003/01/12 01:29

スタート　→　アクセサリー　→　ペイント　→

右クリック　→　送る　→　デスクトップでＯＫです。

No.3 回答者： sai2003 回答日時： 2003/01/12 01:24

現在スタートボタンから入って　ペイントを起動している、ですよね。

ボタンを押すというのは、ショートカットキーをデスクトップに作るということですよね。
となると、
[スタート]－[すべてのプログラム]－[アクセサリ]　ここまでの手順はペイントのアイコンボタンを表示するのと同じです。
ペイントのアイコンをマウスの右ボタンでドラッグしてデスクトップ上でドロップします。
メニューが出てきて、"ここにコピー”とか　”ショートカットを作成”（WINDOWSのバージョンによって表示が異なる）とかが表示されますので、クリックしましょう。

No.2 回答者： tatahina 回答日時： 2003/01/12 01:09

「ペイント」を右クリックしたら「ショートカットの作成（Ｓ）」をクリックすると「ペイント（２）」が出来ますのでそれをデスクトップなど好きなところへドラッグアンドドロップすればいいです。

No.1 ベストアンサー 回答者： noname#4564 回答日時： 2003/01/12 00:57

Call Shell("Start MsPaint", vbHide)

この回答への補足

実行したらファイルが見つかりませんとでますがなぜでしょうか？

補足日時：2003/01/12 10:33