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

名前

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

本文 恐らく、ScaleWidthとScaleHeightに値を代入しているからだと思います。 ScaleWidthとScaleHeightに値を入れると、例えば、pctBarが800×800ドット だとしても、サイズが1000×1000になってしまいます。 画面に表示するときの最小単位はドットですので、実際の座標は Int(800/(間隔 * i))となり誤差が生じるので不均等になります。 > pctBar.ScaleWidth = 1000 > pctBar.ScaleHeight = 1000 じゃなくて pctBar.Width = 1000 + pctBar.Width - pctBar.ScaleWidth pctBar.Height = 1000 + pctBar.Height - pctBar.ScaleHeight とすれば、うまくいくと思います。