[リストへもどる]
一括表示
投稿時間：2004/08/01(Sun) 09:46
投稿者名：vaca
Ｅメール：
ＵＲＬ　：
タイトル：線を引く
いつもお世話になります。

No.8833に書き込まれた方と同じ質問なのですが、
ワードやエクセルの線、矢印、四角、直角三角をVBで実現するには
どうしたらいいでしょうか？
多少の手間は覚悟の上なのでもしわかる方がいればよろしくお願いします。

投稿時間：2004/08/01(Sun) 11:52
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re: 線を引く
> No.8833に書き込まれた方と同じ質問なのですが、
> ワードやエクセルの線、矢印、四角、直角三角をVBで実現するには
> どうしたらいいでしょうか？

だったらあそこに書いてある解答と同じかと思います。

> 多少の手間は覚悟の上なのでもしわかる方がいればよろしくお願いします。

作成する前から一からお聞きになるのならあきらめたらどうですか？と言う事だと
思いますよ。
何にお使いになるのか知りませんが、私ならやりませんというよりやれませんかな。

Excelのオートシェイプとまったく同じ事をやりたいならなおさらかと思います。
まず、ピクチャーボックスにライン又は、四角形を描いてそれをマウスの操作で
拡大・縮小する事から初めて下さい。
（それ位できますなら、この回答はなかった事にして下さい）
その過程等での解らない部分についての質問をされた方がいいかと思います。
これだって結構VBでは大変かと思いますよ。
又、Shape コントロール等を試して見て下さい。

過去のログを調べればそのものズバリはなくてもよく似たものやヒントになるものは
いくらでもあったかと思います。
> 多少の手間は　
というのはそういう事を言うのだと思います
又、Googleで[オートシェイプ VB]をキーワードに検索して見て下さい。
ヒットしたのを片っ端から調べて見て下さい。
多分、VBで作成しているようなサンプルは見つからないかと思いますが？

投稿時間：2004/08/01(Sun) 17:27
投稿者名：vaca
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: 線を引く
返信ありがとうございます。
あきらめずに考えてみます。

投稿時間：2004/08/01(Sun) 19:13
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: 線を引く
http://www.bcap.co.jp/hanafusa/vbbbs/wforum.cgi?mode=allread&no=8392
http://www.bcap.co.jp/hanafusa/vbbbs/wforum.cgi?mode=allread&no=8485#8485
http://www.bcap.co.jp/hanafusa/vbbbs/wforum.cgi?mode=allread&no=8728
http://www.bcap.co.jp/hanafusa/vbbbs/wforum.cgi?mode=allread&no=9286#9286

これ皆貴方ですよね。質問の内容も殆ど進んでいないし、又、同じ事を質問しても
レスがつきませんよ。（他の掲示板でも）
それで、何がしたいのかによっても変わってきます。
Excelのオートシェイプと同じ事を望むならあきらめた方がいいですよ。
もう少し的を絞って具体的に何をしたいのか、どの程度までなら妥協できるのか
今回の質問だけなら描くだけかなと思いますし、あなたのVBのレベルが解らない以上
上記のような質問では答えようがないかと思います。

四角形位なら、PictureBox を使ってAPI関数のGetWindowLong と SetWindowLong を使用
すれば、移動やサイズ変更が可能になりますが、Excelのオートシェイプのようにはできません
まず、自分でできる範囲の事をしてその上で付加したい機能や問題点を聞くようにしたら
どうですか？
今のままでは、ラインや四角形を描く事や吹き出し形のウィンドウ位は作成されるかも
解りませんし、その四角形なりをどこで描きたいのかも書かれていないし、それだって
リッチテキストボックス等で描きたいって事なればもっと大変だし。
本当にやりたいなら中途半端で質問を終わらせるといつまでたっても進みませんよ。
取りあえず、四角形かラインかのどちらかで作成するようにして質問を進めて見ては
それにあれもしたいこれもしたいではレスがつきませんので問題をひとつずつ解決する
ようにして下さい。
いままでレスがつかなかったのは質問の仕方に問題があったからだと思いますよ。
たとへば、単に伸縮するといっても、コマンドボタンをおしたらの場合とマウスのドラッグでは
方法が違ってきますよね。

投稿時間：2004/08/02(Mon) 09:21
投稿者名：vaca
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: 線を引く
すいません。今後気をつけたいと思います。
申し訳ありませんでした。

投稿時間：2004/08/02(Mon) 16:58
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^5: 線を引く（テスト結果）
もういいのでしょうか？
目的や条件がはっきりしないのでなんですが。
少し試して見たところ、Wordのオートシィプで作成したメタファイルをPictureBox に
読み込みAPI関数のGetWindowLong と SetWindowLong を使用すれば、移動やサイズ変更が
可能になり、ある程度はそれっぽい動きをしてくれるようにはなりましたが。

投稿時間：2004/08/03(Tue) 13:39
投稿者名：vaca
Ｅメール：
ＵＲＬ　：
タイトル：Re^6: 線を引く（テスト結果）
何度もありがとうございます。教えていただいたことをこちらでも
試してみます。ありがとうございました。

投稿時間：2004/08/04(Wed) 15:12
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：サンプルをUP
参考にならないかも知れませんが、私がテストしたものをUPしておきました。
逆引きヘルプとグラフィック関係の[ExcelやWordのオートシェイプ（もどき）をVBで作成]を
見て下さい。