APIのLineDDAの使い方

＜戻る

ここに載せてあるソースコードは、参考のために載せてあります

サンプルコードは、一番下にLZHとしてあります

APIですが本HPサンプルの独自の直線と同じ動作します

AddressOf演算子(コールバック処理)を使っているので改良には注意してください



Option Explicit

Private Sub Command1_Click()
    Dim x As Integer, n As Long
    
    '表示をクリアにして更新します
    Picture1.Cls
    Picture1.Refresh
    
    '座標グラデーションを描きます
    For x = 0 To 300
        
        'LineDDAを使います
        '関数のアドレスをLineDDAに渡します
        LineDDA x, x, x, x / 3 + 150, AddressOf DDALineProc, vbNull
        
        '線を描いていく様子を見るために
        '表示を更新します
        Picture1.Refresh
    
    Next
    For x = 0 To 300
        
        'LineDDAを使います
        '関数のアドレスをLineDDAに渡します
        LineDDA x / 2 + 50, x / 2, x / 2 + 50, x + 150, AddressOf DDALineProc, vbNull
        
        '線を描いていく様子を見るために
        '表示を更新します
        Picture1.Refresh
    
    Next
    
    '表示を更新します
    Picture1.Refresh
    
End Sub

＜戻る

Sample39.lzh

http://www.vector.co.jp/authors/VA015521/