VB 获得当前窗体标题

发布时间：2020-12-16 23:33:27 所属栏目：大数据来源：网络整理

导读：Private Declare Function GetForegroundWindow Lib "user32" () As LongPrivate Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long,ByVal lpString As String,ByVal cch As Long) As LongPrivate Sub Timer1_Timer(

Private Declare Function GetForegroundWindow Lib "user32" () As Long Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long,ByVal lpString As String,ByVal cch As Long) As Long Private Sub Timer1_Timer() Dim l As Long,s As String l = GetForegroundWindow s = String(255,Chr(0)) GetWindowText l,s,255 MsgBox s End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!