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

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

> > > 初心者です。
> > > 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
>
> 返信ありがとうございます。やってみます。またよろしくお願いします。

度々すいません。
VBで座標データをDXFファイル(表示させると三角形)から読込み、その座標上を点が移動するにはどうしたらよろしいでしょうか？タイマーを使用してintervalを変えれるようにです。
よろしくお願い致します。

下がDXFファイルから座標を読み込んで表示するコードです。

Open FileName For Input As #1
        Do Until EOF(1)
            n = n + 1
            Line Input #1, DXF
            
            If DXF = "AcDbLine" Then
                i = i + 1
                Line Input #1, DXF
                If DXF = " 10" Then
                    Line Input #1, DXF      '10
                    a(i, 1) = Val(DXF)      'X座標その１(DXFを数値型に変換し、a(i,1)に格納)
                    'MsgBox a(i, 1) & "です。"
                    Line Input #1, DXF      'X座標その１
                    Line Input #1, DXF      '20
                    a(i, 2) = Val(DXF)      'Y座標その１(DXFを数値型に変換し、a(i,2)に格納)
                    Line Input #1, DXF      'Y座標その１
                    Line Input #1, DXF      '30
                    Line Input #1, DXF      '0.0
                    Line Input #1, DXF      '11
                    a(i, 3) = Val(DXF)      'X座標その２(DXFを数値型に変換し、a(i,3)に格納)
                    Line Input #1, DXF      'X座標その２
                    Line Input #1, DXF      '21
                    a(i, 4) = Val(DXF)      'Y座標その２(DXFを数値型に変換し、a(i,4)に格納)
                
                For i = 1 To n
                    Picture1.Line (a(i, 1), a(i, 2))-(a(i, 3), a(i, 4)), 5
                Next i
                
                End If

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

- Web Forum -