随笔分类 - VB6
摘要：MSXML2.DOMDocument加载Internet资源 The information in this article applies to: Microsoft XML, versions 2.5，2.6， 3.0 SYMPTOMS 如果你调用MSXML.DOMDocument或者MSXML
阅读全文
摘要：1. 屏蔽右键菜单 在菜单中单击"工程"->"引用"，在列表中找到"Microsoft HTML Object Library"打上勾，按确定就可以了。 然后自己加上控件 Dim WithEvents M_Dom As MSHTML.HTMLDocument Private Function M_D
阅读全文
摘要：VERSION 5.00 Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" Begin VB.Form Form1 BackColor = ...
阅读全文
摘要：31 Then Err.Raise 6 End If If (lValue And m_l2Power(31 - iShiftBits)) Then LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000 ...
阅读全文
摘要：C#或JAVA 下面的i定义是只会限定在if 条件块里的： if (1 == 2) { int i = 000; } else { i = 111;// 错误，未定义。 } i = 222;//错误 同上。 下面看看VB6 的 Option Explicit If 1 = 2 Then Dim i
阅读全文
摘要：Public Function EnCodeStr(ByVal password As String) As String Dim il_bit, il_x, il_y, il_z, il_len, i As Long Dim is_out As String il_len = Len(password) il_x = 0 ...
阅读全文
摘要：Option Explicit Private Sub Command1_Click() On Error GoTo err Dim DbEngine, dbFile As String dbFile = "D:\my.mdb" Set DbEngine = CreateObject("DAO.DBEngine.36") 'CompactDatabase(filename,tempfile,'...
阅读全文
摘要：Option Explicit Private Type PROCESS_INFORMATION hProcess As Long hThread As Long dwProcessId As Long dwThreadId As Long End Type Private Type STARTUP
阅读全文
摘要：在主窗体中可以插入按钮。添加下述代码，其中前一个没有新建文件夹功能，后一个有新建文件夹功能
阅读全文
摘要：vb6 code: get windows OS version information: check OS byte 32 or 64: shellexcute, application is run as admin
阅读全文
摘要：' 'write file Dim nHandle As Integer, fName As String fName = "d:\1.txt" nHandle = FreeFile Open fName For Output As #nHandle Print #nHandle, "0" Prin
阅读全文
摘要：https://www.example code.com/vb6/sftp_uploadBandwidthThrottle.asp Private Sub Command1_Click() ' Important: It is helpful to send the contents of the
阅读全文
摘要：' 'Class CommonDialog 'Member of MSComDlg ' Private Sub Command1_Click() ShowOpenFile End Sub Private Sub ShowOpenFile() Dim gLastClDir As String, Fil
阅读全文
摘要：FSO,adodb.stream
阅读全文
摘要：Private Sub Command1_Click() Command1.Enabled = False GetHtmlStr Text1 End Sub Private Sub GetHtmlStr(strUrl As String) Dim xml As Object '或者Dim xml A
阅读全文
