-
Visual Basic6.0网络编程的五大散手
1 2 3 4 下一页 Visual Basic 6.0(以下简称VB 6)以其强大的功能为广大软件开发人员所喜爱,被用来开发各种应用程序。随着Internet的迅猛发展,VB6在网络方面的应用开发也越来越多。本文介绍笔者在实际编程开发中总结的5个技巧,希望能为进行网络开发的朋友们提供一点...
2008-02-23 07:00:24
-
把Outlook信箱中的附件另存为
'这点代码将会找到Outlook信箱中的附件,并把它们保存至 '"C:tempOutlook Attachments",它没有错误处理所以请小心使用! '以下是代码(放在一个Command按钮下面) Dim oApp As Outlook.Application Dim oNameSpace As NameSpace Dim oFolder As MAPIFolder Dim oMail...
2008-02-23 07:00:21
-
VB5.0与Windows API 间的呼叫技巧(一)
摘自‘VB心得笔记’ 一般会使用WINDOW API的情况,实在是因为VB本身不提供某些功能,但是,程式所需又不得不然,例如:读取ReGIStry内的资料,VB只提供SaveSetting、Getsetting 等系列的指令,但是它只能读取特定地区的值,要读、删、更动其他区域的值时,就无法使用。...
2008-02-23 07:00:22
-
VB编程获取文件中集成的图标
---- 在Win95 下 的 应 用 软 件 使 用 了 打 量 精 美 的 图 标, 而 很 多 图 标 资 源 是 集 成 在EXE、DLL 文 件 中 的( 例 如Win95 的 回 收 站 就 使 用 了Shell32.dll 中 的 图 标,31 号 图 标 表 示 回 收 站 空,32 号 表 示 回 收 站 有 被 删 除 文 件) 在 我...
2008-02-23 07:00:19
-
用VB实现应用程序在局域网络上自动更新
我们在用VB开发大型应用程序时遇到如下问题,进入调试、维护阶段开发小组进驻用户单位,软件交用户试用会经常修改程序并重新编译。然后再由程序员给用户复制更新,或者通知用户自行复制更新。对于少量用户可以做到及时更新。而我们的一个用户在一座十层的大厦中办公,有...
2008-02-23 07:00:20
-
利用 API 可以直接拨号
声明: Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal DestAddr$, ByVal AppName As String, ByVal CalledParty As String, ByVal Comment As String) As Long 例子: Public Sub CallPhone(Number As String, Name As String) Dim lRes As Lo...
2008-02-23 07:00:17
-
把最小化图标放到任务栏右下角
---- 目 前 有 不 少Win95 应 用 程 序 在 最 小 化 后, 代 表 该 程 序 的 小 图 标 就 会 隐 藏 在 屏 幕 的 右 下 角( 即 任 务 栏 的 右 边), 如“ 金 山 词 霸”、“ 东 方 快 车” 等, 而 我 们 用Visual Basic 编 制 的 程 序 在 最 小 化 后, 图 标 却 总...
2008-02-23 07:00:18
-
椭圆形的窗体
Private Declare Function CreateEllipticRgn Lib "Gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long)As Long Private Declare Function SetWindowRgn Lib "User32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolea...
2008-02-23 07:00:16
-
谈谈Windows API 在VB 中的应用
[摘 要] 本文首先讲述在VB中运用Windows API的一般方法,然后结合本人编程经验从界面编程、多媒体编程、系统编程等方面举例讲述API的实际应用,最后讲述VB中API应用应注意的问题以及解决办法。 [关键词] Windows: Microsoft(微软)公司的视窗系统 Visual Basic(VB): Mi...
2008-02-23 07:00:15
-
比较两个文件
Function CompFile(F1 as string, F2 as string) as boolean Dim issame as boolean Open F1 For Binary As #1 Open F2 For Binary As #2 issame = True If LOF(1) LOF(2) Then issame = False Else whole = LOF(1) 10000 'number of whole 10,000 byte chunks part =...
2008-02-23 07:00:14
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash