VB编程实用精典小技巧3例

2026-03-25
一、利用API 获取窗口的标题

  新建窗体Form1和按钮Command1 ぴ诖疤迥?橹刑砑尤缦麓 码:

  Option Explicit

  Private Declare Function Get WindowText Lib "us—

  er32"Alias "Get WindowTextA"(ByVal hwnd As

  Long ,ByVal lpString As String ,ByVal cch As

  Long)As Long

  '在窗体声明节中加入API 函数“Get WindowText”的说明

  '函数将向lpstring 中载入要获得的窗体caption

  Private Sub Command1_Click()

  Di mreturncode As Long

  Di mcaptext As String

  Di mcaplen As Long

  captext =String$(100,0)

  caplen =99

  returncode =Get WindowText(ByVal me .hwnd ,

  ByVal captext ,ByVal caplen)

  print returncode

  Print captext

  Print caplen

  End Sub