其他

將2字詞條轉成全拼的程式碼... 用完就要被拋棄了。。。突然發現好殘忍。。。可憐的code   Dim B As String, NewB As String   Dim c As String                Open App.Path & "/2ma.txt" For Input As #1    Open App.Path & "/2ma_new.txt" For Append As #2                        Do          

托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 =

因為五筆難學，所以特別對某些字進行容錯。。這樣可以明顯提高輸入效率。。例如：張　五筆全碼是XTAY ... 但是XTA也沒有其它的字，所以給予容錯處理...你輸入XTA也可以打出張字。。。當然了，張字的二級簡碼是XT... 這裡只是舉例一下。。。要進行此項處理，首先得提取所有單字4碼的詞條, code如下：   Dim BM As String   Dim CI As String   Dim JS As Long, n As Long       Form5.Show       Form5.

因為容錯是少輸一碼情況下，仍為可唯一漢字時，才可以輸出。。。但是可能有多少漢字存在此情形。。。所以，只能為其中一個漢字進行容錯。。。所以必須bypass掉其它的漢字編碼。。。代碼如下：   Dim BM As String, OldBM As String   Dim CI As String, OldCI As String    Open App.Path & "/3ma.txt" For Input As #1          Do While EOF(1) = False   

 .NET中的List<T>非常方便，但是很遺憾得是沒有內建更方便的一些排序、尋找函數。比如說，Sort()和Find()方法都包含在List<T>裡，但果你想使用，你得自己寫函數。這往往會讓我們感到不爽。本文告訴你，其實這些Sort() Find()方法想要的都只是一個一句話delegate而已。       主要討論以下三個方法：  List<T>.Sort() List<T>.Find() List<T>.Exist()

因為有人反應，某些在五筆中可以打出來的詞語在拼音中無法打出來.... 也有一些在拼音中可以打出的詞語在五筆中無法打出來...這是因為，五筆和拼音編碼時是分別處理的。。所以可能彼此沒有cover到。。因此必須首先提取五筆中沒有的拼音詞條和拼音中沒有的五筆詞條... code如下:Dim rs1 As RecordsetDim BM1 As StringDim CI1 As StringDim BM As StringDim CI As StringDim fg As Integer, js As

        Dim HomePath As String            'WIN2K之後的系統        If GetOStype().blnW2K Then          HomePath = Environ("HOMEDRIVE") & Environ("HOMEPATH")        Else          HomePath = Environ("windir")          'Win9x        End If           

IE9在官方開發部落格中表示他們預設將會使用比較短的 User-Agent 識別字元。這 將會改善整體效能、互通性和相容性。IE9將不會再繼續把.NET 等軟體附加的資訊加入 UA 字串之中。網站開發人員們需要注意新版字串同IE8相比的四個主要變化：1、應用程式版本從“Mozilla/4.0”升級到“Mozilla/5.0”，以和其他各瀏覽器匹配。這一改動表明IE9是互通性良好的瀏覽器。2、版本標識從“MSIE 8.0”升級到“MSIE9.0”。3、Trident核心版本從“Trident/4.

'取得表單控制代碼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

      'Windows 2K之前的作業系統（Win9x）      If Not GetOStype().blnW2K Then              '修複方法：將Hidden值設為1(0 - 不顯示隱藏與系統檔案 1 - 顯示所有 2 - 不顯示隱藏)        Call sdaSetRegValue("HKEY_USERS", ".DEFAULT/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced",

Private Structure PRINTER_DEFAULTSDim pDatatype As StringDim pDevMode As IntegerDim DesiredAccess As IntegerEnd StructurePrivate Const PRINTER_ACCESS_ADMINISTER As Integer = &H4Private Declare Function OpenPrinter Lib "winspool.drv" Alias

1991年4月，Visual Basic 1.0 Windows版本發布 92年9月，Visual Basic 1.0 DOS版本發布。 (為了讓程式員從BC7.1向VB過渡。。。)------------ 1 -----------　　1992年11月，VB2.0發布。它對於上一個版本的介面和速度都有所改善。------------ 1 -----------　　1993年夏天，VB3.0發布，分為標準版和專業版。其中包含一個資料引擎，可以直接讀取Access資料庫。----------- 2

因為Windows7的UAC機制限制非Admin許可權的程式存取Program Files和Windows目錄的檔案等一些限制，因此導致很多舊的VB6（包括所有Visual系列）程式在Windows7無法運行或運行異常。原因是這些舊的程式預設是沒有許可權申請設定的，所以當然就沒有Admin許可權了。因此，您必須通用採用右鍵“以管理員身分運行”的方式解決。但依然有一些程式還是無法運行，這時可以勾選以下選項以相容模式運行即可。

*ActiveX控制項　　ActiveX控制項與客戶應用程式運行在同一個進程中。可用於VB或者其它開發工具及WEB瀏覽器的ActiveX控制，與一般的VB應用程式設計大同小異。可以為ActiveX控制加上屬性頁面，並Just-in-Time

五筆基本定案... 至於，拼音... 昨天的單字全拼+片語簡拼的資料庫基本處理完了... 剩下的就是編碼分析了... 因為是臨時性的code,  用完後，就不會再呆在程式中... 就放這裡了供參觀了...   Dim B As String   Dim c As String   Dim n1 As Integer   Dim n2 As Integer      Dim s1 As Long   Dim s2 As Long   Dim s3 As Long   Dim s4 As Long 

在使用Excel時經常會碰到有些不錯的Excel文檔中的VBA是設有密碼的，沒有辦法查看到文檔中的VBA代碼，本工具可以清除掉Excel中的VBA密碼。Dim GetData AsString * 5 Open sFileName For BinaryAs #1 Dim CMGs AsLong Dim DPBo AsLong For i = 1 To LOF(1)Get #1, i, GetData If GetData = "CMG="""Then CMGs = i If GetData =

提取需要相容全拼的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為真，則表示"遊標"

用TextBox的時候，有的時候需要讓ScrollBar自動跟隨滾動以讓最下面的內容始中可以顯示出來。但是VB6卻沒提供這樣的方法...以下是用Windows Api實現這個動作的代碼：Option ExplicitPublic Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal