No.2ベストアンサー
- 回答日時:
塗りつぶしですが、そのやり方でいいのですが、円弧では塗りつぶしは出来ません。
円の場合だけです。DrawWidth = 1
FillStyle = 0
FillColor = QBColor(7)
Circle (CX, CY), Rad, QBColor(6)
Line (CX + Rad, CY)-(CX, CY), QBColor(6)
Line (CX, CY)-(CX, CY - Rad), QBColor(6)
円弧の場合は別の方法なんですか。
なるほど,これでできるようになりました。
すいませんでした,変数の説明も何も書かずに質問しちゃって。
読みづらかったのに…本当に有難うございました。
No.3
- 回答日時:
塗りつぶしでしたら、API関数を使ってみたら如何ですか?
使い方は至って簡単。下記例なら、指定した(x座標, y座標)からQBColor(i)にぶち当たるまで正に洪水の如く塗りつぶしてくれます。(塗りつぶす色は現在、フォームのFillcolorプロパティに設定されている色です)
でわ。
Private Declare Function FloodFill Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long 'API関数の宣言
Dim ret As Long 'APIの戻り値
------------------------------------------------------
ret = FloodFill(hdc, x座標, y座標, QBColor(i))
お返事有難うございました。
なんか,floodfillのfloodあたりが洪水って感じですね。
まだ,VBを始めたばかりなのでAPIがいかなるものなのかわからないので
この例の意味するところはまったくわかりませんが,とりあえず代入してみると
うまく塗りつぶしてくれました。
また,もうちょっとレベルアップしてからAPI関数なるものに挑戦します。
手持ちの参考書にもAPIについてなんかかいてあるし…
またAPIに触ったときにも教えてください。
No.1
- 回答日時:
フォームのAutoRedrawプロパティをTrueに設定してください。
これで、円が出てくるはずです。AutoRedrawについてはHELPを見てください。
この回答への補足
autoredrawにしたらちゃんと円が出てきました。
そこでもうひとつ質問いいですか?
その中を塗りつぶしたいんですけれども,どうしたらいいんですか?
DrawWidth = 1
FillStyle = 0
FillColor = QBColor(7)
Circle (CX, CY), Rad, QBColor(6), Pi / 2, Pi / 2 + 3 * Pi / 2 '時計の枠の円
Line (CX + Rad, CY)-(CX, CY), QBColor(6)
Line (CX, CY)-(CX, CY - Rad), QBColor(6)
こんなんじゃダメですか?お願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) このプログラミングをどう組みますか? Googlecolabでやってるんですが、出来る方お願いします 1 2022/07/13 10:52
- 日本語 助詞「は」と「が」の使い方の違いを教える簡単な方法 21 2022/08/16 08:06
- その他(プログラミング・Web制作) pythonリストの特定の値を表示htmlで表示できない 2 2022/05/14 05:48
- ノートパソコン パソコンの内臓グラフィックのメモリでわからないことがあります 4 2022/05/22 21:37
- C言語・C++・C# C言語初心者です、、、お助けください 2 2023/03/14 20:08
- その他(プログラミング・Web制作) どういうプログラムで組みますか?google colabでやってるんですけど、出来る方お願いします。 1 2022/07/06 09:28
- Java java 次の機能を有するメソッドを自クラスに作成し、実装したいです。 機能 名前判定機能 →名前が 3 2022/06/16 16:08
- その他(プログラミング・Web制作) どういうプログラムで組みますか?google colabでやってるんですけど、出来る方お願いします。 1 2022/07/17 18:41
- Java java 飾子を付けること(public static・・・) ・コンソールへの出力処理はmainメ 2 2022/06/16 19:34
- モニター・ディスプレイ ノートPCから 外部WQXGAへ表示したい 4 2022/11/22 11:00
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAで画像を貼り付ける...
-
Excel VBAで他アプリケーション...
-
UWSCでPEEKCOLORを使い指定ウィ...
-
UWSCのCHKIMG関数について
-
JPGの画像ファイルの結合
-
UWSCで特定の文字をクリックす...
-
ピクチャーボックスのスケール...
-
C#で、画像の、指定した座標の...
-
外付ディスプレイで AutoHotkey...
-
「ご処理進めて頂きますようお...
-
VBA SaveChanges 上書きされない
-
Pythonでgif画像が上手く作れない
-
VBAでループ内で使う変数名を可...
-
CloseとDisposeの違い
-
switch の範囲指定
-
VBA エンターキーでイベントに...
-
エクセルで、日付を入力すると...
-
メルカリのメルカードで買い物...
-
VB.net(VB)で、フォームにExcel...
-
findは動くがfindnextがマクロ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAで画像を貼り付ける...
-
Excel VBAで他アプリケーション...
-
C#で、画像の、指定した座標の...
-
VBでクリックイベントを発生さ...
-
外付ディスプレイで AutoHotkey...
-
マウスイベントが動かない
-
VBAで ScreenToClient を使いたい
-
バナーにリンクを埋め込む方法
-
NoxPlayerとUWSCのadbの座標に...
-
UWSC画像認識で座標の位置がず...
-
VBでデスクトップ上のアイコン...
-
UWSファイルの編集?
-
UWSCのCHKIMG関数について
-
画像中のある座標でマウスオー...
-
VBA HTML要素または文字の座標...
-
JPGの画像ファイルの結合
-
マウスストーカーのようにカー...
-
Unityでピクセル情報を取得する...
-
マウス位置の色を得る
-
uwscについて、同一の画像(仮...
おすすめ情報