获得系统目录路径 Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" ( ByVal lpBuffer As String , ByVal nSize As Long ) As Long ' 等待指定进程运行结束 Private Declare Function OpenProcess Lib "kernel32" ( ByVal d ...
1,获得光标位置和字符个数. Cpos=SendMessage(text1.hwnd,187,-1,0) '光标所在行的首字符在文本中的位置 Lpos=SendMessage(text1.hwnd,201,Cpos,0) '光标所在的行号 Line=SendMessage(text1.hwnd,193,Cpos,0) '这行的字符数. 2.获取第N行的文本 Dim ST As String ST = Space(110)'必须要事先赋空格 Line=Send ...
介绍如何利用消息函数来扩展树型列表 TreeView 控件的功能。相信对于树型列表控件大家十分的 熟悉,典型的应用就是 Windows 资源管理器中的目录列表。而在VB中,树型列表控件包含在Microsoft Windows Common Control 6.0(也可能是5.0,视你的VB或者系统版本而定)中。在Windows API 中, 有一系列的以 TVM_ 开头的消息值 ...
SendMessage函数的常用消息及其应用 文本框控件通常用于输入和编辑文字。它属于标准 Windows 编辑控件的一个子类,所以它支持所有 编辑控件消息。这儿讲述的技术也适用于由其他厂商设计的,以Windows编辑控件类为基础的其他控件。 函数原型: Declare Function SendMessage Lib "user32" Alias "SendMessageA" (B ...