等間隔で線をかいたのに、間隔が等しくならない (ID:87232)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 そんな誤差が出る面倒な計算しなくても、 均等に線を引くだけならこれだけでいいんじゃないの？ Private Sub cmdDraw_Click() Dim i As Single, 間隔 As Single, 太さ As Single 間隔 = 10 太さ = 5 pctBar.Cls pctBar.ScaleMode = vbPixels For i = 0 To pctBar.ScaleWidth Step 間隔 pctBar.Line (i, 0)-(i + 太さ, pctBar.ScaleHeight), , BF Next End Sub >Dim i, 間隔, 太さ, 最大値 As Integer それと、 この変数の宣言の仕方だと最大値以外は全部Variantになるよ