2009-05-02 12:50:59
分類：提高班學習
為了牛人展示，我們也算是好好練練手哈~ 小兵主刀的，「超酷超炫石英鐘」，很好很大。
可是在如何判斷載入指標問題上卡殼了，可是如此難題經我破解了哈~
如是，我就有了如下的總結哈~
（由於水平有限，恐有解釋不到、錯誤之處，還請大家不吝斧正~）
這部分的構思在整個程式來說有著舉足輕重的作用，下面我們來破解一下如何據實載入表盤指標。
form1/form2/form3/form4 分別為主窗體、時針窗體、分針窗體、秒針窗體。
下面**實現的是如何具體地載入時、分、秒錶盤指標的操作：
private sub timer1_timer() static hora as integer, minutos as integer, segundos as integer, x as string, frame as long x = format(now, "hh:mm:ss") '格式化當前時間 hora = val(mid$(x, 1, 2)) mod 12 '產生0~11 的數字 minutos = val(mid$(x, 4, 2)) '讀取相應的分 segundos = val(mid$(x, 7, 2)) '讀取相應的秒 with form2 frame = ((hora mod 12) * 2 - (minutos > 30)) * ((.picture1.height / 24)) '分析可知表盤時針所在的ph.bmp影象中共有24個指標，分別對應0~23；而其中（minutos>30）是bolloean 型別，只有0和1值；由於原來的12 個對應於現在的24個，所以有(hora mod 12 )* 2;在（picture1.height/24）是說將ph.bmp影象均分為24分，也就是每個表盤時針是等大的分開的，排列為一隊，這就有點那個陣列的意思哈~~~ 那麼整個的frame也就是表示的現在系統時間相對應的那個指標在ph.bmp中的位置/高度。 .picture2.paintpicture .picture1,0,0, .picture1.width, .picture1.height / 24, 0, frame, .picture1.width, .picture1.height / 24 '具體需要解決的問題是paintpicture如何使用：object.paintpicture picture, x1, y1, width1, height1, x2, y2, width2, height2, opcode x1,y1 :指的是object上繪製picture1的目標座標，也就是例項中的picture2上畫複製picture1的座標點，說白了也就是picture2裡的東西放到picture1的位置座標。 width1,height1:指的就是寬、高，也就是大小了。就是提前在picture1上圈定乙個範圍用來放picture2的東西。 x2,y2:也就是裁剪區的座標，說白了是，裁剪的座標始點，那麼裁剪就是從這裡開始的，而不是到這裡為止。 width2,height2:對應的就是源裁剪區，也就是你要裁取的大小範圍。 那麼這裡的 0,frame 就是對應到了 hp.bmp 時針表針影象裡具體哪個表針的位置了。如此而已，超讚視覺效果的表針就算是從影象中載入成功了。 end with '分針影象由四個.bmp影象組成。60個分針指標由picture1（0）、picture1（1）、picture1（2）picture1（3）分別承載。 if minutos < 15 then 'minutos是乙個0~14的數 with form3 frame = minutos * (.picture1(0).height / 15) .picture2.paintpicture .picture1(0), 0, 0, .picture1(0).width, .picture1(0).height / 15, 0, frame, .picture1(0).width, .picture1(0).height / 15 '同以上時針的載入分析。 end with goto siga '進行秒針的判斷、載入，優化程式，提高效率。 end if if minutos > 14 and minutos < 30 then '優化查詢指標。 minutos = minutos - 15 with form3 frame = minutos * (form3.picture1(1).height / 15) .picture2.paintpicture form3.picture1(1), 0, 0, form3.picture1(1).width, form3.picture1(1).height / 15, 0, frame, form3.picture1(1).width, form3.picture1(1).height / 15 end with goto siga end if if minutos > 29 and minutos < 45 then minutos = minutos - 30 '產生的總是0~14 間的數 with form3 frame = minutos * (.picture1(2).height / 15) .picture2.paintpicture .picture1(2), 0, 0, .picture1(2).width, .picture1(2).height / 15, 0, frame, .picture1(2).width, .picture1(2).height / 15 end with goto siga end if if minutos > 44 then minutos = minutos - 45 with form3 frame = minutos * (.picture1(3).height / 15) .picture2.paintpicture .picture1(3), 0, 0, .picture1(3).width, .picture1(3).height / 15, 0, frame, .picture1(3).width, .picture1(3).height / 15 end with end if siga: '具體判斷秒針載入 if segundos < 15 then with form4 frame = segundos * (.picture1(0).height / 15) .picture2.paintpicture .picture1(0), 0, 0, .picture1(0).width, .picture1(0).height / 15, 0, frame, .picture1(0).width, .picture1(0).height / 15 end with goto fim end if if segundos > 14 and segundos < 30 then segundos = segundos - 15 with form4 frame = segundos * (.picture1(1).height / 15) .picture2.paintpicture .picture1(1), 0, 0, .picture1(1).width, .picture1(1).height / 15, 0, frame, .picture1(1).width, .picture1(1).height / 15 end with goto fim end if if segundos > 29 and segundos < 45 then segundos = segundos - 30 with form4 frame = segundos * (.picture1(2).height / 15) .picture2.paintpicture .picture1(2), 0, 0, .picture1(2).width, .picture1(2).height / 15, 0, frame, .picture1(2).width, .picture1(2).height / 15 end with goto fim end if if segundos > 44 then segundos = segundos - 45 with form4 frame = segundos * (.picture1(3).height / 15) .picture2.paintpicture .picture1(3), 0, 0, .picture1(3).width, .picture1(3).height / 15, 0, frame, .picture1(3).width, .picture1(3).height / 15 end with end if fim: '為空，已完成了對時間指標的載入過程，如是就直接跳轉到end sub。 end sub
表盤圖指標圖
HTML CSS製作炫彩的數字時鐘
html css製作炫彩的數字時鐘 效果圖如下 html部分 如下 lang zh hans charset utf 8 name viewport content width device width,initial scale 1.0 數字時鐘title rel stylesheet href ...
炫彩流光按鈕 CSS HTML
寫在前面 你若要喜愛你自己的價值，你就得給世界創造價值。歌德 效果圖 三個絕美的樣例 給按鈕新增乙個漸變的背景顏色 將背景的大小放大到原來的若干倍，可以自己設定，這樣做是為了讓漸變的效果更明顯，同時後續實現流光的效果 給字型設定text shadow屬性，多設定幾個可以增加亮度 當滑鼠經過時，實現流...
炫彩按鈕原始碼分析
用基礎css做乙個有一點炫酷的流光按鈕，不止按鈕，只要是盒子就行。1.先定義乙個盒子當做按鈕，如我就用a標籤 button 2.先給a標籤寫基礎的樣式，比如長寬等等 guang注意 其中一些屬性用處 text transform uppercase 全部換成大寫字母。background linea...