用VB编写抽奖程序

2017年02月06日 91 阅读

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

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

2017年02月06日 97 阅读

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

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

2017年02月06日 83 阅读

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

用BASIC语言写智能手机程序

2017年02月06日 91 阅读

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

用Visual Basic6类模块打造控件

2017年02月06日 115 阅读

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

用Visual Basic自编小游戏

2017年02月06日 93 阅读

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

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

2017年02月06日 103 阅读

在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之文件名称格式

2017年02月06日 91 阅读

取得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的型态

2017年02月06日 90 阅读

取得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的调用与控制

2017年02月06日 94 阅读

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

用Visual Basic设计抽奖程序

2017年02月06日 109 阅读

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

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

2017年02月06日 99 阅读

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

VB编程步步高－杂类篇

2017年02月06日 83 阅读

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

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

2017年02月06日 86 阅读

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

VB打开CHM文件的几种方法

2017年02月06日 93 阅读

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

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

2017年02月06日 86 阅读

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

vb建立与读取.ini文件

2017年02月06日 98 阅读

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

VB实现含子目录的搜寻档案

2017年02月06日 96 阅读

VB实现含子目录的搜寻档案2010-01-15一般来说，搜寻目录及子目录底下符合条件之所有档案功能的程式撰写，一向颇令人头疼，而最後的解决方式多用 Recursive（程式递回呼叫） 来解决，像 VB5.0所附的 WinSeek.vbp 范例，就是 FileListBox 和 Recursive 程序的兼用，来解决这个问题。本范例则用另一种思考模式切入，在不使用任何 OCX 及 Recursive 程序下利用两个非固定阵列变数及双层 Do...Loop 回...

vb实现老板键功能

2017年02月06日 110 阅读

vb实现老板键功能2010-01-15 51cto 阿汐很久没用vb了，做了个小东西，用着还挺顺手的 :）frmmain.frm"---------------------------------------------------------------------------------------" Author :阿汐" Purpose :vb实现老板键的简单功能"-------------------------------------...

VB中利用ccrpHotKey控件设置热键

2017年02月06日 102 阅读

VB中利用ccrpHotKey控件设置热键2010-01-15 天极 简介：ccrphotkey是一个第三方控件，该控件可以轻松实现热键功能使用示例您一定对“Ctrl＋Alt＋Z”很熟悉吧？没错，它是QQ里打开消息对话框的默认热键，通过这组热键，我们可以很迅速的打开消息对话框查看，大大加快我们操作的速度。同时我们也知道，在QQ的系统设置中可以对热键进行设置（如图1），当我们按下任何热键组合时，文本框都会实时显示热键组合，让用户明白当...