VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2003/12/08(Mon) 16:17
投稿者： もし
Ｅメール：
ＵＲＬ：
タイトル： Re^2: 動作

> > 初心者です。
> > 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

返信ありがとうございます。やってみます。またよろしくお願いします。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -