Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long...

2008-02-23 06:54:36

在Dos的年代，我们常会以拦截中断向量的方式，做到按下某个hotkey而自动执行某个程式，在Window呢，也可以，不过它是用ReGISterHotkey API来完成。 使用RegisterHotkey的概念是，它会定义一组按键的组合，当使用者不管在哪个程式之中，按下Window有注册的HotKey时，OS会...

2008-02-23 06:54:34

在Win 95中，计算机有一个名字。运行regedit，在“HKEY-LOCAL-MACHINESystemCurrentControlSetcontrolComputerNameComputerName”中将发现“ComputerName”=“Default”( 或其它字符串)，在regedit下可以查看和修改这个名字。我们还可在程序中通过Win32API提供的Ge...

2008-02-23 06:54:34

2.3 设置显示模式 设置显示模式是使用SetDispalyMode函数实现的，函数的定义如下： object.SetDisplayMode(w As Long, h As Long, bpp As Long, ref As Long, mode As CONST_DDSDMFLAGS 其中参数w、h分别指定屏幕的宽度和高度，bpp指定屏幕显示的颜色位数，参数ref指定...

2008-02-23 06:54:32

1.数据类型 数据类弄是数据的一种属性，表示数据所表示信息的类型。任何一种计算机语言都定义了自己的数据类型。当然，不同的程序语言都具有不同的特点，所定义的数据类型的各类和名称都或多或少有些不同。SQL Server 提供了 25 种数据类型： ·Binary [(n)] ·Varbinar...

2008-02-23 06:54:32

Public Sub FocusMe(ctlName As Control) With ctlName .SelStart = 0 .SelLength = Len(ctlName) End With End Sub Now add a call to this subroutine in the GotFocus event of the input controls: Private Sub txtFocusMe_GotFocus() Call FocusMe(txtFocusMe) End...

2008-02-23 06:54:30

所谓动态图标，就是窗体左上角的图标不停的变化着。其实现原理也很 简单：经过一个时间段，让窗体的图标变成另一个图标。如此循环，就可以实现了。 下面的例子实现了该功能。 步骤1----建立新工程，在窗体上放置一个PictureBox控件，设置其Index = 0,Visible = false;一...

2008-02-23 06:54:29

源代码： Private Sub Command1_Click() Dim back back = mciSendString("CLOSE NN", 0, 0, 0) End Sub Private Sub Command2_Click() Dim back back = mciSendString("OPEN " App.Path "TEST.mid" " TYPE SEQUENCER ALIAS NN", 0, 0, 0) back = mciSendString("PLAY N...

2008-02-23 06:54:29

空字段的处理 在往SQL Server数据库中添加记录时，每个字段必须给予明确赋值（即在没有给数据表设定缺省规则或给每个字段设定缺省值的情况下），否则便发生错误。因此我用VB编写了一个处理函数，将其放入标准模块，以供相应程序调用。函数首先判断是否给字段赋值，若没...

2008-02-23 06:54:27

获得鼠标双击间隔时间： Public Declare Function GetDoubleClickTime Lib "user32" Alias "GetDoubleClickTime" () As Long 函数返回以毫秒为单位的鼠标双击间隔时间。 设置鼠标双击间隔时间 Declare Function SetDoubleClickTime Lib "user32" Alias "SetDoubleClickT...

2008-02-23 06:54:27