原创 Excel的Find方法
Find 方法 參閱應用於示例特性應用於 WorksheetFunction 對象的 Find 方法。 在工作表中查找特定信息。 expression.Find
2019-02-22 18:47:13
原创 VB中UTF8轉Unicode編碼
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByRef lpMu
2019-02-22 18:47:13
2
原创 VB講讀取的UTF-8XML網頁轉換爲unicode編碼
上一篇的我找到的轉換代碼不太理想。任然有一些是“？”亂碼,經過向多方學習最後找到兩個方法。 第一種方法 設置一個按鈕，一個文本框。文本框的Multiline屬性設置爲true Const URLaddr = "http://api.d
2018-09-11 06:30:35
1
原创 vb中修改屏幕分辨率
在窗體上畫一個按鈕和四個文本框，運行如下代碼：啓動時，顯示相應數據。修改後，單擊按鈕改變設置。 Option Explicit Private Declare Function GetDeviceCaps Lib "gdi32"
2018-09-11 06:30:35
原创 VB的農曆算法(1900-2090)
從網上找到的VB農曆代碼收藏備用 Option Explicit Public LunarInfo(1 To 191) As Double '從1900-2090年這150年的農曆信息碼 'Public SolarMonth(1 T
2018-09-11 06:30:35
2
原创 VB中使用GDI+進行圖像縮放的實例
VISUAL BASIC（VB）對圖形圖像的處理一直以來是弱項，並受到很多人的垢病。關於圖形圖像的放大縮小，一般使用PICTUREBOX的PAINTPICTURE方法來處理。但這個處理方法最大的問題就是圖像的失真。比方說圖像中原來有
2018-09-11 06:30:35
18
原创 vb的property和event
把MSDN抄下來備用.呵呵 Event 語句 定義用戶自定義的事件。 語法 [Public] Event procedurename [(arglist)] Event 語句包含下面部分： 部
2018-09-11 06:30:35
原创 VB讀取xml處理類
Option Explicit Option Compare Text DefInt I DefStr S DefDate D DefLng L DefBool B Dim mvarsXmlFile As String
2018-09-11 06:30:35
原创 VB自定義類來替換collection設置Key和Value值
創建一個類模塊，命名爲MyCollection 代碼如下： Option Explicit Private colKey As New Collection Private colVal As
2018-09-11 06:30:34
1