Private Sub Form_Load()
Form1.ScaleMode = 0
Form1.Scale (-10, 10)-(10, -10)
Form1.Line (-10, 0)-(10, 0)
Form1.Line (0, -10)-(0, 10)
End Sub
とやって座標画面を作ろうとしましたが
Lineが表示されません。
仕方が無いので
Private Sub Form_Load()
Form1.ScaleMode = 0
Form1.Scale (-10, 10)-(10, -10)
End Sub
Private Sub Form_Activate()
Form1.Line (-10, 0)-(10, 0)
Form1.Line (0, -10)-(0, 10)
End Sub
とやりました。
そういうものだとあきらめるしかないのでしょうか?
No.2ベストアンサー
- 回答日時:
仕様です。
loadされた時点ではformそのものはまだメモリ内にしかなく、描画されていません。
ですのでformが描画された後にユーザ描画を行うようコーディングします。
No.5
- 回答日時:
No.4ですが、すみませんねー。
Form1.Scaleを見過ごしてました。よく見ればすぐわかるんですけどね。(^^;
画面中央部を通る縦横一杯の直線が表示されますね。
フォームの大きさを変えても、下記のように変数を使ってフォームのサイズを取得し表示すれば、常に中央に線を引いてくれるようにもできます。
MeはForm1と同じ自身のフォームのことなのでForm1でもOKです。
Private Sub Form_Load()
Me.ScaleMode = 0
End Sub
Private Sub Form_Resize()
Dim xx As Long, yy As Long
Me.Cls
xx = Me.ScaleWidth / 2: yy = Me.ScaleHeight / 2
Me.Scale (-xx, yy)-(xx, -yy)
Me.Show
Me.Line (-xx, 0)-(xx, 0)
Me.Line (0, -yy)-(0, yy)
End Sub
No.4
- 回答日時:
Form1.ScaleMode=0 ・・・ユーザー定義の単位なので、単位がどうなってるの?
それによっては、画面領域外に描画しているのでは。
定義を=3(ピクセル)とか、=6(mm)とかに変えて見た場合は?
Line文の前に Me.Show を入れForm表示にしてから描画。
No.3
- 回答日時:
No1さんの言ってる事と同じになるんだけど・・・
ウィンドウが隠れた時に書いているのが問題じゃないかと思うので、Form1.Line以前に
Form1.Visible = True
または
Form1.Show
を入れるでは?
または、
Form1.AutoRedraw = True
にしておけば他のウィンドウに隠れた場合の再描画を考える必要も無いので、手っ取り早いのでは?
No.1
- 回答日時:
Loadの時点ではフォームが表示されていないので、描画内容は実質無効になってしまっているのでは?
Paintイベントで描画するのが普通かと思います。
あるいは描画内容を保存するプロパティがあったような気もしなくもないですが…
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ちょっと先の未来クイズ第2問
9月9日(月)に発表される「第3回子どもマネー川柳」に入賞する川柳を考えてこちらに投稿してください。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
Form_Load と Form_Activate のタイミング
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
word
-
VB6,リストボックスの特定行の...
-
ビットマップを表示させる(MFC)
-
移動する線を描画したい(何と...
-
NVIDIAのシェーダーキャッシュ
-
C++, MFCにてゲームプログラミング
-
VBAにGDI+を参照させる方法
-
TextBoxに文字を書いても表示さ...
-
逐次的なグラフ表示の方法
-
[VB.net] DataGridViewの列ヘッ...
-
OnDrawが呼び出されません
-
クライアント領域のコントロー...
-
Labelの文字をスクロールする際...
-
ウインドウサイズを変更しても...
-
UpdateData( FALSE); による文...
-
VB.netでのライン描画方法がわ...
-
Delphiでキューを作りたい
-
MFCでOnPaintのタイミング
-
CScrollViewの使用方法について
-
panelのスクロール表示について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VB6,リストボックスの特定行の...
-
word
-
NVIDIAのシェーダーキャッシュ
-
MFCでOnPaintのタイミング
-
Minecraft 統合版(PC)の描画距...
-
google Colabでmatplotlibの描...
-
TextBoxに文字を書いても表示さ...
-
[VB.net] DataGridViewの列ヘッ...
-
UpdateData( FALSE); による文...
-
OneNote 2010 文字と描画がずれる
-
Labelの文字をスクロールする際...
-
InvalidateRectの使い方について
-
VB.netでのライン描画方法がわ...
-
CStaticコントロールの静的イメ...
-
VC++プログラムをつかったBMP画...
-
WM_SIZEとWM_SIZINGの違い (Win...
-
エクセルでガンチャートを作成...
-
c言語を使いダイアログにbmpを...
-
WM_PAINT
-
MFCのタイマーのつかい方を教え...
おすすめ情報