在窗體拖一個Label控件，填寫以下代碼即可看到測試效果。 Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As LongPrivate Sub Label1_MouseDown(Button As Integer, Shift As Integer,...

[閱讀全文]

VB TreeView控件中的Item節點坐標位置大小獲取 Private Const TV_FIRST = &H1100Private Const TVM_HITTEST = (TV_FIRST + 17)Private Const TVM_GETITEMRECT = (TV_FIRST + 4)Private Const TVHT_ABOVE = &am...

[閱讀全文]

模塊包含了下面的各種轉換： 二進制轉十進制 二進制轉化為八進制 二進制轉化為十六進制 八進制轉化為十進制 八進制轉化為二進制 八進制轉化為十六進制 十進制轉二進制 十進制轉化為八進制 十進制轉化為十...

[閱讀全文]

示例： Call ListviewToCSV(Listview1,"C:\123.csv") 最后一個參數Encabezado決定是是否導出表頭。默認是導出的。 Public Function ListviewToCSV(ListView As ListView, sFile As String, Optional Encabezado...

[閱讀全文]

'調用示例Debug.Print WinInetGet("http://127.0.0.1/index.html")Debug.Print WinInetPost("http://127.0.0.1/index.php", "UserName=admin")'上面兩個函數都是返回byte數組，如果出現亂碼可以通過以下這個函數安指...

[閱讀全文]

'下面是在Form窗體中的調用示例代碼。 '寫入文件Private Sub WriteFile(ByteArray() As Byte, Path As String) Open Path For Binary As #1 Put #1, , ByteArray() Close #1End Sub'網頁編碼轉換Public Function B...

[閱讀全文]

編碼后是GB2312格式URL，對字母、數字、- , . / 字符不編碼。你也可以根據自己的需要修改。 以前發過一個UTF-8格式的URL編碼函數( http://www.71216532.buzz/Tech/Program/VisualBasic/URLEncode_717.html ) Publ...

[閱讀全文]

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const LB_DIR = &H18DPrivate C...

[閱讀全文]

VB UTF-8 URL編碼函數： Public Function UTF8_URLEncoding(szInput) Dim wch, uch, szRet Dim x Dim nAsc, nAsc2, nAsc3 If szInput = "" Then UTF8_URLEncoding = szInput Exit Function End If For x = 1 To Len...

[閱讀全文]

VB 窗體實現文件拖拽，只需要將窗體的OLEDropMode 屬性設置為1即可。同樣在ListBox、TreeView、ListView……等控件都提供這個屬性設置的。然后通過OLEDragDrop事件來獲取拖放的文件路徑即可。 Private Sub Form...

[閱讀全文]

方法就是先執行JS函數，然后將返回的結果存放在一個變量里面，再通過Document.Script來獲取該變量的值。 <script type="text/javascript"> var ReturnValue function test(){ ReturnValue="測試" }</script> Cal...

[閱讀全文]

附件下載.rar 很基礎的知識,大鳥飛過。 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)'利用PopupMenu方法 If Button And vbRightButton Then PopupMenu wj '彈...

[閱讀全文]

使用 SetForegroundWindow API即可實現。聲明如下： Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long hwnd 參數是窗口的句柄。 返回值：如果窗口設入了前臺，返回值...

[閱讀全文]

VB 通過SendMessage 發送消息獲取文本框的數據的函數： Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As An...

[閱讀全文]

VB 設置CapsLock、ScrollLock、NumLock 按鍵狀態: Option ExplicitPrivate Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)P...

[閱讀全文]

VB 文件編碼互換模塊，支持對Ansi,UTF-8,Unicode(little endian),Unicode big endian編碼之間進行轉換。 Option ExplicitPrivate Declare Function MultiByteToWideChar Lib "kernel32.dll" (ByVal CodePage As...

[閱讀全文]

VB 移動Combox某項的位置： 'cbojob當前選擇向下移一位Private Sub cmdPostpone_Click() Dim strItem As String Dim lngIndex As Long 'copy原來的數據,包括列數據 strItem = Me.cboJob & ";" & Me.cboJob...

[閱讀全文]

VB 實現自動調整Listview列表控件的列寬度： Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long...

[閱讀全文]

VB 按指定編碼格式寫入文本文件，默認GB2312編碼。 Private Sub SaveFile(FilePath As String, strText As String, Optional Charset As String = "GB2312") Dim Obj As Object Set Obj = CreateObject("ADODB.Str...

[閱讀全文]

VB 純代碼實現判斷文件目錄是否存在，沒有用到API 、組件等,純VB 內置函數實現判斷某個文件夾是否存在。 Public Function DirectoryExists(ByVal Directory As String) As Boolean If InStrRev(Directory, "\") <> ...

[閱讀全文]

VB 通過文件路徑獲取該文件所在目錄的函數： Private Function getDirectory(FilePath As String) getDirectory = Mid(FilePath, 1, InStrRev(FilePath, "\"))End Function

[閱讀全文]

VB 通過SendMessage發送消息添加ComboBox列表項值，也就是實現了Combo中的AddItem方法。 Private Const CB_ADDSTRING = &H143Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByV...

[閱讀全文]

VB 通過窗體句柄獲取標題函數，通過已知的句柄獲取該句柄的標題。 Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal Hwnd As Long, ByVal lpString As String, ByVal cch As L...

[閱讀全文]

VB 利用ADODB.Stream來實現UTF-8 與GB2312互轉。 '* ** *'* 模塊名稱：modCharset.bas'* 模塊功能：GB2312與UTF8相互轉換函數'* 作者：lyserver'* ** *Option Explicit'- --- -' 函數說明：GB2312轉換為UTF8'- ...

[閱讀全文]

VB 通過二進制方式來判斷圖片的格式，下面只對 JPG 、GIF、PNG、BMP、ICO 幾個常用的圖片格式做了判斷。 Public Function GetImageType(ByteArray() As Byte) As String If ByteArray(0) = &HFF And ByteArray(...

[閱讀全文]

VB 16進制字符串轉二進制數組函數： Private Function HexToBytes(strHex As String) As Byte() strHex = Trim$(strHex) Dim TempData() As String Dim Data() As Byte, i As Long TempData = Split(strHex, " ") ...

[閱讀全文]

VB 二進制Byte()數組轉換成十六進制字符串函數： Private Function BytesToHex(bytB() As Byte) As String Dim strTmp As String, i As Long For i = 0 To UBound(bytB) strTmp = strTmp & " " & Hex(bytB...

[閱讀全文]

Option Explicit'*'**作 者：新興網絡'**原 文：http://www.71216532.buzz/Tech/Program/VisualBasic/666.html'**如果需要轉載，請保留作者信息謝謝'*Public Function IsTextFile(Bytes() As Byte) As Boolean Dim i ...

[閱讀全文]

VB ListBox 添加不重復的值，當列表中已經存在該值即不再添加。 Private Function AddList(List As ListBox, Str As String) As Boolean Dim I As Long For I = 0 To List.ListCount-1 If List.List(I) = Str Then...

[閱讀全文]

Private Function IsIDE() As Boolean Static bInIDE As Boolean bInIDE = Not bInIDE If bInIDE Then Debug.Assert IsIDE() Or True IsIDE = Not bInIDE End IfEnd FunctionPrivate Sub Form_Load() MsgBox IsIDEEn...

[閱讀全文]