代碼如下void MainFormKeyDownobject sender， KeyEventArgs e int intDev = 10switcheKeyCode case KeysLeftImage1Left = intDevbreakcase KeysRightImage1Left += intDevbreakcase KeysUpImage1Top = intDevbreakcase KeysDownImage1Top += intDevbreak。

lt！下面是向上滾動代碼 var speed=30 這個是速度值越大速度越慢 butong_net_top2innerHTML=butong_net_top1innerHTML 克隆butong_net_top1為butong_net_top2 function Marquee1 當(dāng)滾動至butong_net_top1與butong_net。

版本 2 子程序 __啟動窗口_創(chuàng)建完畢 時鐘1時鐘周期 ＝ 100 子程序 _時鐘1_周期事件 圖片框1頂邊 ＝ 圖片框1頂邊 － 1 如果正確請采納，或者追加提問。

ltmarqueeltmarquee 往右是ltmarquee direction=rightltmarquee 往上是ltmarquee direction=upltmarquee 往下是ltmarquee direction=downltmarquee 如果需要在當(dāng)鼠標(biāo)移動到圖片上時停止?jié)L動，就在ltmarquee里加onmouseover=stoponmouseout=start，例如ltmarquee direction=down onmouseover=sto。

zidongCaption = quot自動quotshoudongCaption = quot手動quottuichuCaption = quot退出quotTimer1Enabled = True Timer1Interval = 500 Picture1Picture = LoadPicturequotquot #39隨意加載一個圖片，先單擊自動加載，而后才可以手動 End Sub Private Sub shoudong_ClickTimer1Enabled = False End Sub Private。