自己编程模拟MouseEnter，MouseExit事件

2016年07月27日 106 阅读

自己编程模拟MouseEnter，MouseExit事件2010-01-02很多第三方的控件都提供的MouseEnter 和MouseExit 事件来补充MouseMove 事件的不足（MouseMove 事件不能有效的捕获鼠标是否已在控件外），但是这些控件或要注册，或集合了其他实际没有什么作用控件，另外在程序中加入太多的控件也会影响程序的性能，利用Windows 的API 函数，我们可以在MouseMove 中模拟MouseEnter 和MouseExi...

用vb编写贪食蛇

2016年07月27日 94 阅读

用vb编写贪食蛇2010-01-02skydg"" Q B a s i c N i b b l e s"" Copyright （C） Microsoft Corporation 1990"" Nibbles is a game for one or two players. Navigate your snakes" around the game board trying to eat up numbers ...

vb实现高精度计时

2016年07月27日 102 阅读

vb实现高精度计时2010-01-02"在Project中加入一个Module，然后在其中加入以下代码：Option ExplicitType LARGE_INTEGER lowpart As Long highpart As LongEnd TypePublic Declare Function QueryPerformanceCounter Lib "kernel32" _ （lpPerformanceCount As L...

用VB编写抽奖程序

2016年07月27日 105 阅读

用VB编写抽奖程序2010-01-02一、界面设计新建一个标准的EXE工程。在Form1窗体中放置一个定时器（Timer1）、两个文本框（Label1，Label2）、两个命令按钮（Command1，Command2）和包含7个元素的控件数组（Label3（0）—Label3（6））。二、属性设置Label3控件数组中的所有元素皆采用相同设置。三、代码编写本程序的实现原理是：当用户单击“开始”按钮时，打开定时器，利用定时...

用DDE实现窗体防止运行多个实例并传递命令

2016年07月27日 106 阅读

用DDE实现窗体防止运行多个实例并传递命令2010-01-02上网的朋友一定都用过网络蚂蚁（Net Ants）的吧？不知你在使用过程中有没有注意过，那就是如果你想调动两个“蚂蚁”为您效力是不可能的——它总会把新运行的关闭。这点在VB 中很容易实现：Private Sub Form_Load（）If App.PrevInstance ThenMsgBox "你已经运行这个应用程序了"End ...

用VB制作李萨如图形动态演示程序

2016年07月27日 101 阅读

用VB制作李萨如图形动态演示程序2010-01-02 comprg.com.cn 罗英茹1 引言李萨如图形是一个质点的运动轨迹[1]，该质点在两个垂直方向的分运动 都是简谐运动。李萨如图形是物理学的重要内容之一，在工程技术领域也有很重要的应用。利用李萨如 图形可以测量未知振动的频率和初相位，掌握李萨如图形的形成过程有很重要的意义。因而动态显示李 萨如可以深入理解其形成过程。2 李萨如图形的形成假定形成李萨如图形的两个简谐运 动，一个在X轴上，一个在Y轴上，...

用BASIC语言写智能手机程序

2016年07月27日 103 阅读

用BASIC语言写智能手机程序2010-01-02 comprg.com.cn 倪慧刚前言时下，智能手机越来越贴近我们的生活，越来越多的教师朋友，学生朋友都会用智能手 机，因为她们功能齐全，在手机上运行的软件应有尽有，QQ、在线游戏，音乐影视…….。对于大学生朋友，广大教师朋友，能够在自己的手机有一个动态的课程表程序，一来可以合理安 排空余时间，二来又不会误了学习工作的时间，是一件非常不错的事。本文，以微软公司的移动手机 平...

用Visual Basic6类模块打造控件

2016年07月27日 122 阅读

用Visual Basic6类模块打造控件2010-01-02VB6因为简单易用，受到很多朋友的喜欢。可是也有人说它功能简单，没有给开发者提供足够的 发挥余地。比如不能方便地继承现有控件而派生出自己的控件。（什么？写ActiveX控件？太麻烦了吧。 要花大量时间在接口的设计和实现上，而且你不想让你的软件发布时带一堆OCX控件吧？）其实还是有办 法的，我们可以利用VB6里的类模块实现对控件的特殊控制和事件响应。本文介绍使用类模块把普通的 Label控件变成窗...

用Visual Basic自编小游戏

2016年07月27日 101 阅读

用Visual Basic自编小游戏2010-01-02shawls开始学vb时,并不知道vb可以做出动画,后来知道通过自编的子函数delay（c的库函数中的该函数）和 cls可以做出许多动画,但有一个缺点就是太耗内存,就我个人认为构思应该比编程重要，因为一旦有了一 个很好的构思剩下的问题都是技术问题，而我就是喜欢发现新的问题然后再想方设法解决它，通过发现 问题和解决问题我可以学到许多很有用的知识和技巧。好了，现在有了一个好的构思就开始进入程序的 编制。第...

在VB中实现窗体的动态效果

2016年07月27日 97 阅读

在VB中实现窗体的动态效果2010-01-02在VB编程中，应用程序窗体的出现和关闭一般都是静态的，不过，我们利用下面的一个API函数AnimateWindow就可以轻松实现窗体的动态效果。API函数AnimateWindow的声明如下：Private Declare Function AnimateWindow Lib "user32" （ByVal hwnd As Long, ByVal dwTime As Long, ByVal ...

取得File 8.3之文件名称格式

2016年07月27日 97 阅读

取得File 8.3之文件名称格式2010-01-15說明這就是在Dos底下的短檔名，可以透過GetShortPathName取得，範例程式如下程式"這個程式需要一個CommandPrivate Declare Function GetShortPathName Lib "kernel32" Alias"GetShortPathNameA" （ByVal lpszLongPath As String, ByVal l...

取得Disk Driver List与各个Driver的型态

2016年07月27日 96 阅读

取得Disk Driver List与各个Driver的型态2010-01-15Private Declare Function GetDriveType Lib "kernel32" _ Alias "GetDriveTypeA" （ByVal nDrive As String） As LongPrivate Declare Function GetLogicalDriveStrings Lib "ke...

利用VB实现对IE的调用与控制

2016年07月27日 101 阅读

利用VB实现对IE的调用与控制2010-01-15随着网络应用的不断扩展，采用HTML语言编写的文档越来越多，如何在VB程序中实现对HTML文档的浏览是一个需要解决的问题。本文以一个实例说明了在VB中调用和控制Internet Explorer的方法。一、编程准备VB通过OLE自动化技术创建和控制Internet Explorer对象的实例，因此，在新建一个工程后需要加入Microsoft Internet 控制的参考，方法是打开Visual Basic ...

用Visual Basic设计抽奖程序

2016年07月27日 121 阅读

用Visual Basic设计抽奖程序2010-01-15 电脑报 金传洋抽奖活动在生活中屡见不鲜，给我们日常生活也增添了不少乐趣。这里向大家介绍一种都很熟悉的电脑模拟抽奖游戏，就像各类晚会上经常使用的抽奖模式。抽奖程序操作要求方便直观，全体人员都可以清楚地观看抽奖全过程。一、设计界面先打开VB，在Form1中定义六个命令按钮，分别用来显示中奖号码的各位数字。默认情况下，参加的人数应少于10万人（当然，可以通过增加或减少按钮的个数，扩大或缩小参加抽奖人数的...

利用VB6.0开发简易版类似PhotoShop软件的初步探讨

2016年07月27日 102 阅读

利用VB6.0开发简易版类似PhotoShop软件的初步探讨2010-01-15 博客园 彭佳乐示例工程：http://files.cnblogs.com/laviewpbt/ImageShop.rar声明：1、如果你对VB语言有意见或者看不起他，依旧欢迎你评论，但请你不要用辱骂性的语言来评论。2、本文不考虑项目的商业上的可行性及必要性。3、本文不存在攻击其他语言的目的。这个问题我想了好久了，从毕业设计做图像检测开始接触图像，到工作中业余时间研究图像，大概...

VB编程步步高－杂类篇

2016年07月27日 96 阅读

VB编程步步高－杂类篇2010-01-15按照百分秒格式显示时间你可以编写下面的代码来显示时间，其中包括百分秒格式：txt = Format$（Time, "hh:mm:ss"） & Format$（Timer - Fix（Timer）, ".00"）注意：Timer函数不能显示百分秒格式的时间，它只能精确到50毫秒。简易安装注册表项目这里有一个安装程序时设置注册表项目的简单方法。首先，在机器上手工创建一个项...

VB编程步步高－代码效率篇

2016年07月27日 101 阅读

VB编程步步高－代码效率篇2010-01-15了解对象的类型如果你想知道一个对象是否是特殊的类型，请编写下面的代码：If TypeOf obj Is ListItem Then ...如果想得到对象类型的名字，使用：MsgBox "The item is a " & TypeName（obj）控制长时间的循环当程序陷入一个很长时间的循环中时，你就不可能点击任何一个命令按钮或者按键。这样对于用户来说，就很不好控制。或许用户不想再执...

VB打开CHM文件的几种方法

2016年07月27日 106 阅读

VB打开CHM文件的几种方法2010-01-15一个应用程序不论编制得如何完美，在很多情况下用户还是会对如何使用它提出问题。 Visual Basic提供了对两种不同帮助系统的支持：传统的 Windows帮助系统 （WinHelp）和新的HTML帮助（CHM帮助）。当我们制作好帮助文件后，就需要在程序的适当位置编写代码进行调用，本文将讨论几种在程序中调用CHM帮助文件的方法。方法一 使用F1键：这种方法最简单，只需如下代码即可：Private Sub Fo...

VB第三方控件实现XP资源管理器垂直栏

2016年07月27日 101 阅读

VB第三方控件实现XP资源管理器垂直栏2010-01-15 天极网 第七乐章简介ctlExplorerBar控件一个可以实现类似Windows XP资源管理器中右侧垂直栏的控件，它不仅可以创建不同的菜单组、在菜单组下添加项目，还可以为每一个项目编写感应事件，同时它更是可以实现图片的预览，简直和资源管理器的垂直栏一样！在许多软件界面中，它都可以发挥非常好的作用。应用实例想让你的程序更加吸引眼球吗？想在你的程序中打造像Windows XP资源管理器左侧那样的垂...

vb建立与读取.ini文件

2016年07月27日 114 阅读

vb建立与读取.ini文件2010-01-15虽然进入win95之後，一般读写ini文件被读写Registry所取代，但我们还是可以透过win31的传统方式读写ini文件，以存程式目前的相关设定，而於下一次程式执行时再读回来。目前建议使用GetSetting SaveSetting的方式存於Registry中，不用目前的方式。储存程式的设定"请於form中放3个TextBox，一个CommandBoxPrivate Declare Function Get...