[リストへもどる]
一括表示
投稿時間：2003/09/11(Thu) 15:19
投稿者名：夢さん
ＵＲＬ　：
タイトル：PictureBoxにshadeを書くには？
皆さんこんにちは

又、たいへん初歩的な質問で恐縮ですが教えてください。

PictureBoxにshadeを書くにはコードをどのように書けばよいのですか。

お願いします。

投稿時間：2003/09/11(Thu) 15:58
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re: PictureBoxにshadeを書くには？
> PictureBoxにshadeを書くにはコードをどのように書けばよいのですか。

回答ではありません。shadeってなんでしょうか？
まさかソフトの名前ではないですよね。それとも［陰］？

投稿時間：2003/09/11(Thu) 16:43
投稿者名：夢さん
ＵＲＬ　：
タイトル：Re^2: PictureBoxにshapeを書くには？
> > PictureBoxにshadeを書くにはコードをどのように書けばよいのですか。
>
> 回答ではありません。shadeってなんでしょうか？
> まさかソフトの名前ではないですよね。それとも［陰］？

早速有難うございます。
shape（シェイプ）でした。スペルの間違いです。どじ！

投稿時間：2003/09/11(Thu) 18:12
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: PictureBoxにshapeを書くには？
> shape（シェイプ）でした。スペルの間違いです。どじ！

shape って shapeコントロールの事ですか？　それともExcelのオートシェイプのような物を
表示したいという事ですか？

shapeコントロールなら貼り付けるだけで　円とかが描けますが？

投稿時間：2003/09/12(Fri) 18:59
投稿者名：夢さん
ＵＲＬ　：
タイトル：Re^4: PictureBoxにshapeを書くには？
> > shape（シェイプ）でした。スペルの間違いです。どじ！
>
> shape って shapeコントロールの事ですか？　それともExcelのオートシェイプのような物を
> 表示したいという事ですか？
>
> shapeコントロールなら貼り付けるだけで　円とかが描けますが？

説明不足ですみません。
shapeコントロールの事です。
私はＶＢプログラム習得のため、お絵かきソフトを作っています。
その中で、PictureBoxを使っていますがそこに線や、絵等を描きたいと思って居ます。
今現在、線を書くこと、線の色を変えること、絵を貼り付け（ファイルを開き貼り付けること）ることなどは出来ました。
で、コマンドボタンをクリックするとPictureBox内の指定の場所に指定の大きさで指定の形状（丸や資格など）を書きたいと思ったのですがこのコード記述が分からないのです。
このことを教えてください。
この後、PictureBox内に書いた絵などのある部分を指定して下降したいのですがこの部分指定の方法もよろしかったら教えてください。
色々お手数を掛けます。

　

投稿時間：2003/09/12(Fri) 19:24
投稿者名：nobu
Ｅメール：
ＵＲＬ　：
タイトル：Re^5: PictureBoxにshapeを書くには？
下記などは如何でしょう？

http://tokyo.cool.ne.jp/masapico/sample_index.html

弓形の描画(VB)
楕円の描画(VB)
楕円形の扇形の描画(VB)
三角形の描画(VB)
複数の多角形の描画(VB)
長方形の描画
角の丸い長方形の描画(VB)


他にも検索エンジンで探せばサンプルはあると思いますが。

投稿時間：2003/09/13(Sat) 17:12
投稿者名：夢さん
ＵＲＬ　：
タイトル：Re^6: PictureBoxにshapeを書くには？
> 下記などは如何でしょう？
>
> http://tokyo.cool.ne.jp/masapico/sample_index.html
>
> 弓形の描画(VB)
> 楕円の描画(VB)
> 楕円形の扇形の描画(VB)
> 三角形の描画(VB)
> 複数の多角形の描画(VB)
> 長方形の描画
> 角の丸い長方形の描画(VB)
>
>
> 他にも検索エンジンで探せばサンプルはあると思いますが。

有難うございます。試してみます。

投稿時間：2003/09/18(Thu) 22:25
投稿者名：夢さん
ＵＲＬ　：
タイトル：Re^7: PictureBoxにshapeを書くには？
> > 下記などは如何でしょう？
> >
> > http://tokyo.cool.ne.jp/masapico/sample_index.html
> >
> > 弓形の描画(VB)
> > 楕円の描画(VB)
> > 楕円形の扇形の描画(VB)
> > 三角形の描画(VB)
> > 複数の多角形の描画(VB)
> > 長方形の描画
> > 角の丸い長方形の描画(VB)
> >
> >
> > 他にも検索エンジンで探せばサンプルはあると思いますが。
>
> 有難うございます。試してみます。

花ちゃん、nobuさん　こんばんは　夢さんです。
上の事、やってみましたが「Sub又はFunctionが定義されていません」とか「ユーザ定義型が定義されていません」とかのエラーが出て先に進めません。
全くの初心者、この意味と対応の仕方が分かりません。
時間を掛けて挑戦してみたいと思っています。
有難うございました。

投稿時間：2003/09/18(Thu) 23:16
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^8:shapeを書く
解らない部分はヘルプで調べて下さい。
Private Sub Command1_Click()
    With Picture1
        .AutoRedraw = True
        Picture1.Line (100, 100)-(2500, 2000), vbRed, B
        
        Picture1.Line (500, 500)-(1500, 1500), vbRed, BF
        
        Picture1.Circle (3000, 3000), 1000, vbBlue
        
        .FillStyle = 0
        .FillColor = vbBlue
        Picture1.Circle (3000, 3000), 700, vbBlue
        
        Picture1.Circle (1000, 3000), 700, vbBlue, 0, 0, 0.8
        
        Picture1.Line (4000, 100)-(3000, 1500)
        Picture1.Line (3000, 1500)-(5000, 1500)
        Picture1.Line (5000, 1500)-(4000, 100)
    End With
End Sub

投稿時間：2003/10/02(Thu) 16:56
投稿者名：夢さん
ＵＲＬ　：
タイトル：Re^9:shapeを書く
花ちゃん　こんにちは　またまた　アドバイス有難うございます。前回のアドバイスで色々な図形が描けるようになりました。で、色々変化させる例えば複数の四角を描き、その内の１個を指定して消すとか等試行錯誤をしていましたので返事が遅れました。
指定の方法については分かりませんでしたが図形を描くことについては概ね理解したと思いますのでこの件は完結とさせてください。
花ちゃん　nobuさん　有難うございました。

以下引用
> 解らない部分はヘルプで調べて下さい。
> Private Sub Command1_Click()
>     With Picture1
>         .AutoRedraw = True
>         Picture1.Line (100, 100)-(2500, 2000), vbRed, B
>        
>         Picture1.Line (500, 500)-(1500, 1500), vbRed, BF
>        
>         Picture1.Circle (3000, 3000), 1000, vbBlue
>        
>         .FillStyle = 0
>         .FillColor = vbBlue
>         Picture1.Circle (3000, 3000), 700, vbBlue
>        
>         Picture1.Circle (1000, 3000), 700, vbBlue, 0, 0, 0.8
>        
>         Picture1.Line (4000, 100)-(3000, 1500)
>         Picture1.Line (3000, 1500)-(5000, 1500)
>         Picture1.Line (5000, 1500)-(4000, 100)
>     End With
> End Sub