原创 農曆的算法
********************************************************************************************'建一個類，類名爲clsDateOption Expl
2020-07-02 18:27:37
2
原创 高效的TreeView構建方法
網上一直有朋友說.net上的TreeView不夠快，而且也不方便。那麼真實的情況是否如此呢。我做的一項目中需要一個快速的Tree，它的數據源是MS
2020-07-02 18:27:37
原创 全新打造的 TreeView
經過一段時間的努力，並參閱了很多大俠的源代碼，重新改造了一下TreeView控件。現將所有的源代碼全部公佈，以和朋友們共享。 '主要的功能有：' 根據數據表中的記錄來添加節點；' 每個節點都可以添加ToolTip提示；'
2020-07-02 18:27:36
1
原创 判斷是否含有漢字或漢字標點
*方法一： LOCAL lcString lcString="adfd1成21d功fdsf577" IF LENC(ALLTRIM(lcSt
2020-07-02 18:27:36
1
原创 在VB.net中，利用反射，獲得項目中所有公用對象的屬性、方法、事件等
近日，想整理下我自己的vb.net應用程序中，自己定義的類、控件、窗體等對象，希望能夠獲得它們的“屬性”、“字段”、“方法”、“事件”等名稱。查閱了“反射”（Reflection）相關資料，寫了以下一段代碼，分享給朋友們。
2020-03-14 01:25:52
2
原创 全新打造的 DataGrid 控件
經過一段時間的努力，並參閱了很多大俠的源代碼，重新改造了一下DataGrid控件。現將所有的源代碼全部公佈，以和朋友們共享。 '主要的功能有：' 可以顯示漢字標題、列寬、左邊行號；' 可以按照標題行排序；' 可以設置腳
2020-02-22 07:37:53
原创 農曆
Shared Function GetChgDate(ByVal vDate As String, ByVal ChgType As 轉換方式) A
2020-02-22 07:37:43
原创 避免VFP中出現“Cannot Quit Visual FoxPro”
一、出現“Cannot Quit Visual FoxPro”的原因 第一種原因是：在執行了read event後，read event事件處於活
2020-02-22 07:37:43
11
原创 動態生成多級菜單
以前，我是用數據表保存菜單項目及各個操作員的相應權限，並在vfp中編寫了相應的程序來實現菜單、工具欄、Treeview 的生成。但由於vfp有一個叫宏替換的東東&，實現起來比較簡單。 由於vb及.net的“對象”和“對象名稱”
2020-02-22 07:37:43
原创 根據數據表中數據,生成Powerpoint幻燈片
曾經有一個問題，一直困擾我很久。由於工作的需要，經常需要把Access數據表的內容,製作成powerpoint幻燈片，常常在做大量的單調的重複的簡單勞動。作爲一個程序設計的愛好者，最不願意做的就是這種簡單機械的事情。 那麼，如何根據數據表
2020-02-22 07:37:43
原创 VFP趣味編程：百錢買百雞
公雞3元一隻，母雞5元一隻，小雞1元三隻。100元錢買100只雞，請算出公雞、母雞、小雞的數目。 思路分析：題目包含的條件有兩個：一是共買了100支雞，二是共花了100元錢。我們做最極端的假設，公雞可能是0至100只，母雞可能也是0至10
2018-09-04 13:35:30
4
原创 如何在 Visual Basic .NET 中使用 ADO.NET 檢索和修改 Excel 工作簿中的記錄
本文討論如何使用 ADO.NET 檢索 Microsoft Excel 工作簿中的數據、修改現有工作簿中的數據或將數據添加至新的工作簿中。要通過 ADO.NET 訪問 Excel 工作簿，您可以使用 Jet OLE DB 提供程序；本文提
2018-09-04 13:35:30
原创 導出數據到excel中
Public Class BqExcelClass BqExcel Dim lConnString As String = "" Dim lBookName As String = "" Dim lSchemaTabl
2018-09-04 13:35:30
1
原创 小學一年級加減法生成器
前段時間，女兒所在的學校要求家長每天都要給孩子出一些加減法的數學題，讓孩子練習。作爲會一點程序設計的我來說，總想偷一些懶，於是製作了以下程序。 程序窗口，如下所示。 具體源代碼如下： 首先，在表單Form1的 in
2018-09-04 13:35:30
2
原创 雙重循環的使用 "九九乘法口訣表"
SET TALK OFF CLEA m=SPACE(24)+"九九乘法口訣表" ? m ? &&需要換行 FOR i=1 TO 9 FOR j=1 TO i m=STR(i,1)+"*"+STR(j,1)+
2018-09-04 13:35:30