最近將jQueryMobile的庫更新到最新版後,發現以前用 jQueryMobile 寫的一些東西, header 導覽列上的[上一頁] 按鈕統統不見了。這個功能挺貼心的,可以自動為你的 Web App 在不同頁面之間跳轉的時候增加導航功能。於是翻 jQueryMobile 的官方文檔,在不起眼的地方發現了這樣一句話:jQuery Mobile has a feature to automatically create and append "back" buttons to any
托3.8節的福.... 放假的人多了,所以昨天的業務比較少。。。終於專心下來寫這個軟體了,主體部分在今天完工了... 最終決,3字的詞,也還全拼和簡拼相容,僅4字的保持純簡拼。。。SO, 又多了一段臨時的code... Dim B As String, NewB As String Dim c As String Dim l As Integer, i As Integer Open App.Path & "/3ma.txt" For
重碼,一直是IME必須考慮的。。。所以,在這一步。。不得不分析一下。。考慮到重碼不可能避免。。。決定只對10個以上重碼進行分析與最佳化。。因為10個以下選擇一下還是比較方便的。一經分析下來,不得不再說說王永民的偉大了。。。五筆重碼>10的僅23條,但拼音卻的卻有495條之多。。 Dim BM As String, OldBM As String Dim CI As String, OldCI As String Dim JS As Long Dim n As
基本工作都完成了。。。不得不再做做重複編碼分析.... 因為生平最恨沒效率的事,重複的事.... code.... Dim BM As String, OldBM As String Dim CI As String, OldCI As String Dim JS As Long Dim n As Integer Form5.Show Form5.Label1.Caption = "正在分析編碼..." Set rs =
Dim HomePath As String 'WIN2K之後的系統 If GetOStype().blnW2K Then HomePath = Environ("HOMEDRIVE") & Environ("HOMEPATH") Else HomePath = Environ("windir") 'Win9x End If
'取得表單控制代碼Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Integer, ByVal wCmd As Integer) As IntegerPublic Const GW_HWNDPREV As Short = 3Public Const GW_HWNDNEXT As Short = 2Public Const GW_HWNDFIRST As Short = 0Public Const GW_OWNER As
提取需要相容全拼的2字片語,又是臨時程code.... 用code產生code, 用code為code服務... 也許,這就是編程的樂趣吧。。。 Dim B As String Dim C As String Dim n1 As Integer Dim n2 As Integer Set rs = ADO.CreateRecordset("SELECT * FROM YS_PY") While rs.EOF = False '如果EOF為真,則表示"遊標"