A 回答 (2件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
簡単な方法だと3点の座標がわかればできますよ!
座標をそれぞれ(a,b),(c,d),(e,f)とします。
後は、3点にLINEを引いて塗るだけ!
line(a,b)-(c,d)
line(c,d)-(e,f)
line(e,f)-(a,b)
塗る座標は三角形の中であればどこでも良いです。
paint(a,b)
塗り方は、もっと簡単な方法があったと思いますが、
すいません忘れました(笑)
この回答へのお礼
お礼日時:2000/12/18 16:39
早速の回答すいませんでした。
が、知りたかったのは「PictureBox」のメソッドで「Line」はあるのですが「Paint」が無いみたいなので
どうしたら良いかが知りたかったので・・・
質問の書き方が悪くてすいませんでした。
No.2
- 回答日時:
Visial Basicの中では昔、探して見ましたが良くわかりませんでした。
API関数でよければ以下に記述しますので参考にして下さい.
------------------------------------------------------------
FORM1にCOMMANDBOXを作成し、以下のデータを入力する。
ちょっと長いのでコピー・ペーストで!!
Option Explicit
Private Sub Command1_Click()
#If Win32 Then
Dim dc&, di&
Dim oldpen&, oldbrush&
#Else
Dim dc%, di%
Dim oldpen%, oldbrush%
#End If
'dc = Picture1.hDC
'Picture1.Cls
dc = Form1.hDC
'ペンとブラシを削除する
If hndPen Then di = DeleteObject(hndPen)
If hndBrush Then di = DeleteObject(hndBrush)
' 新しいペンを作成します。
'hndPen = CreatePen(0, 1, QBColor(5))
hndPen = CreatePen(0, 1, RGB(100, 200, 30))
' 新しいブラシを作成する。
'hndBrush = CreateSolidBrush(QBColor(5))
hndBrush = CreateSolidBrush(RGB(50, 100, 30))
'多角形の頂点を指定する
PointArray(0).x = 116: PointArray(0).Y = 51
PointArray(1).x = 80: PointArray(1).Y = 106
PointArray(2).x = 185: PointArray(2).Y = 107
PointArray(3).x = 500: PointArray(3).Y = 200
PointArray(4).x = 300: PointArray(4).Y = 280
'ペン・ブラシを変更する(戻り値が今までのペン・ブラシの情報)
oldpen = SelectObject(dc, hndPen)
oldbrush = SelectObject(dc, hndBrush)
Form1.Cls
'三角形を作成する
di = Polygon(dc, PointArray(0), 3)
MsgBox ""
Form1.Cls
'五角形を作成する
di = Polygon(dc, PointArray(0), 5)
'ペン・ブラシを元に戻す
If (oldpen <> 0) Then di = SelectObject(dc, oldpen)
If (oldbrush <> 0) Then di = SelectObject(dc, oldbrush)
End Sub
-------------------------------------------------------------
MODULE1(標準モジュール)を作成し以下を貼り付ける
Option Explicit
'指定したデバイスコンテキストまたは情報コンテキストを削除する
Declare Function DeleteObject% Lib "GDI" (ByVal hObject%)
'2つ以上の点をつなげた多角形を描く
Declare Function Polygon& Lib "gdi32" (ByVal hDC As Long, lpPoint As POINTAPI, ByVal nCount As Long)
'ペン・ブラシの色・スタイルを変更する
Declare Function SelectObject& Lib "gdi32" (ByVal hDC As Long, ByVal hObject As Long)
'指定されたスタイル、幅、色を持つペンを作成する
Declare Function CreatePen& Lib "gdi32" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long)
'同じ色で塗りつぶすブラシを作成する
Declare Function CreateSolidBrush& Lib "gdi32" (ByVal crColor As Long)
' 使用するプライベートペンおよびブラシ
#If Win32 Then
Public hndPen&
Public hndBrush&
#Else
Public hndPen%
Public hndBrush%
#End If
Type POINTAPI
x As Long
Y As Long
End Type
Public PointArray(4) As POINTAPI '多角形の点-1(どのくらいまでできるのか良くわからない)
-----------------------------------------------------------------
三角形と五角形を描くプログラムです
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
C#で、画像の、指定した座標の...
-
VBでプリンター制御コードを記...
-
マウス位置の色を得る
-
指定領域をクリップボードに格納
-
UWSCのCHKIMG関数について
-
VBでクリックイベントを発生さ...
-
VBA HTML要素または文字の座標...
-
C++のGetCursorPosをmatlabで書...
-
決められた4つの座標をランダム...
-
uwscについて、同一の画像(仮...
-
「ご処理進めて頂きますようお...
-
Excelシート上のマクロを登録し...
-
エクセルで、日付を入力すると...
-
CloseとDisposeの違い
-
EXCEL VBA マクロ 実行する度に...
-
UPS警告音を止めたい
-
【Excel VBA】マクロボタンを表...
-
メルカリのメルカードで買い物...
-
VBA エンターキーでイベントに...
-
findは動くがfindnextがマクロ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAで画像を貼り付ける...
-
Excel VBAで他アプリケーション...
-
C#で、画像の、指定した座標の...
-
外付ディスプレイで AutoHotkey...
-
VBでクリックイベントを発生さ...
-
uwscについて、同一の画像(仮...
-
UWSCで特定の文字をクリックす...
-
UWSC画像認識で座標の位置がず...
-
マウスイベントが動かない
-
マウスストーカーのようにカー...
-
コントロール名とそのプロパテ...
-
VBAで ScreenToClient を使いたい
-
UWSファイルの編集?
-
UWSCのCHKIMG関数について
-
Visual Studio .NET 2003:右揃...
-
VBでデスクトップ上のアイコン...
-
バナーにリンクを埋め込む方法
-
UWSCのプログラミングついて教...
-
画像の座標取得
-
UWSCでPEEKCOLORを使い指定ウィ...
おすすめ情報