■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#1393-2drawwidthキキ2002-07-04(木) 02:45
     #1394-2RE#1393:drawwidthレベル112002-07-04(木) 02:55
     #1395-2RE#1393:drawwidthせつら2002-07-04(木) 02:56
#1393-2
drawwidth
完全な素人なんですが・・・

form1.drawwidth=数
とかって書きますよね?
実行画面でラベルをクリックすると
「線の太さを変える」
というプログラムを作りたいんですが
form1はこのままだとできないんですが
どう書けばいいんですか?
質問がわかりにくいかもしれませんがお願いします
#1394-2
RE#1393:drawwidth
> form1.drawwidth=数
> とかって書きますよね?
> 実行画面でラベルをクリックすると
> 「線の太さを変える」
> というプログラムを作りたいんですが
> form1はこのままだとできないんですが
> どう書けばいいんですか?

プロパティや関数名が判っている場合、とりあえずヘルプを調べた方が良いです。
大抵は使用例が載っています。
以下のサンプルは DrawWidth のヘルプの使用例です。

Private Sub Form_Click()
   Dim I                     ' 変数を宣言します。
   DrawWidth = 1               ' 最初のペンの幅を設定します。
   PSet (0, ScaleHeight / 2)      ' 描画開始位置を設定します。
   ForeColor = QBColor(5)         ' ペンの色を設定します。
   For I = 1 To 100 Step 10      ' ループします。
      DrawWidth = I            ' ペンの幅を再設定します。
      Line -Step(ScaleWidth / 10, 0)    ' 線を描画します。
   Next I
End Sub

> 質問がわかりにくいかもしれませんがお願いします
質問はわかりにくくないですよ。
ただあえて注文付けさせて戴くとすると、全角英数字でプログラムの関数名やコントロール名を
書いて欲しくないなぁ・・・なんて思ったりして。だって、個人差はあると思うけど読みづらいし
#1395-2
RE#1393:drawwidth
実現方法が判っているのに、何が問題になっているのでしょうか? 今はこんな感じなんですかね?

Private Sub Label1_Click()
    DrawWidth = 30
    Line (0, 0)-(3000, 2000)
End Sub
このページと関連する記事:
#15985-0グラフ2001-05-07(月) 12:03
#14113-0座標のメモリと値の表示2001-01-25(木) 11:22
#4566-0印刷時のLine (x,y)-(x1,y1),,B の線の太さについて、、、1999-12-24(金) 09:25
#24270-0PictureBoxに描画したモノを消すには?2000-06-26(月) 22:44
#24544-0破線、一点鎖線の線幅の変更方法2001-11-13(火) 13:28
#1-1はじめて使わせていただきます。2002-02-08(金) 13:06
#11627-1線の太さの設定2000-06-14(水) 15:28
#11713-1PictuerBoxに図を書きたいのですが・・・2000-06-16(金) 15:03
#5369-0線の太さを変えるには2000-01-27(木) 18:30
#22414-0関数をかきたい!2001-08-14(火) 16:11
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)