vb实现动态添加控件

2016年07月27日 126 阅读

vb实现动态添加控件2010-03-12VB6有一个新功能，可以动态添加控件，不用控件数组：object.Add （ProgID, name, container）参数说明Object 必需的。一个对象表达式，其值是“应用于”列表中的一个对象。ProgID 必需的。一个标识控件的字符串。大多数控件的ProgID 都可通过查看对象浏览器来决定。控件的ProgID是由控件的库和类组成的。例如，CommandButton控件的ProgID...

VB编程技巧三则

2016年07月27日 94 阅读

VB编程技巧三则2010-03-121、VB中实现动态移动控件窗体中的控件如按钮、文本框等一般在运行时位 置是固定不变的，但为了能给用户更方便的功能，我们可以做到在运行时动态移动控件的 位置，比如我们可以允许用户随便将按钮放到自己喜欢的位置，而并非界面中固定的位置。 其实这个功能实现起来是很容易的，只需要使用API函数SendMessage传递控件移动的消息 即可。下面是一个例子，当用户单击按钮后可以移动按 钮的位置。在窗体的总体声明部分声明SendMes...

设计图象切换效果

2016年07月27日 111 阅读

设计图象切换效果2010-03-12PaintPicture是VB4新提供的图形图像处理方法，它的基本功能是图像块传输，在以前的VB版本中要产生块传输效果，需采用Win？dowsGDI中的块传输函数BitBltAPI调用。PaintPicture正是VB4中用来代替BitBltAPI调用的简单而方便的方法。它能快速地将两幅位图进行合并；能将位图的全部或某一部分快速剪切并粘贴到其它地方；并能将位图自动延伸或压缩以适应新的环境；能在屏幕上不同位置之间、屏幕与内...

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

2016年07月27日 108 阅读

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

vb实现文件管理

2016年07月27日 92 阅读

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中任意旋转位图的实现

2016年07月27日 114 阅读

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

用VB在桌面建立快捷方式

2016年07月27日 98 阅读

用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...

万年历的程序代码

2016年07月27日 105 阅读

万年历的程序代码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的内容

2016年07月27日 140 阅读

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+综述

2016年07月27日 101 阅读

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

如何调用自己编写的DLL

2016年07月27日 109 阅读

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

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

2016年07月27日 112 阅读

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中抑制控件的弹出菜单

2016年07月27日 134 阅读

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

利用VB访问Internet

2016年07月27日 113 阅读

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

VB中检测是否连网

2016年07月27日 100 阅读

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数据访问接口

2016年07月27日 88 阅读

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

用VB计算累计时间值

2016年07月27日 106 阅读

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

VBA Debug的使用

2016年07月27日 120 阅读

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

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

2016年07月27日 108 阅读

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

关于VB中的冒号

2016年07月27日 96 阅读

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