投稿日 | : 2003/12/08(Mon) 15:13 |
投稿者 | : AK |
Eメール | : kuroki@desu.ne.jp |
URL | : |
タイトル | : Re: 動作 |
> 初心者です。
> lineで描かれた線(座標)にcircleで作った点が始点から終点まで動かすには
> どうしたらよろしいでしょうか?線上を点が動いていくイメージです。
> よろしくお願いします。
こんにちわ。
下記サンプルを参照してください。
意図が間違っていたらすみません。
'フォームにCommandButtonを追加してください。
'(*.frm)
Private Sub Form_Load()
'フォームの初期設定
With Me
.Height = 1750
.Width = 5250
End With
'ボタンの初期設定
With Command1
.Caption = "開始"
.Height = 300
.Width = 600
.Top = 1000
.Left = 15
End With
'線を描画
Line (100, 500)-(5000, 500)
'円を描画
Circle (100, 500), 100
End Sub
Private Sub Command1_Click()
Dim iTmp As Integer
iTmp = 100
'終点までループ
Do While Not iTmp = 5000
iTmp = iTmp + 5
Me.Cls
'線を描画
Line (100, 500)-(5000, 500)
'円を描画
Circle (iTmp, 500), 100
DoEvents
Loop
End Sub