简单问题(送20分)
比如我做了1个程序,里面有个label1,他的caption="Codefund"
我又做了个程序,当我按下command后想读取 第1个程序中label1的caption 请问怎么实现
楼主问题很含糊!两个控件在同一个窗体吗?
在同一窗体:
Private Sub Command1_Click()
label1.caption="Codefund"
End Sub
不在同一窗体:
Private Sub Command1_Click()
form1.label1.caption="Codefund"
End Sub
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)
findwindow 找到程序一label1所在窗体的句柄
findwindowex 找到程序一label1的句柄
sendmessage 获取label1的内容