点击下载此文件

常数 值 描述 
sckClosed 0 缺省的。关闭 
sckOpen 1 打开 
sckListening 2 侦听 
sckConnectionPending 3 连接挂起 

查看更多...

'服务器端
Option Explicit

Private Sub Command1_Click()
    If Winsock1.State <> sckClosed Then Winsock1.Close '在当前套接字未关闭时将其关闭

查看更多...

来自http://www.vbgood.com/viewthread.php?tid=68695&extra=page%3D1

Private Sub Command1_Click() 
Winsock1.RemotePort = Text3.Text 
Winsock1.RemoteHost = Text2.Text 

查看更多...

Document.documentElement.innerHTML 可以获取到源代码

查看更多...

Dim cn As New Connection
cn.ConnectionString = "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=c:\;Extensions=asc,csv,tab,txt;"
   cn.Open
   Dim Rst As New ADODB.Recordset
   Dim Sql As String

查看更多...

有一网页1.htm
现要向1.htm提交数据name=apple,id=001
即1.htm?name=apple&id=001
请问如何做？

查看更多...

private sub command1_click() 
on error goto err_proc 
   Dim ado As New ADODB.Connection  
   cn.Open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=aa;Initial Catalog=bbb;Data Source=(local)"  
   ado.Open cn  

查看更多...

ReDim Preserve a(i)
----------------------------------
Do While 先行条件 //假如条件不成立退出循环 

//循环体代码块 

查看更多...

一，ping 命令的实现

   我们在程序中，使用了icmp.dll中的函数。
  IcmpCreateFile: 打开一个句柄，通过该句柄发送ICMP的请求报文； 
  IcmpCloseHandle: 关闭通过IcmpCreateFile函数打开的句柄； 

查看更多...

1， 在任务栏中消失
窗体的 showintaskbar属性设置为 false
2， 桌面上不出现界面 
窗体的 Visible 属性，使它等于 False，就可以了。 
3， 程序在后台运行

查看更多...

FSO文件系统对象

对象名称                                                               对象功能
FileSystemObject                      主对象。包含用来创建、删除和获得有关信息，以及通常用来操作驱动器、文件夹和文件的方法和属性。
                                        和该对象相关联的许多方法，与其他 FSO对象中的方法完全相似；它们是为了方便才被提供的。 

查看更多...

查看更多...

记录类型的定义
用Type...End Type语句定义(注意:只能在模块的声明部分使用)
如:
Type Student
     Num As Integer  '成员名 As 数据类型

查看更多...

数据类型       类型名称       类型声明字符                   所占字节                      有效值
字节型         BYTE                                                     0-255                  10,157,220
整型           INTEGER               %                                2                      -32768--32768
长整型         LONG                    &                                4                      -2147483648--2147483648
单精度型       SINGLE                  !                                4                     -3.402823E38到3.402823E38

查看更多...

WebBrowser控件使用详解
方法 说明 
　GoBack  相当于IE的“后退”按钮，使你在当前历史列表中后退一项  
　GoForward  相当于IE的“前进”按钮，使你在当前历史列表中前进一项  
　GoHome  相当于IE的“主页”按钮，连接用户默认的主页  

查看更多...

Function Utf8ToUnicode(ByRef sDest As String, ByVal MaxDestChars As Long, _
      ByRef Source() As Byte, ByVal SourceBytes As Long) As Long
      Dim i As Long, count As Long
      Dim c As Byte
      Dim wc As Long

查看更多...

在程序流程中经常要延时一段时间后再继续往下执行,在VB中常用的有以下几种方法(因为Timer控件打乱了程序的流程所以一般不用它):
1.使用Windows API函数Sleep
新建一个工程,添加一个TextBox控件和一个CommandButton控件,再将以下代码复制到代码窗口
'声明:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

查看更多...

几个小巧但非常实用的vb插件
1.indentervb5：能把vb源代码整理的整整齐齐;
2.VB6IDEMouseWheelAddin.dll：vb环境支持滚轮鼠标(用vb编译后，regsvr32注册)

查看更多...