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で質問しましょう!
似たような質問が見つかりました
- 数学 三角比の相互関係「sinA^2+cosA^2=1」が直角でなくても成り立つ理由について。 これは、三 8 2022/03/31 09:22
- 数学 複素数平面についての問題です。 2点α、βが定められており、それらともう1点γと結ぶ三角形が直角二等 6 2023/06/30 09:47
- 数学 画像の中学2年生の数学の問題について教えていただきたいです。 三角形ADCが二等辺三角形であることと 2 2023/01/29 16:14
- 数学 『直角三角形であれば、辺の比が3:4:5である』ということは成り立ちますか? 10 2022/08/27 04:16
- Visual Basic(VBA) 指定列最終行までのスペースを改行するVBAについて 2 2022/06/01 19:50
- 数学 場合の数、確率 29 導入問題 ( 円周上の鋭角三角形) 4 2023/07/06 18:00
- 数学 円の直径330mmで円の中に正三角形を作りたいのですが、どういう計算で算出できますか? 正三角形の大 6 2022/08/05 19:07
- 数学 中3 円周角の定理の問題です 3 2022/06/29 22:21
- ノートパソコン Open Office.orgのDrawで描いた図形の塗りつぶしをしたい 1 2022/03/22 19:24
- 数学 円に内接する四角形が出てくる証明(添付した写真のような三角形)の時に、 円に内接する四角形の外角はそ 1 2022/06/04 01:19
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAで画像を貼り付ける...
-
UWSCのCHKIMG関数について
-
VBAで ScreenToClient を使いたい
-
Excel VBAで他アプリケーション...
-
UWSCでPEEKCOLORを使い指定ウィ...
-
C#で、画像の、指定した座標の...
-
外付ディスプレイで AutoHotkey...
-
バナーにリンクを埋め込む方法
-
AUTO CAD2007で長方形(四角)を...
-
マウス自動クリックソフトについて
-
VBでクリックイベントを発生さ...
-
scilabで階段状のグラフを描きたい
-
マウスストーカーのようにカー...
-
マウスイベントが動かない
-
もしかして
-
「ご処理進めて頂きますようお...
-
エクセルで、日付を入力すると...
-
VBAでループ内で使う変数名を可...
-
「PC Helpsoft Driver Updated...
-
CloseとDisposeの違い
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAで画像を貼り付ける...
-
Excel VBAで他アプリケーション...
-
C#で、画像の、指定した座標の...
-
外付ディスプレイで AutoHotkey...
-
uwscについて、同一の画像(仮...
-
VBでクリックイベントを発生さ...
-
UWSファイルの編集?
-
NoxPlayerとUWSCのadbの座標に...
-
VBAで ScreenToClient を使いたい
-
バナーにリンクを埋め込む方法
-
UWSCのCHKIMG関数について
-
マウスイベントが動かない
-
UWSC画像認識で座標の位置がず...
-
VBA HTML要素または文字の座標...
-
ピクチャーボックスのスケール...
-
画像の座標取得
-
LineTo,MoveToについて
-
puctureBoxの一部の色を変えた...
-
bitbltからの画像保存ができま...
-
マウスカーソルの移動
おすすめ情報