利用VB6.0设计屏幕保护程序

2017年02月06日 116 阅读

利用VB6.0设计屏幕保护程序2010-03-12务实Windows操作平台设有一个屏幕的保护措施，即屏幕保护功能。经常在Windows操作平台上使用电脑的人们对系统提供给我们的几个屏幕保护程序是不是感到非常平常了，没有新鲜感了，是不是想自己设计屏幕保护程序。下面介绍如何利用VB设计用户自己的屏幕保护程序。屏幕保护程序可以保护显示屏不被损坏，同时节约能源。作为屏幕保护程序，应该具有如下特性：1）屏幕保护程序运行时，鼠标光标被自动隐藏，在程序结束时，光标显示...

vb实现文件管理

2017年02月06日 86 阅读

vb实现文件管理2010-03-12一 读出文件的长度varf: file of Byte;size : Longint;beginAssignFile（f, f: .exe）;Reset（f）;size := FileSize（f）;edit1.text := IntToStr（size）;CloseFile（f）;end;或:varfh:integer;fs:longint;beginfh:=fileopen（文件名,fmopenread）;fs:=f...

VB中任意旋转位图的实现

2017年02月06日 100 阅读

VB中任意旋转位图的实现2010-03-12在VISUALBASIC中没有什么命令或函数能够实现 将一个位图旋转一个角度后显示出来，但我们可以用画点的方式，将一个图画盒中的位图 中的像素点旋转一个角度后画入另一个图画盒中，当源图画盒中的像素都被画到目标图画 盒中时，也就完成了位图的旋转。这里主要用到了VISUALBASIC中的两个方法：POINT 方法和PSET方法。POINT方法的作用是从源图画盒中提取一个像素点的颜色值；而PSET方法 的作用是按照旋转...

用VB在桌面建立快捷方式

2017年02月06日 89 阅读

用VB在桌面建立快捷方式2010-03-12下面的代码向你演示在VB中如何创建一个快捷方式。Private Declare Function fCreateShellLink Lib "STKIT432.DLL" （ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkAr...

万年历的程序代码

2017年02月06日 90 阅读

万年历的程序代码2010-03-12: 一年没碰Pascal了,写起来还有点吃力,希望对99级的同学有点帮助.: 程序已编译通过;附2000年年历;: 不足之处请大家批评指出.: 只限参考,不可抄袭.: Program wnl（input,output）;: label: again;: var: a:char;: i:integer;: ran,year,all_days,all_years:integer;: days_month,first_mont...

vb实现自动选择Text的内容

2017年02月06日 108 阅读

vb实现自动选择Text的内容2010-03-12在使用VFP的应用进行录入时，每进入一个录入框，就自动选择该框中的所有内容。利用以下的代码，也可实现类似的功能。Private Sub MyTextBox_GotFocus（）AutoSelect MyTextBoxEnd SubSub AutoSelect（SelObject As Control）SelObject.SelStart = 0If TypeOf SelObject Is MaskEdBox...

面向VB编程人员的COM+综述

2017年02月06日 90 阅读

面向VB编程人员的COM+综述2010-03-12概述：COM+ 和 Windows 2000 Server 为开发分布式应用软件提供了一个复杂的基础组织构造。这一篇文章解释并且帮您确定您所需要掌握的关键技术，这些技术将会用来为Windows 2000 Server建造大规模的信息系统。就这样，一个千年结束了，而另一个千年刚刚开始。这种变化会给您作为职业开发人员的生活带来多少的冲击呢？当然，当所有的闹钟都指向了零时，总会在这儿或哪儿产生一些暂时的波折。一些...

如何调用自己编写的DLL

2017年02月06日 94 阅读

如何调用自己编写的DLL2010-03-12我用VB5.0编一个软件,其中涉及到一些大型矩阵的计算.于是我试图用BC3.1编写这些函数,生成一个动态连接库（DLL）. 但是,由于函数的参数是指针,而VB中却没有指针.我看前面的文章中说VB中指针可以模拟,请问具体怎么做？ 另外,可以直接传递数组给DLL吗？事实上，VB存在着传指针的方法。（在调用DLL） 程序中，声明DLL时，用ByRef代替ByVal 就可以传指针给DLL另外，也可以直接传数组给DLL，不...

vb实现强制重画窗口某一区域

2017年02月06日 83 阅读

vb实现强制重画窗口某一区域2010-03-12这个例子演示了如何强制重画窗口某一区域.有时这是很需要的,例如当你使用LockWindowUpdate API 函数来加快某一控件的数据加载速度时.新建一个工程,添加一个模块,代码如下:Private Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypePrivate Type POINTAPI X As Lo...

VB中抑制控件的弹出菜单

2017年02月06日 85 阅读

VB中抑制控件的弹出菜单2010-03-12在VB的某些控件如文本框（TEXTBOX）、组合框（COMBOBOX）等上单击鼠标右键都会有缺省的弹出菜单，这些缺省弹出菜单，在某些情况下我们并不需要或者根据实际情况需要使用自己的弹出菜单，那么如何抑制控件的弹出菜单呢？我们需要检测控件的鼠标右键单击消息，然后什么事也不做或者使用自己的弹出菜单，这需要编写一个钩子函数来完成。下面以抑制文本框的弹出菜单为例说明实现方法。为窗体添加一个模块，在模块中编写钩子函数：首先...

利用VB访问Internet

2017年02月06日 88 阅读

利用VB访问Internet2010-03-12当前, 有许多构造模块可以帮助用户创建名为超客户端（rich client）的Internet应用其中包括Visual Basic（以下简称VB）的ActiveX 控件集合。它们可以提供SMTP和POP邮件服务、FTP、Newsgroup和Web访问等功能。另外,利用OLE也可以实现Web访问的自动化。本文向大家介绍这两种方法。在应用中嵌入ActiveX控件利用Crescent的Internet Toolpa...

VB中检测是否连网

2017年02月06日 89 阅读

VB中检测是否连网2010-03-12利用WIN95中的注册表建植，在注册表的HKEY-LOCAL-MACHINESystemCurrentControlSetServicesRemoteAcces下，当计算机连上因特网时，Remote Connection的植为01 00 00 00，反之，为00 00 00 00，通过这一建植可判断是否连网。1.建立新模块public const ERROR-SUCCESS= 0&public const AP...

VB数据访问接口

2017年02月06日 83 阅读

VB数据访问接口2010-03-12VB数据访问接口功能及含义ADC高级数据连接器（Advanced Data Connector）:提供绑定ADO数据源到窗体的数据绑定控件上。ADC主要是一种直接访问或者通过ADO访问远程OLEDB对象的一种技术，它也支持主要应用在微软IE浏览器上的数据绑定控件。它是特地为Web上的浏览器为基础的应用程序而设计的。ADOActive数据对象（Active Data Objects）：ADO实际是一种提供访问各种数据类型的...

用VB计算累计时间值

2017年02月06日 99 阅读

用VB计算累计时间值2010-03-12VB无法在日期/时间字段中存放和测量累计时间， 日期/时间存放成特定的时间点而不是一个时间跨度，并且无法在一个日期/时间变量中存 放超过24小时的值。如输入9:30，输入的不是某台设备工作的时间长度，而是一个特定时间， 即是早晨9:30。在日期/时间字段中输入26:30，VB会显示出错信息，认为这不是一个合法的 输入。VB不是不能进行日期/时间字段的累加计算，它在内部以浮点值的形式存放，能够进 行累加计算，但结果不是...

VBA Debug的使用

2017年02月06日 95 阅读

VBA Debug的使用2012-09-12 博客园 tomin在VBA编程中，也有debug的功能使用，但与C# 及C++ 有点不同。特别在watch 某个对象的时候，必须得选中，然后按shift +F9可以进行 quick watch. 请注 意以下几点：插入断点，把鼠标放到某一行的代码前面，左击鼠标就可以插入断点，取消断 点只要在断点上左击鼠标就ｏｋ单步调式―――― F8。可以用鼠标放 上去查看某个系统定义的变量的值，对于自定义的"引用类...

VB调用Matlab在WEDM仿真系统中的应用

2017年02月06日 109 阅读

VB调用Matlab在WEDM仿真系统中的应用2012-09-12 中电网 苏军 孙科峰基于BP神经网络的电火花线切割（WEDM）工艺仿真系统需要具有工艺数据库管理 、工艺效果预测、加工参数优化等设计功能。借助Matlab的神经网络工具箱，可 以建立良好的工艺效果预测模型和参数优化模型，这正是工艺仿真软件最主要的 功能要求。VB是Windows操作系统下优秀的可视化编程工具软件，在用户界面设计 和快速开发等方面具有独特的优势。同时，Matlab仿真软件以其...

关于VB中的冒号

2017年02月06日 116 阅读

关于VB中的冒号2012-09-12 博客园 cixiaofeng关于VB中的冒号，给许多人的印象都是：“一行可书写几句语句” 。这么说是对的，但是有一种情况是不对的，那就是在条件语句中。这也是做一 个VB项目升级的时候遇到，因为这个问题我查了好长时间程序，一直在找VB的中 的效果是如何实现的呢？现在发现那是一个非常大的bug。我觉得这不是程序员的 错误，应该是VB语法上的漏洞。如果有理解不对的地方欢迎大家指教。看 一个例子吧：1 ...

VB实现的电话语音成绩查询系统

2017年02月06日 82 阅读

VB实现的电话语音成绩查询系统2012-09-12 comprg 一、引言电话语音查询系统已广泛应用于电话银行、话费查询、证券 委托、自动缴费（水、电、气等费用）、语音信箱、自动声讯服务、民航、公共 考务、铁路等部门的信息查询以及各种公共场所自动回答顾客提问等领域。电话语音查询系统的工作流程是用户拨通电话语音查询系统的热线电话， 并根据电话中的语音提示，通过按电话键来查询电脑中存储的各种信息； 电脑自 动对用户的操作进行应答，并以语音形式将信息反馈给用户。...

利用VB 6.0实现网络远程PC与单片机通信

2017年02月06日 95 阅读

利用VB 6.0实现网络远程PC与单片机通信2012-09-12在各种单片机应用系统的设计中，常常遇到单片机与PC的通信问题，在速度要求不高、传送距离不远的场合一般采用RS 232标准串行接口实现，在传送距离较远的场合，也有学者研究通过网络实现PC间的通信。但是，要同时满足高速度和远距离PC与单片机通信这是一个迫切需 要解决的问题。随着信息技术的发展，计算机和网络越来越普及，对单片机的远程控制与测量的要求也越来越多。本文在结合现有研究的基础上，对相关的设计...

vb如何连接oracle数据库 vb访问oracle的方法

2017年02月06日 121 阅读

vb如何连接oracle数据库 vb访问oracle的方法2014-10-13一般说来，访问远程后台数据库我们都是通过ODBC来完成的。但是，ODBC有一个致命的缺点——速度慢。事实上，对于ORACLE数据库，除了ODBC，我们还可以利用ORACLE本身所提供的OLE对象（Oracle Objects for OLE）来实现快速访问有关数据库。在ORACLE V8中，Oracle Objects for OLE（以下简称OO）为常用...