· 为了高效率地下载某站点的网页,我们可利用VB的Internet Transfer 控件编写自己的下载程序, Internet Transfer 控件支持超文本传输协议 (HTTP) 和文件传输协议 (FTP),使用 Internet Transfer 控件可以通过 OpenURL 或 Execute 方法连接到任何使用这两个协议的站点并检索文件。本程序使用多个Intern...
· 使用 Windows Form 按列排序 ListView 项目摘要: 说明如何根据所单击的列在 Microsoft .NET 中的 ListView 控件提供项目排序。简介ListView 控件是显示文件系统信息和显示 XML 或数据库数据的非常好的方式。ListView 控件通常用于显示表示项目以及项目文本的图形图标。此外,ListView 控件还可以 ...
· 昨晚写一代码,将备将某目录下Excel中的某一工作表(同名“sheet2”)批量删除代码如下,成功删除之后发现奇怪问题,被删除处理过的Excel文件打开后发现是什么都没有,一张工作表都没有,但用 VB编辑器查看,却发现工作表还在,但就是没办法显示。Private Sub CommandButton1_Click()
Dim app A...
· 浙江移动发送手机短信实例!!!!!!!!!!!!!!!!!!!!!!!'****************************************************************************
'Form1 窗体
Dim userID As String
Dim mobileNo As String
Dim checkRnd As String
Dim longin As Boolean
Dim checkRndBox As String
Public fileno As Variant...
· 出处:http://support.microsoft.com/default.ASPx?scid=http://support.microsoft.com:80/support/kb/articles/q279/8/15.ASP&NoWebContent=1Sample Code
The following Visual Basic module contains a public function called SSPValidateUser(). This function attempts to validate the s...
· Public Sub distinctCount()
'求Col列中StartRow到EndRow范围中不重复的个数
'本例是计算标题为sheet1的Excel表中的A1:A240的不重复值的个数'修改下面四行的结尾值Dim sheetsCaption As String: sheetsCaption = "Sheet1"Dim Col As String: Col = "A"Dim StartRow As Integer...
· 显式的数组范围你现在可以使用显式的数组范围来声明数组,这样的声明更加清晰可读了:
Dim a(10) As Integer '旧方式
Dim b(0 To 10) As Integer '新方式Visual Basic中的数组范围仍然是以零为起始,所以如果你想声明一个不是以零为起始范围的数组,你就会得到一个编译器错误。小结Visual Basic 20...
· 'Form1 窗体
Dim userID As String
Dim mobileNo As String
Dim checkRnd As String
Dim longin As Boolean
Dim checkRndBox As String
Public fileno As Variant
Dim ys As Integer
Dim su As Long
Dim sum As Long
Dim pas As StringPrivate Sub Check2_Click()
On Error GoTo err1
If Check2.Va...