设定Mouse在某个固定范围

2017年02月06日 96 阅读

设定Mouse在某个固定范围2008-03-08Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypeDeclare Function ClipCursor Lib "user32" （lpRect As Any） As LongDeclare Function ShowCursor Lib "user32"...

VB5.0与Windows API 间的呼叫技巧

2017年02月06日 96 阅读

VB5.0与Windows API 间的呼叫技巧2008-03-08一般会使用WINDOW API的情况，实在是因为VB本身不提供某些功能，但是，程式所需又不得不然，例如：读取Registry内的资料，VB只提供SaveSetting、Getsetting 等系列的指令，但是它只能读取特定地区的值，要读、删、更动其他区域的值时，就无法使用。再如：仔细看一看Combo Box的Events，其中没有MouseMove，但这是我们经常用上的一个Event，那该...

vb实现隐藏Mouse

2017年02月06日 135 阅读

vb实现隐藏Mouse2008-03-08Type POINTAPI x As Long y As LongEnd TypeDeclare Function GetCursorPos Lib "user32" Alias "GetCursorPos" _ （lpPoint As POINTAPI） As Long"隐藏MousePublic Sub toHideCursor（）ShowCursor 0E...

Check开机方式及Mouse Buttons个数

2017年02月06日 93 阅读

Check开机方式及Mouse Buttons个数2008-03-08Private Declare Function GetSystemMetrics Lib "user32" （ByVal nIndex As Long） As LongConst SM_CMOUSEBUTTONS = 43Const SM_CLEANBOOT = 67Private Sub Form_Load（）Dim mode As LongDim NumbBut...

建立Floating Window（Top Most的window）

2017年02月06日 109 阅读

建立Floating Window（Top Most的window）2008-03-08事实上是使用SetWindowPos（）来改变z-order，所谓z-order是屏幕一般是以x轴y轴来表示位置，而以z轴表示前後位置，这便是z-orderbWndInsertAfter的设定值HWND_BOTTOM Places the window at the bottom of the Z order. If the hwndparameter identi...

在VB程序中格式化SQL字符串

2017年02月06日 90 阅读

在VB程序中格式化SQL字符串2008-03-21在写SQL语句时,需要对不同类型的数据分别加上#号,""号等来表示,用以下函数,就可以实现操作的简化.不管是什么类型,只需用这个Q函数转化一下,不需动手加格式化符号,就OK了.实在是方便.本人一直在用它,实在是方便.Function Q（ByVal SqlVariable As Variant） As String"------------------------------------...

ADO揭密1

2017年02月06日 97 阅读

ADO揭密12008-03-21Ken Jin概述 ADO 对象可以在所有支持COM和OLE的平台上使用，如：VB，VC++，VBScrip，Java 等等。包括以下的七个对象：ConnectionCommandParameterRecordsetFieldPropertyError以及四个集合：FieldsPropertiesParametersErrorsADO 的核心是Connection，Recordset和Command 对象。首先用Connec...

在VB中更改SQL数据库结构

2017年02月06日 89 阅读

在VB中更改SQL数据库结构2008-03-21笔者在开发"凉山州林业局"天然林资源保护综合管理系统中，需要为程序建立Sql Server数据库的运行环境。为了方便用户，笔者开发了这个数据库配置工具。完成在SQL Server数据库中建立设备，建立数据库，建立表格，分配权限的功能，"凉山州林业局"系统中的所有数据库配置操作都可以通过这个小工具完成。方便了数据库应用程序所需Sql Server环境的建立，根本不用启动S...

拖动无系统标题栏的窗口

2017年02月06日 94 阅读

拖动无系统标题栏的窗口2008-04-17在VB中可以通过设置Form的属性，制作无系统标题栏的窗口。可是，由于失去了系统标题栏，如何使用鼠标拖动窗口便成了一个棘手的问题。其实，借助API函数ReleaseCapture和SendMessage，这个问题便可迎刃而解了。首先，在module文件中加入下列声明语句： Declare Sub ReleaseCapture Lib"User"（） Declare Function Se...

Memory DC与hBitmap

2017年02月06日 101 阅读

Memory DC与hBitmap2008-04-17DC 即Device Context，是GDI内部的一个资料结构，一个DC会和某个特定的显示设备（如打印机、屏幕等）产生关联。我们如果能取得该DC的handle 那我们便可以在这显示设备上写字、画图。在Form 或Picturebox中都有一个hdc的属性，指的便是这东西，但是，怎麽又会有一个Memory DC呢？这是一个存在记忆体内的 dc ，它除了不像form picturebox能将图形、文字显示...

Process Thread Window之关系

2017年02月06日 93 阅读

Process Thread Window之关系2008-04-17许多人包括我自己，对於window与process或Thread间的对应，常感困扰，我就目前所知者，大概的介绍一下：一个Process有自己4GB的位址空间，这个观念比较容易接受，但是它却不是执行程式的单位，真正执行程式者是Thread，每个Process被Create时，便会有一个主thread 来执行它，我们又可以Create其他的Thread来执行程式，假设现在就有两个thread於...

用VB编写托盘程序

2017年02月06日 109 阅读

用VB编写托盘程序2008-04-17 cww 杨炳虎在WINDOWS里，右下角有许多应用程序的图标。而程序本身的窗口是隐藏的，若你需要调用应用程序的窗口，则双击该图标即可。这种程序称为托盘程序。这是WINDOWS98操作系统的一大特色。使用户能够更加快捷的显示和隐藏应用程序，可以使任务栏不致于太乱。托盘程序在Visual Basic里是怎么实现的呢？编写托盘程序主要解决两个问题：（1）创建、修改、删除托盘；（2）如何对托 盘接收到的消息进行处理。这就要用...

你也可以YAI-VB5中Winsock控件的使用

2017年02月06日 97 阅读

你也可以YAI-VB5中Winsock控件的使用2008-04-17前一段时间，一个名叫YAI的‘病毒’在我国闹的沸沸扬扬，许多不明真相的人对他感到神秘莫测，可是究其实质无非也就是一个远程控制软件罢了，只不过他的服务器端程序隐藏的十分好而已。其实在VB5中有一个基于TCPIP协议的Winsock控件，利用他改改属性，写几段代码，我们同样可以来一回YAI.由于篇幅所限，在这里我们只来看看对远程计算机的重启，关闭功能室如何实现的。打开V...

VB与VC混合编程中处理消息的方法

2017年02月06日 87 阅读

VB与VC混合编程中处理消息的方法2008-04-17吴俊峰现在越来越多的人采用VB与VC的混合编程：用VB快速开发出漂亮的界面以及外围处理程序，再用VC编写底层的各种操作，例如内存的操作、IO端口的操作等，VC中还可以嵌入汇编语言进行更底层的操作。一般的做法是将VC程序编译成DLL，在VB中用Declare语句声明DLL中的函数，例如：Declare Function SendCommand Lib ″c:program filesdevst...

在VB中动态添加可响应消息的控件

2017年02月06日 93 阅读

在VB中动态添加可响应消息的控件2008-04-17在VB编程中，经常要根据不同的情况在运行时向窗口中添加或者删除控件，而各个控件还要响应各种事件。在一般的情况下是首先在设计时将控件加入到窗口中，在它们的各个事件中写入代码，然后将它们的Visible属性设置为False。在运行时再使控件显示出来，但是这样既不方便同时也因为在设计时在窗口中加入太多的控件而使得程序的运行速度变慢。下面我向大家介绍一种通过编程在运行时动态添加和删除控件的方法首先建立一个工程文件...

利用WSH实现关闭计算机功能

2017年02月06日 90 阅读

利用WSH实现关闭计算机功能2008-04-17利用WSH实现关闭计算机功能，其实很简单，采用下面的语句即可。把下面的语句保存为test.vbs，然后运行，就可以看到效果。Set objshell = wscript.CreateObject（"Shell.Application"）objshell.ShutdownWindows...

vb中避免按回车键产生的“嘀”声

2017年02月06日 102 阅读

vb中避免按回车键产生的“嘀”声2008-04-17当你在文本框（Text Box）中输入完信息然后按 [Enter] 键，你就会听到计算机喇叭发出难听的“嘀”声。你可以通过以下方法避免此声：假设文本框为 Text1，在 KeyPress 事件中输入以下代码：Private Sub Text1_KeyPress（KeyAscii As Integer）"Vb man 2001"URL: http://goodvbman.yeah.n...

vb如何控制鼠标

2017年02月06日 98 阅读

vb如何控制鼠标2008-04-17主要是要通过两个方面：（一）对鼠标的停留位置做出判断，也就是得到鼠标在屏幕上停留的位置。（二）将鼠标的移动到所确定的位置上。 而实现这个功能则要使用到SetCursorPos这个函数，此函数的功能是设定鼠标位置。这个函数的声明如下：Public Declare Function SetCursorPos Lib "user32" （ByVal x As Long, ByVal y As Long） A...

VB5里面实现VB6的InstrRev（）和Split（）一样的替换函数

2017年02月06日 95 阅读

VB5里面实现VB6的InstrRev（）和Split（）一样的替换函数2008-04-17Private Function split_vb5（ByVal sstr As String, spstr As String） As VariantDim starstr, lenstr, cur As IntegerDim backstr（） As Stringstarstr = InStr（sstr, spstr）cur = starstr + 1lenst...

用VB读取和控制Windows的中文输入法

2017年02月06日 98 阅读

用VB读取和控制Windows的中文输入法2008-04-17潘晓臻在Windows中我们可以用“Ctrl＋Shift”键来调入或切换中文输入法，但是这样做每次都是使位于输入法列表顶端的那个输入法首先被调用。通常我们都要连续按好几次“Ctrl＋Shift”才能将习惯的输入法调出。我编制了一段小程序，通过它可以把任意一个输入法放在输入法列表的顶端。它的原理是：使用LoadKeyboardLayout函数可以改变...