VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2004/02/29(Sun) 10:47 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^7: 画面に正確な長さの線を引く |
> Private Sub Command3_Click()
> Me.ScaleMode = vbTwips 'twips単位
> With Line3
> .BorderWidth = 5 '見やすくするため
> .X2 = .X1 + Screen.Width * 30 / (12 * 25.4) '３０ｍｍの長さ
> End With
> End Sub
上記の場合15インチのモニターで 800*600 1280*1024 1400*1050 の解像度
で使用したらどうなりますか？
測定は .BorderWidth = 1 で測ってみて下さい。
Debug.Print Screen.Width / Screen.TwipsPerPixelX で解像度が求まります。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）