2007年07月_SImonJ07

原创 VB 使窗口透明

为了便于观察，先在窗口上添加两个按钮， Command1和 Command2。加上如下代码： Private Sub Command1_Click()Sub Command1_Click() Print "Hello" End Sub Private Sub Command2_Click()Sub Command2_Click() End En

2007-07-30 10:49:00 1393

原创 VB让窗口置顶

新建立类模块： Option Explicit Declare Function SetWindowPos()Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long,

2007-07-30 10:41:00 4668

原创 VB API函数中文(第二部分)

3. API之文件处理函数 CloseHandle 关闭一个内核对象。其中包括文件、文件映射、进程、线程、安全和同步对象等 CompareFileTime 对比两个文件的时间 CopyFile 复制文件 CreateDirectory 创建一个新目录 CreateFile 打开和创建文件、管道、邮槽、通信服务、设备以及控制台 CreateFileMapping 创建一个新的文件映射对象 Del

2007-07-26 08:41:00 1445 1

转载 VB API函数中文(第一部分)

1. API之网络函数 WNetAddConnection 创建同一个网络资源的永久性连接 WNetAddConnection2 创建同一个网络资源的连接 WNetAddConnection3 创建同一个网络资源的连接 WNetCancelConnection 结束一个网络连接 WNetCancelConnection2 结束一个网络连接 WNetCloseEnum 结束一次枚举操作 WNet

2007-07-26 08:36:00 957

原创 VB实现对输入法的控制

可以调用系统方法Private Declare Function GetKeyboardLayoutList()Function GetKeyboardLayoutList Lib "user32" (ByVal nBuff As Long, lpList As Long) As LongPrivate Declare Function ImmGetDescription()Funct

2007-07-26 08:29:00 3869

原创 VB剪贴板的用法

　 VB中剪贴板的应用是很重要的，它能使你简化程序并能增强程序功能。下面就把常用的几个用于VB剪贴板的语句作一介绍：一、CLEAR（，，STACK＆）　用于关闭文件，清除文件缓冲区的内容和其它一些设置初始值的工作。其中STACK＆为设置堆栈大小。二、CLIPBOARD．GETDATA（［FORMAT］）　从剪板中返回一个图片。其中FORMAT的值有2、3、8、9具体对应请参照文末

2007-07-26 08:22:00 1865

原创 VB关键字总结

1.编译命令关键字总结作用关键字定义编译常数。 #Const编译程序码中的选择区块。 #If...Then...#Else2.变量与常数关键字总结作用关键字指定值。

2007-07-26 08:21:00 3771

原创 picturebox图片拖动

Private Sub Form_Load()Sub Form_Load() Image1.Picture = LoadPicture(Me.ImgPath) FitForm Image1 Image1.Stretch = TrueEnd SubPrivate Sub Form_Resize()Sub Form_Resize() Call CenterIm

2007-07-26 08:17:00 1276

原创在VB、VBA中实现延时（等待）的几种方法

在程序流程中经常要延时一段时间后再继续往下执行，在VB中常用的有以下几种方法（因为Timer控件打乱了程序的流程所以一般不用它）：1.使用Windows API函数Sleep新建一个工程，添加一个TextBox控件和一个CommandButton控件，再将以下代码复制到代码窗口：Private Declare Sub Sleep()Sub Sleep Lib "kernel32" (ByV

2007-07-26 08:14:00 41501 1

SImonJ07的记事本