取得Disk Volume Information

2017年02月06日 94 阅读

取得Disk Volume Information2009-10-06Private Declare Function GetVolumeInformation Lib "kernel32" _ Alias "GetVolumeInformationA" （ByVal lpRootPathName As String, _ ByVal lpVolumeNameBuffer As String, ByVal nVo...

限制Form Resize的最大值

2017年02月06日 95 阅读

限制Form Resize的最大值2009-10-06当Form的Position更动或大小改变时，会Send WM_GETMINMAXINFO的讯息，当我们取得这个讯息时，可以更动该讯息内定Windows Resize的值，不过本人目前只有测出如何限定其最大的Size，而最小的Size目前没有测出来，知道可者告诉我Option Explicit"以下程式在module1.basDeclare Function SetWindowLong Lib &quo...

用VB学做“黑客”程序

2017年02月06日 96 阅读

用VB学做“黑客”程序2010-01-02只要掌握了原理，你也能写出一个所谓的“黑客”程序。下面笔者带领大家用VB亲自编写一个远程控制程序。从而揭开它的神秘面纱。一、所用控件在程序中将使用Winsock控件。Winsock控件是一个ActiveX控件，使用TCP协议或UDP协议连接到远程计算机上并与之交换数据。和定时器控件一样，Winsock控件在运行时是不可见的。Winsock的工作原理是：客户端向服务器端发出连接请求，服务器端则...

用vb创建ActiveX

2017年02月06日 95 阅读

用vb创建ActiveX2010-01-02简 介Edition使创建ActiveX？控键如同创建一般的VB应用程序那样容易。读完本文，你就会看到是怎样的容易。本文概述了用VISUALBASIC创建ActiveX控键的简单过程。如果你对VISUALBASIC的各个版本已经很熟悉，那么在10分钟内你就能创建你的第一个ActiveX控键。下面的步骤将引导你完成创建一个通常叫作"微调控制项" 控键的过程。微调控制项控键是一个图形化的Activ...

用VB制作家庭影集

2017年02月06日 92 阅读

用VB制作家庭影集2010-01-02冯雪榆你想拥有自己的电子家庭影集吗？其实用VB就能实现。方法如下：准备：家庭普通照片经扫描后储存。构想：照片一张接一张出现在屏幕中间，出现时的方式采取动态切换，上方一行标题从左向右移过， 标题与照片的背景色随机变化。关键：调用Bitblt Windows API函数实现照片的动态切换。内容：工程由Forml和modluel构成。FORML中的内容如下：Comst bmpfilemax=11 照片数目常量Const bm...

用VB创建B/S程序

2017年02月06日 109 阅读

用VB创建B/S程序2010-01-02随着Windows 95中文版和Windows NT Server 4.0中文版的流行， Microsoft公司推出了相应平台上 的开发软件: Visual Basic 5.0 中文企业 版。它为Windows环境下的网络开发提供了强大的工具， Winsock控件就是其中之一。Winsock控件建立在TCP、UDP协议的基础上，完成与远程计算机的通 信。即使对TCP/IP不太熟悉的用户，使用该控件也可以在十几分钟内创...

用VB建立捷径（ShortCut）

2017年02月06日 158 阅读

用VB建立捷径（ShortCut）2010-01-02王国荣原本这应是用OLE的方式来做，但可用以下的方式来做，前题是有vb所提供的vb5stkit.dll所以令人 不太愉快Private Declare Function fCreateShellLink Lib "vb5stkit.dll" _（ByVal Forder As String, ByVal ShortCutName As String, _ByVal ExePath A...

读取Windows工作列的大小及位置

2017年02月06日 98 阅读

读取Windows工作列的大小及位置2010-01-02此一问题需呼叫 SHAppBarMessage API 函数，细节如下：1. API 的宣告：Const ABM_GETTASKBARPOS = &H5Private Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypePrivate Type APPBARDATA cbSize As Long hWnd...

实现VB中打开图像文件时的预览功能

2017年02月06日 105 阅读

实现VB中打开图像文件时的预览功能2010-01-02wjxcn前一阵有人在VB专家门诊中提出一个问题，如何在VB中实现打开图像文件的预览，虽然给出了300分 的高分，回答着却寥寥无几。我在参照了DELPHI的源代码后在VB中实现了其部分图像预览功能，在中文 WINDOWS98 SE下测试通过。从MSDN中可以知道调用文件打开通用对话框需调用API 函数GetOpenFileName，原形如下：BOOL GetOpenFileName（ LPOPENFIL...

实现窗体的自动隐藏显示功能

2017年02月06日 139 阅读

实现窗体的自动隐藏显示功能2010-01-02现在许多程序的窗体都有自动隐藏/显示的功能（比如OICQ）。 实现这样的功能其实很简单，原理是：判断鼠标是否移到了屏幕的最左边或最右边，如果移到了则显示窗体，如果鼠标移开了窗体则隐藏窗体。在本程序中，我们将用到GetCursorPos这个API函数是实现这个功能最重要的一步，这个函数的作用就是获取当前鼠标的坐标值，我们可以通过这个值来判断鼠标是否移到了屏幕的最边缘.下面我们就开始吧。新建一窗体，将Form1更...

一个用VB编写的监控别人上网的软件例子

2017年02月06日 95 阅读

一个用VB编写的监控别人上网的软件例子2010-01-02一、程序核心本程序的核心是通过API函数获得窗口句柄并获得浏览器访问的网址，在此基础上可以实现用Winsock控件进行远程的监视和管理。1.先创建一个工程并在窗口Form1中，并声明下面的四个API函数和两个常量：Option Explicit Private Declare Function FindWindow Lib ″user32″ Alias ″Find...

实现在TextBox中得知Caret所在位置

2017年02月06日 90 阅读

实现在TextBox中得知Caret所在位置2010-01-02"在form中放一个textBox两个labelConst EM_GETSEL = &HB0Const EM_LINEFROMCHAR = &HC9Const EM_LINEINDEX = &HBBPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA&qu...

如何直接开启一个文件

2017年02月06日 100 阅读

如何直接开启一个文件2010-01-02Shell是用来执行外部的可执行文件如果是一个文件，那要用ShellExecute来启动预设的程式来开启文件"HINSTANCE ShellExecute（" HWND hwnd, // handle to parent window" LPCTSTR lpOperation, // pointer to string that specifies operation to perform" LPCTST...

在VB中制作不回显的文本框

2017年02月06日 96 阅读

在VB中制作不回显的文本框2010-01-02李碧颖、杨洪斌在应用程序中,有时需要用户录入一些不宜在屏幕上直接显示的内容,如用户口令或机密数据。我们已熟知,在Foxbase/Foxpro中这一功能可以用SETCONSOLEOFF命令关闭向屏幕的回显来实现。那么,在 VisualBasicforWin-dows中如何做到这一点呢？一个容易想到的方法是利用文本框的Key-Press事件,但为了处理用户对文字的编辑（如删除、插入） ,则还要再用其它变量存放真正输...

有BitMap之Menu

2017年02月06日 89 阅读

有BitMap之Menu2010-01-02在Window API中，有一些名词要先清楚，假设有一功能表如下：档案 编辑 选项 --> hMenu （功能表）+-------+|复制 |---------> hSubMenu （子功能表）|贴上 ||减下 -------------> MenuID （功能表项目）| |+-------+如果，我们使用vb的功能表编辑器做出上面的Menu，那 hMenu的取得使用GetMen...

在RTF TEXT中使用色彩

2017年02月06日 93 阅读

在RTF TEXT中使用色彩2010-01-02*** Add VB code in a RTF control Call InitColorize CallColorizeWords（rtfVBCode）*** Now your VB code in your RTF control is colorized Source Code: #VBIDEUtils#**********************************************...

在VFP、VB应用程序中激活鼠标功能

2017年02月06日 91 阅读

在VFP、VB应用程序中激活鼠标功能2010-01-02蔡可训鼠标是WINDOWS环境下不可缺少的输入工具,在应用程序中灵活地使用鼠标功能,会给工作带来极大的 方便.VISUAL FOXPRO6.0和VISUAL BASIC6.0是MICROSOFT VISUAL STUDIO98面向对象的可视化开发环境, 它功能非常强大,而且设计程序简单实用.它提供了与鼠标操作有关的事件和API函数,所以编写鼠标功能 程序就变得非常简单,只需在程序中调用这些事件和API...

自己编程模拟MouseEnter，MouseExit事件

2017年02月06日 103 阅读

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

用vb编写贪食蛇

2017年02月06日 96 阅读

用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实现高精度计时

2017年02月06日 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...