内容列表
- 窗体特技效果
- 在VB编程中，应用程序窗体的出现和关闭一般都是静态的，不过，我们利用下面的一个API函数Animate Window就可以轻松实现窗体的动态效果。
API函数Animate Window的声明如下：Private Declare Function AnimateWindow Lib "user32"(ByVal hwnd As Long, ByVal dwTime As Long, ByVal
- 分类：VB语言 查阅全文
- 在VB中读写注册表函数源码
- 在以下地址贴中有乱码,
http://www.csdn.net/develop/article/8/8562.shtm
现补充如下:
Public Function SysRegControl(Optional ByVal RootKey As RegRootKey = regHKEY_LOCAL_MACHINE, Optional ByVal SubKey As String
- 分类：VB语言 查阅全文
- Visual Basic 6中发送邮件的新方法
-
作者：陈刚
用VB6编写发送邮件的程序，有多种E-mail组件可供选择，如MAPIMessages、IIS4.0附带的CDONTS（NTS Collaboration Data Objects）以及许多第三方厂商开发的Email软件等。本文介绍用CDONTS开发VB下的邮件程序方法。 1. 确认已安装SMTP服务器 首先，必须确认在IIS服务器上已安装SMTP服务器，这是安装
- 分类：VB语言 查阅全文
- 用VB编写异步多线程下载程序
-
作者：大庆油田有限公司勘探开发研究院网络室 满孝
为了高效率地下载某站点的网页,我们可利用VB的Internet Transfer 控件编写自己的下载程序, Internet Transfer 控件支持超文本传输协议 (HTTP) 和文件传输协议 (FTP)，使用 Internet Transfer 控件可以通过 OpenURL 或 Execute 方法连接到任何使用这两个协议的
- 分类：VB语言 查阅全文
- Oracle Objects for OLE 及在VB中的应用
-
Oracle Objects for OLE 及在VB中的应用
---- 一 般 说 来， 访 问 远 程 后 台 数 据 库 我 们 都 是 通 过ODBC 来 完 成 的。 但 是，ODBC 有 一 个 致 命 的 缺 点 — — 速 度 慢。 事 实 上， 对 于ORACLE 数 据 库， 除 了ODBC， 我 们 还 可 以 利 用ORACLE 本 身 所 提 供 的
- 分类：VB语言 查阅全文
- 基于ADSI的NT帐号及Exchange Server帐号申请及验证模块源代码
- 基于ADSI的NT帐号及Exchange Server帐号申请及验证模块源代码
1.安装ADSI2.52.创建一个新的ActiveX DLL工程,工程名:RbsBoxGen,类名:NTUserManager3.执行工程-引用将下列库选上: Active DS Type Library Microsoft Active Server Pages Object
- 分类：VB语言 查阅全文
- 在TEXT文本框中只允许输入数字和小数点，如何实现？只能编程实现吗？
- 在TEXT文本框中只允许输入数字和小数点，如何实现？只能编程实现吗？
Private Sub Text1_KeyPress(KeyAscii As Integer)If (Chr(KeyAscii) > "9" Or Chr(KeyAscii) < "0") And Chr(KeyAscii) <> "." Then
- 分类：VB语言 查阅全文
- 编写映射驱动器
- 步骤：新建一窗体form，建立两个框架frame1和frame2在frame1上建立四个标签、四个text控件和一个按钮，在frame2上建立一个标签、一个text控件和一个按钮。 代码如下 Option Explicit Private Type NETRESOURCE dwScope As Long dwType As Long dwDisplayType As Long d
- 分类：VB语言 查阅全文
- VBScript入门
- VBScript入门
概述
VBScript是在HTML文件中使用的一种VB脚本语言，它是VB的一个子集，可以实现部分VB的功能，从而使HTML语言得到大大的扩展。如果你学习过VB的话，那么VBScript对你来说只是小菜一碟，你只要记住哪些语法命令在“VBScript”中不能使用就行了，而不必费心去记哪些命令可以使用。但是如果你没学过VB，也不要紧，因为它只不过是VB的一个子集，所要学
- 分类：VB语言 查阅全文
- 如何通过VB获取网卡地址
-
[程序语言] Microsoft Visual Basic 4.0,5.0,6.0[运行平台] Windows[功能描述] IPX和NETBIOS接口需要网络地址。该文通过详细的步骤演示了如何通过VB获取网卡地址。步骤：1)在Visual Basic生成标准的EXE文件。缺省创建 Form1。2)在Form1中添加一命令按钮，缺省名为Command1。3)把下列代码放到Fo
- 分类：VB语言 查阅全文
- VB中利用WinRAR进行文件压缩
-
作者：王莉梅
一些数据库文件(如Access文件)在远程传输过程中可能由于文件比较大而影响传递效果。如果进行压缩以后再传递，会减少传递时间，避免意外的发生，同时也保证了传递效果。我们在压缩文件时，最常用的压缩工具为WinRar和Winzip，笔者在VB编程过程中利用WinRar工具来压缩数据库文件，并完成远程传输，十分方便，在此向大家介绍一下。用WinZip的方法类似。
- 分类：VB语言 查阅全文
- VB + Winsock + CGI 实现 QQ (OICQ) 在线检测
- B + Winsock + CGI 实现 QQ (OICQ) 在线检测(支持代理服务器)!标准 EXE 例程下载http://microinfo.top263.net/Zip/WskQQExe.zip
'请先 "引用" -> "浏览" -> "Windows 目录\SYSTEM\MSWINSCK.OCX"Option ExplicitDim sResponse As StringDi
- 分类：VB语言 查阅全文
- 用VB实现目录选择+浏览
- '下面用API实现目录浏览,选择目录，如果有高手能够在选择目录时新建一个，请续，谢谢!
'Common.bas*************************************************************
Option Explicit
Public Type BrowseInfo hwndOwner As Long
- 分类：VB语言 查阅全文
- VB + API 获取 IE 的 "代理服务器" 配制
- Option ExplicitPrivate Type INTERNET_PROXY_INFO dwAccessType As Long lpszProxy As Long lpszP
- 分类：VB语言 查阅全文
- 如何在vb 中用api函数代替winsock控件建立网络连接？
- 给出示例代码如下：
sendemail.frm
VERSION 5.00Begin VB.Form Form1 Caption = "Form1" ClientHeight = &
- 分类：VB语言 查阅全文
- 符合Windows 98规范的帮助文件的开发
- 符合Windows 98规范的帮助文件的开发 ·衣秀勇 闫明
Windows 98的在线帮助系统较Windows 95有较大的改变，它使用的是一个以网络超级文本（HTML）为特征的新型帮助系统，即HTML帮助系统。它是来自Microsoft公司的下一代联机帮助系统，它使用Microsoft Internet Explorer的基础组件来显示帮助内容，它支持HTML、ActiveX、Ja
- 分类：VB语言 查阅全文
- "欢乐时光"代码分析
- "欢乐时光"代码分析
转自<天极网> ==================== “欢乐时光”其实就是利用了超文本邮件中可以夹带脚本语言的特点而棋高一招的。我们知道，邮件的格式可以有两种：纯文本和超文本。超文本（HTML）功能强大就不用多说了，它可以内嵌数种脚本语言，常见的就是VBScript和JavaScript。“欢乐时光”在超文本中夹带的就是VBS。从源代
- 分类：VB语言 查阅全文
- base64编码和解码
- 一般大多数包含"="的不是"Base64"编码格式,只有"quoted-printable"编码格式才会经常出现"="虽然都是MIME编码,但是算法不一样,"quoted-printable"的我不太清楚.讲一下Base64的吧.
Base64算法是把3个8位字符(24)转换成4个6位字符(32),因此编码后的长度会扩大1/3,进行编码转换时需要用到一张Base64的编码表: &nbs
- 分类：VB语言 查阅全文
- Visual Basic 的未来
-
产品
|
支持
|
搜索
|
Microsoft指南
Visual Basic 主页
|
开发者资源
|
微软开发工具
|
产品及下载
|
产品 | 支持&nb
- 分类：VB语言 查阅全文
- 货币数字转化为大写格式
- Dim CHAp(21, 1)初始化：
CHAp(0, 0) = "万": CHAp(0, 1) = 10000 CHAp(1, 0) = "仟": CHAp(1, 1) = 1000 CHAp(2, 0) = "佰": CHAp(2, 1) = 100
- 分类：VB语言 查阅全文