图解两个api函数！！

HHAAMM

声明：本人不会api，试着看了一点点教程，这个算是自己的笔记吧.

HHAAMM

Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Sub test1()
    xxxx = CopyFile("e:/a.txt", "e:/new1.txt", True)
End Sub
Sub test2()
    CopyFile "e:/a.txt", "e:/new.txt", True
End Sub

HHAAMM

抄来了一段
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Const WM_CUT = &H300
    Const WM_COPY = &H301
    Const WM_PAST = &H302
    Const WM_CLEAR = &H303
    Const WM_UNDO = &H304
    Dim fb As Long
  
    Private Sub cmdClear_Click()
     fb = SendMessage(Text1.hwnd, WM_CLEAR, 0, 0)
    End Sub
    Private Sub cmdCopy_Click()
     fb = SendMessage(Text1.hwnd, WM_COPY, 0, 0)
    End Sub
    Private Sub cmdCut_Click()
     fb = SendMessage(Text1.hwnd, WM_CUT, 0, 0)
    End Sub
    Private Sub Command4_Click()
     fb = SendMessage(Text1.hwnd, WM_PAST, 0, 0)
    End Sub
    Private Sub Command5_Click()
     fb = SendMessage(Text1.hwnd, WM_UNDO, 0, 0)
    End Sub

HHAAMM

Const WM_CUT = &H300
    Const WM_COPY = &H301
    Const WM_PAST = &H302
    Const WM_CLEAR = &H303
    Const WM_UNDO = &H304
有些搞乱了
这个函数中的这种常量还有什么！！

HHAAMM

Text1.hwnd移植到VBA里无效，！！
vba里该怎么取得文本框的句柄！！

[ 本帖最后由 HHAAMM 于 2009-5-30 04:08 编辑 ]

小fisher

原帖由 HHAAMM 于 2009-5-30 03:34 发表
Const WM_CUT = &H300
    Const WM_COPY = &H301
    Const WM_PAST = &H302
    Const WM_CLEAR = &H303
    Const WM_UNDO = &H304
有些搞乱了
这个函数中的这种常量还有什么！！

这种常量太多了，API浏览器中以WM_开头的常量全是，另外各种标准控件都有自己独特的消息，比如以EM_开头的文本框消息，以CB_开头的列表框消息等等，见下表：

前缀	消息类别
ABM	Application desktop toolbar 应用程序桌面工具条
BM	Button control 按钮控件
CB	Combo box control 组合框控件
CBEM	Extended combo box control扩展组合框控件
CDM	Common dialog box 通用对话框
DBT	Device 设备
DL	Drag list box 下拉列表控件
DM	Default push button control
DTM	Date and time picker control日期/时间选择控件
EM	Edit control 文本框控件
HDM	Header control 列表头控件
HKM	Hot key control热键控件
IPM	IP address control　IP地址控件
LB	List box control 列表框控件
LVM	List view control 列表控件
MCM	Month calendar control日历控件
PBM	Progress bar 进度条控件
PGM	Pager control　Pager控件
PSM	Property sheet 属性表单
RB	Rebar control伸缩条
SB	Status bar window 状态栏
SBM	Scroll bar control 滚动条
STM	Static control 静态控件
TB	Toolbar 工具栏
TBM	Trackbar
TCM	Tab control
TTM	Tooltip control 工具提示
TVM	Tree-view control 树形列表
UDM	Up-down control
WM	General window 常规窗口

在Windows中，系统与窗口以及窗口与窗口之间的通讯全是以消息的方式，如果说窗口是Windows系统的躯壳，消息就是它的灵魂。每个窗口实例都包含一个消息处理函数（Windows Procedure）用来处理接收到的消息。
每个用户输入（比如移动鼠标、按下鼠标/键盘按键、抬起鼠标/键盘按键...）都会被硬件的驱动程序转化为一条对应的消息，由应用程序引起系统的变化也会产生消息，比如窗口的位置、Z次序变化会产生WM_PAINT、WM_WINDOWPOSCHANGED等消息；点击菜单项会产生WM_COMMAND消息...，这类消息被称作系统定义消息，标准控件的消息也属于这部分；另外窗口自身也可以自定义消息用于执行某种任务或者与其它窗口通信，这类消息被称作程序定义消息，这个例子不好举，不过可以类比一下，比如文本框控件有EM_UNDO消息用来撤销上一次的操作，其他窗口也可通过向文本框发送EM_UNDO消息来使它执行这一任务，应用程序也可以定义类似的消息来完成其他任务。
Windows中，为了避免消息ID的冲突，规定&H0000-&H03FF范围内的数字用于定义系统消息（0-1023共1024个数字），&H0400-&H7FFF用来定义程序定义消息。
系统定义消息中WM前缀的消息可以从网上找到，比如这里：http://blog.csdn.net/oobibigo/archive/2008/10/02/3009826.aspx

小fisher

原帖由 HHAAMM 于 2009-5-30 04:07 发表
Text1.hwnd移植到VBA里无效，！！
vba里该怎么取得文本框的句柄！！

VBA中的文本框、组合框与VB中的不同，它们都是“轻量”控件，也就是没有自己句柄的控件

HHAAMM

俺发现这样也可以对单元格进行保护
Private Declare Function GetCursorPos Lib "user32" (b As a) As Long
Private Type a
         x As Long
         y As Long
End Type

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim b As a
GetCursorPos b
If b.x < 200 Or b.y < 200 Then
    Cells(6, 3).Select
End If
'MsgBox "X = " & b.x & " Y = " & b.y
End Sub

[ 本帖最后由 HHAAMM 于 2009-5-30 15:55 编辑 ]

jilijun

初学API，正好学习学习！谢谢！

moto_yufo

原帖由 HHAAMM 于 2009-5-30 15:54 发表
俺发现这样也可以对单元格进行保护
Private Declare Function GetCursorPos Lib "user32" (b As a) As Long
Private Type a
         x As Long
         y As Long
End Type

Private Sub Worksheet_Selecti ...

GetCursorPos ：获取当前光标位置，坐标是相对屏幕原点的，如果小化窗口就不适用了