简单问题：还是句柄的

2002-05-22 12:35:27 98 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

unity打包流程整理-Windows/Mac/Linux平台 1.Platform（平台）功能: 选择目标构建的目标平台选项PC, Mac & Linux Standalone: 适用于 Windows、Mac 和 Linux 平台2.Target Platform（目标平台）功能: 选择具体的操作系统版本选项Windows: 针对 Windows 操作系统Mac: 针对 macOS 操作系统Linux: 针对 Linux 操作系统3.Architecture（架构）功能: 选择应用程序的目标处理器架构选项x86: 针对 32 位系统。阅读详情

怎样实现：
把鼠标点击任何一个窗体上，msgbox 该窗体的caption。

要想随意更改被点击的窗体的caption呢？

...全文

基于stm32的数控恒压恒流电源设计方案基于stm32的数控恒压恒流电源设计方案基于stm32的数控恒压恒流电源设计方案不包实物，可自己动手制作，可代做本设计采用220V市电输入工频变压器,将220V交流电压降为24V交流电压,经过全桥整流加电容滤波,输出约32V直流电压.可调输出电压方案采用线性稳压调整器方案,即运放处于比较调整状态,运放输出驱动P型MOS管,电压输出端由电阻分压反馈至运放同相输入端,运放反相输入端由STM32单片机控制TLC5615数模转换器输入模拟电压,根据运放构成比较器原理,运放的同相端和反相端始终趋向于电压相等的特阅读详情

NIRVANAIII

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

NIRVANAIII 2002-05-28

打赏
举报

对了！！！！

就应是这样！！！！

给分！！

dsclub 2002-05-28

打赏
举报

我想这样可以了吧？
Option Explicit

Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) 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 Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Private Type POINTAPI
x As Long
y As Long
End Type

Dim myCursor As POINTAPI

'再点击按钮后，将鼠标移到你想要改的窗体上
'看看标题栏里的变化吧！！
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Dim myhWnd As Long
Dim strName As String * 100
Dim myCh As Long

GetCursorPos myCursor
myhWnd = WindowFromPoint(myCursor.x, myCursor.y)
myCh = GetWindowText(myhWnd, strName, 100)
'Print Left(strName, myCh)
SetWindowText myhWnd, "改！！！！！！！！！！！"
End Sub

哎呀，连这个窗体都改了！！！

NIRVANAIII 2002-05-27

打赏
举报

能给点代码吗？

NIRVANAIII 2002-05-27

打赏
举报

楼上，不是这样吧？

我要是也想把IE改了呢？

SetWindowText：设置窗口的标题文字或控件的内容（在vb里使用：针对vb窗体，应使用caption或text属性）

只对VB的窗体有效吧？
我是要可以更改系统里任何一个窗！！！！

孙小雄 2002-05-27

打赏
举报

一百分可要算数呀
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Command1_Click()
Dim winHwnd As Long
winHwnd = FindWindow(vbNullString, Text1.Text)
If winHwnd <> 0 Then
SetWindowText winHwnd, Text2.Text
Else
MsgBox "并未开启" & Text1.Text
End If
End Sub

Private Sub Form_Load()
Text1.Text = "Form1"
Text2.Text = "改了！"
End Sub

zyl910 2002-05-26

打赏
举报

GetForegroundWindow

VB声明
Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As Long
说明
获得前台窗口的句柄。这里的“前台窗口”是指前台应用程序的活动窗口
返回值
Long，前台窗口的句柄
注解
windows nt支持多个桌面，它们相互间是独立的。每个桌面都有自己的前台窗口

zyl910 2002-05-26

打赏
举报

GetWindowText

VB声明
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
说明
取得一个窗体的标题（caption）文字，或者一个控件的内容（在vb里使用：使用vb窗体或控件的caption或text属性）
返回值
Long，复制到lpString的字串长度；不包括空中止字符。会设置GetLastError
参数表
参数类型及说明
hwnd Long，欲获取文字的那个窗口的句柄
lpString String，预定义的一个缓冲区，至少有cch+1个字符大小；随同窗口文字载入
cch Long，lpString缓冲区的长度
注解
不能用它从另一个应用程序的编辑控件中获取文字

====================================================================SetWindowText

VB声明
Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
说明
设置窗口的标题文字或控件的内容（在vb里使用：针对vb窗体，应使用caption或text属性）
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数类型及说明
hwnd Long，要设置文字的窗口的句柄
lpString String，要设到hwnd窗口中的文字

NIRVANAIII 2002-05-25

打赏
举报

算了！！！

一定是用API的！！！！！

不是本窗体！！！！！

看清题目，要的是与句柄相关的！！！

不是本程序的窗体，是任一窗体！！！

怎么获得它的hDC？
获得了后怎么得到窗体的caption？
怎么改写caption？

解决后给开贴100分！！！

DownFree 2002-05-25

打赏
举报

假如窗体或者控件的名字是AAA
那么在AAA_Click()事件中添加代码
AAA.Caption="你想要的内容！"

NIRVANAIII 2002-05-25

打赏
举报

iampawpawcsdn 2002-05-23

打赏
举报

最好把你的问题描述的清楚一点！

arline 2002-05-23

打赏
举报

呵呵,你可以用api函数的
The SetWindowText function changes the text of the specified window抯 title bar (if it has one). If the specified window is a control, the text of the control is changed.
The GetFocus function retrieves the handle of the window that has the keyboard focus, if the window is associated with the calling thread抯 message queue.
The GetFocus function retrieves the handle of the window that has the keyboard focus, if the window is associated with the calling thread抯 message queue.

daturawing 2002-05-23

打赏
举报

msgbox "你显示的txt",vbokonly,"窗体的caption"

NIRVANAIII 2002-05-23

打赏
举报

怎么这么长时间都没人理会？？？

简单问题：还是句柄的

相关推荐