查看完整版本: VB.Net Make Windows Dash Code

論壇 › Visual Basic 語言 › VB.Net Make Windows Dash Code

opabravo 發表於 2016-12-3 08:34 PM

VB.Net Make Windows Dash Code

Dim Dev As Integer
            While Dev < 10
                Me.Location = New Point(Me.Location.X + 20, Me.Location.Y)
                System.Threading.Thread.Sleep(30)
                Me.Location = New Point(Me.Location.X - 20, Me.Location.Y)
                System.Threading.Thread.Sleep(30)
                Me.Location = New Point(Me.Location.Y + 1, Me.Location.X)
                System.Threading.Thread.Sleep(30)
                Me.Location = New Point(Me.Location.Y - 1, Me.Location.X)
                System.Threading.Thread.Sleep(30)
                Dev += 1
            End While

...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div><div></div>