掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
動的に線を引くには (ID：82107)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Dim fGap As Single Dim i As Integer Me.AutoRedraw = True Me.CurrentX = 0: Me.CurrentX = 0 fGap = Me.ScaleHeight / 10 For i = 1 To 9 Me.Line Step(0, fGap)-Step(Me.ScaleWidth, 0) Me.CurrentX = 0 Next i Me.Refresh
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.