VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2007/01/26(Fri) 15:35 |
| 投稿者 | ： FR |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： ピクチャボックスで横ジマを表示させるには？ |
フォームにピクチャボックス1つ（picCanvas）とコマンドボタン1つを配
置しています。コマンドボタンをクリックしたらピクチャボックスを青
色とピクチャボックスのBackColorのグレーの2色で横ジマ模様を表示さ
せたいんですがうまくいきません。ピクチャボックスのHeightは2415で
Widthは3255です。
途中まで作った下記のコードだとボタンをクリックするとフォームが横
ジマ模様になってしまいます。また、Lineコードを何度も記述していま
すがこれを何度も書かないようにもしたいんですが、イマイチわかりま
せん。教えてください。よろしくお願いします。
Private Sub Command1_Click()
picCanvas.Cls
picCanvas.Scale (0, 0)-(2415, 3255)
DrawWidth = 25
Line (0, 300)-(ScaleWidth, 300), vbPaleBlue
Line (0, 1000)-(ScaleWidth, 1000), vbPaleBlue
Line (0, 1700)-(ScaleWidth, 1700), vbPaleBlue
Line (0, 2400)-(ScaleWidth, 2400), vbPaleBlue
End Sub
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）