Visual Basic 6
文章平均质量分 74
40Star
这个作者很懒,什么都没留下…
展开
-
让窗体的标题栏不相应鼠标双击
还等什么,让我们现在开始。1。新建一个VB6的标准EXE工程,然后添加一个模块,将下列代码加入新的模块中:Option Explicit Private Declare Function SetWindowLong Lib "user32" Alias _ "SetWindowLongA" (ByVal hWnd As Long, ByVal原创 2002-05-17 17:13:00 · 1864 阅读 · 0 评论 -
有用的GetForegroundWindow
这个小例子就是用来演示如何得到Windows桌面上处于活动状态的窗口的句柄的。使用一个Timer控件就可以搞定。在本例中再通过GetWindowText函数来处理得到句柄后的操作。1。新建一个标准VB6的EXE工程,加入Timer控件2。API函数的声明private Declare Function GetForegroundWindow Lib "user32" () as原创 2002-05-17 17:11:00 · 2979 阅读 · 0 评论 -
ADO记录集和水晶报表
在使用水晶报表时,经常会感到数据不是很好控制,最后只好使用这个终极绝招咯。那就是使用数据定义文件(TTX),把得到的ADO记录集传送给水晶报表。通常情况下,水晶报表是从物理的数据库上创建出来的,但是现在有了32位的Active Data Driver-- P2smon.dll,水晶就可以不用再事先连接到一个数据库上咯。首先,需要创建一个TTX文件,进入数据源选择窗体后,如下图选中原创 2002-12-03 08:53:00 · 9174 阅读 · 0 评论 -
用VB处理定长文本的导入
用VB编写将带分割符的文本导入数据库可能是最经常用到的方式,但是导入定长的文本就不是像前者那样简单了(个人观点)。因为这里需要处理一个技术问题,就是在VB中所有的字符都是按照Unicode进行运算的,所以一个字节的英文字符、数字和两个字节的汉字在VB中都是两个字节。那么在我将一行文本ReadLine读到一个字符串中后,如果从某位至某位是单双字节混合的字符串,那就没有办法用Mid、Left这类函数确原创 2002-11-29 14:49:00 · 2092 阅读 · 1 评论 -
使用Windows消息控制Winamp(VB)
第一部分:得到Winamp的窗口Winamp是一个32位的Windows应用程序。也就是说,我们可以使用32位的Windows编程的一些基础技术来实现控制Winamp,即使用Windows的消息系统。在你给Winamp发送消息之前,你必须得到Winamp窗口的句柄。这里有个方法,使用外部应用程序(例如你自己编写的VB应用)就可以达到要求。Public Declare Function Fi原创 2002-06-24 09:25:00 · 1522 阅读 · 0 评论 -
另类Msgbox
写过VB的人都知道Msgbox函数弹出系统提示对话框,这个对话框既然是Windows给我们使用的那么我们就可以通过别的方式改变它。下面我就会调用MessageBox的Api来改变VB的对话框函数,创造出我们自己风格的Msgbox!该例程是将Msgbox弹出,并且总是位于窗口的中央;而且修改了Msgbox中的“确定”按钮上的文字。程序中简单的使用了Windows的钩子。1·加入一个模块:Op原创 2002-11-28 09:12:00 · 1668 阅读 · 0 评论 -
如何得到应用程序的运行时间
利用函数GetTickCount就可以搞定,不过他是个API,需要声明一下下。还有需要注意的是,这个函数返回的是毫秒,所以需要自己再转换单位的!GetTickCount得到的是操作系统到现在为止的运行时间,那么用两次的返回值相减就可以了。Option ExplicitPrivate Declare Function GetTickCount Lib "kernel32" () As Lo原创 2002-09-24 09:34:00 · 1692 阅读 · 0 评论 -
界面开发之Flat3DButton
自己是否想过重画控件,现在用强大的VB来实现吧。下例就是简单的利用VB中的CommandButton改变成Flat3DButton风格。其实就是利用VB的SubClass去处理父窗口的WM_DRAWITEM消息。1. 建立一个标准EXE工程,加入Command1和Command2,将Command1的Style属性设为Graphical。2. 加入模块,取名SubClass_Flat3原创 2002-07-26 09:48:00 · 1284 阅读 · 0 评论 -
将About加入窗口的系统菜单
如果能把关于软件的一些信息(About Me)加入窗口的系统菜单是不是很酷啊!其实这是个很简单的操作,Lets go!1.添加一个模块(SubClass)Option Explicit有关系统菜单的APIPublic Declare F原创 2002-06-05 10:29:00 · 1438 阅读 · 0 评论 -
VB术语表
VB GlossaryUse this glossary of key programming terminology as your starting point as you learn Visual Basic. If a term is not listed here, or you need a more detailed explanation, try consulting the原创 2002-10-11 23:19:00 · 2661 阅读 · 0 评论 -
处理鼠标移出事件
Windows提供的鼠标移出消息有时候很有用,但是VB6中没有把这个事件封装给我们。但是我们仍然可以使用子类化技术实现他,下面的代码就是一个简单的例子来处理Windows的WM_MOUSELEAVE消息的,我演示的是鼠标移出一个Button时的情形。1.加入一个模块,专门用来处理子类函数:Option Explicit原创 2002-10-11 23:01:00 · 1995 阅读 · 0 评论 -
个性化文件夹图标(VB)
抛弃Windows的默认图标吧,让自己的程序所在的目录拥有个性化的Folder Icon!其实作起来简单得很,实际上只需要一个Desktop.ini文件即可,下面我会从两个方面说明。1. 手动方式:首先要在需要改变的文件夹中创建一个Desktop.ini文件,例子如下[.ShellClassInfo]ConfirmFileOp=0InfoTip=我自己的文件夹IconIndex=0I原创 2002-08-05 10:40:00 · 1491 阅读 · 0 评论 -
在托盘上显示Balloon Tooltip
运行这个示例的前提是系统需要Windows 2000 or XP (Shell version 5 or better)。大家可能对托盘程序很熟悉了,这里我也不再多讲,这段小代码只是说明一下托盘的新特性:显示Balloon Tooltip。至于什么是Balloon Tooltip,只要把一下代码贴到VB中就会看到新鲜效果,再次提醒注意运行环境!1.建立标准EXE工程,为Form1换一个P原创 2002-07-22 10:23:00 · 1707 阅读 · 0 评论 -
调用IE的收藏夹
调用IE的收藏夹(系统需要IE4以上版本) Internet Explorer 库--shdocvw.dll包含了许多可以操纵IE收藏夹的API。其中的两个API是调用IE的“添加到收藏夹”和“整理收藏夹”对话框。下面的示例程序就是如何使用这两个对话框。“添加到收藏夹”的Dialog很像Windows的通用对话框中的SaveAs Dialog,它自身没有任何机能(不能创建或保存一个原创 2002-07-22 10:24:00 · 1991 阅读 · 1 评论 -
调用系统屏幕保护
有的人觉得API很复杂,其实如果你从比较有趣的API函数开始学习的话,就觉得API很好玩的。下面我们在自己的程序中启动Windows操作系统的屏幕保护。利用强大的SendMessage函数发送一个WM_SYSCOMMAND消息,我们就可以搞定,很简单吧。建立一个VB6标准的EXE工程,将下列代码贴入Option Explicit声明这个SendMessage的API使用Privat原创 2002-06-06 09:40:00 · 1425 阅读 · 0 评论 -
ListBox中的字符串超长显示的解决方法
使用ToolTip来解决超长文字的显示问题是不错的方案,下面给出了例子的代码。Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As原创 2002-11-02 12:50:00 · 3778 阅读 · 1 评论