看一看

<P>修改了一下自动滚屏的代码，大家看看效果</P><P>前提：VB，Form+Map+Timer</P><P>Private strDirection As String</P><P>Private Sub Map1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    Timer1.Enabled = False
    If X > Map1.MapScreenWidth - 10 Then
        strDirection = "R"
        Timer1.Enabled = True
    Else
        If X < 10 Then
            strDirection = "L"
            Timer1.Enabled = True
        Else
            If Y > Map1.MapScreenHeight - 10 Then
                strDirection = "U"
                Timer1.Enabled = True
            Else
                If Y < 10 Then
                    strDirection = "D"
                    Timer1.Enabled = True
                End If
            End If
        End If
    End If
    
End Sub</P><P>Private Sub Timer1_Timer()</P><P>    Select Case strDirection
        Case "R"
            Map1.CenterX = Map1.CenterX + 0.5
        Case "L"
            Map1.CenterX = Map1.CenterX - 0.5
        Case "U"
            Map1.CenterY = Map1.CenterY - 0.5
        Case "D"
            Map1.CenterY = Map1.CenterY + 0.5
    End Select</P><P>End Sub
</P>

<img src="images/post/smile/dvbbs/em01.gif" />

111

?

怎么正？

MAPX如何从文本文件读取数据,自动进行绘图?

hao

<P>看不见呀</P>

<P>OK</P>