對於網頁設計，通常會找不到合適或無頭緒時，來這邊看看吧！
介紹超過 30 個非常有用的 jQuery 外掛工具
參考資料--->30+ Helpful jQuery Plugins for Design
2010年4月28日 星期三
2010年4月20日 星期二
2010年4月19日 星期一
提升 CSS 的能力
善用 CSS 除了美化版面還能夠減少"重工"，請特別注意，每一瀏覽器對於 CSS 的支援，並不一致，上線前多多測試。
參考資料--->Improve Your CSS Skills With Pure CSS UI Components
參考資料--->Improve Your CSS Skills With Pure CSS UI Components
2010年4月14日 星期三
2010年4月2日 星期五
只能輸入數字的寫法
以 vb 為例，在實作前必須將 textbox 的 IMEMode 設為 off，原因在中文輸入法時，其numpad(右邊的數字鍵盤)，所接收到的 KeyCode 全為 229。
程式如下：
Private Sub txtNum_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim numArray As Variant
numArray = Array(8, 17, 37, 39, 46, 67, 86, 110, 190)
If 47 < KeyCode And KeyCode < 58 Then 'Numkey 0-9
Exit Sub
ElseIf 95 < KeyCode And KeyCode < 106 Then 'Numpad 0-9
Exit Sub
Else
num = 0
For i = 0 To UBound(numArray)
If numArray(i) = KeyCode Then num = numArray(i)
Next
KeyCode = num
End If
End Sub
說明：除了判斷0~9之外也加入判斷 backspace、delete、"."、左/右方向鍵、numpad 的 "."
程式如下：
Private Sub txtNum_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim numArray As Variant
numArray = Array(8, 17, 37, 39, 46, 67, 86, 110, 190)
If 47 < KeyCode And KeyCode < 58 Then 'Numkey 0-9
Exit Sub
ElseIf 95 < KeyCode And KeyCode < 106 Then 'Numpad 0-9
Exit Sub
Else
num = 0
For i = 0 To UBound(numArray)
If numArray(i) = KeyCode Then num = numArray(i)
Next
KeyCode = num
End If
End Sub
說明：除了判斷0~9之外也加入判斷 backspace、delete、"."、左/右方向鍵、numpad 的 "."
訂閱：
文章 (Atom)