**：
public topbottom, leftright as string
private sub form_click()
if timer1.enabled = false then
timer1.enabled = true
else
timer1.enabled = false
end if
end sub
private sub form_keypress(keyascii as integer)
select case keyascii
case 61
timer1.interval = 10
case 45
timer1.interval = 100
end select
end sub
private sub form_load()
topbottom = "0"
leftright = "0"
end sub
private sub image1_click()
end sub
private sub timer1_timer()
select case topbottom & leftright
case "00"
form1.image1.top = form1.image1.top - 10
form1.image1.left = form1.image1.left - 10
form1.image1.move _
form1.image1.left - 10, form1.image1.top - 10
if form1.image1.top <= 0 then
topbottom = "1"
end if
if form1.image1.left <= 0 then
leftright = "1"
end if
case "10"
form1.image1.top = form1.image1.top + 10
form1.image1.left = form1.image1.left - 10
if form1.image1.top >= _
form1.scaleheight - form1.image1.height then
topbottom = "0"
end if
if form1.image1.left <= 0 then
leftright = "1"
end if
case "01"
form1.image1.top = form1.image1.top - 10
form1.image1.left = form1.image1.left + 10
if form1.image1.top <= 0 then
topbottom = "1"
end if
if form1.image1.left >= _
form1.scalewidth - form1.image1.width then
topbottom = "0"
end if
case "11"
form1.image1.top = form1.image1.top + 10
form1.image1.left = form1.image1.left + 10
if form1.image1.top >= _
form1.scaleheight - form1.image1.height then
topbottom = "0"
end if
if form1.image1.left >= _
form1.scalewidth - form1.image1.width then
leftright = "0"
end if
end select
end sub
心得體會：課上老師留下的作業，讓設計生成動畫的程式，剛開始感覺一頭霧水。不知該從何下手，不得不從網上下了現成的程式。然而程式有點太複雜，慢慢的才開始消化了點，程式主要用的還是時間控制項、select case和if結構。對於一些知識一定要慢慢吃透，學會靈活應用。
用VB繪製正弦動畫曲線
用vb繪製正弦動畫曲線 vb提供了繪圖的基本方法，如pset line circle,能夠繪出點 直線 圓等基本圖形，但沒有提供繪曲線的方法。其實，我們可以靈活運用基本繪圖方法，來繪出所需要的曲線，甚至達到動畫的效果。一 vb座標系介紹 vb裡有三種座標系，螢幕座標系 窗體座標系和窗體內的物件座標系...
急！！！怎麼用VB程式設計控LED
我用的led的通訊協議是這樣的 通訊協議 rs232c電平,19200,無校驗 資料格式 位元組內容注釋 155h 266h 377h 4a總位元組數，數值等於從第5到第n個位元組數，即a n 4,555h 601 02h 700h 8w屏寬 畫素 8 9h屏高 畫素 16 1000h 1100h ...
用vb程式設計給u盤加密
大家一般情況下是怎麼給u盤加密的呢？你是使用u盤加密軟體還是使用其他的一些什麼方法，那麼我現在給大家介紹乙個新的方法，就是使用vb程式設計來給u盤加密。function bytetobin m as byte as string 將位元組型資料轉換成八位二進位制字串 dim c c do while...