vb如何做一个大小相同的文本框覆盖在计算器输入框上面？

来源：百度知道 编辑：UC知道 时间：2024/07/05 21:30:13
vb如何做一个大小相同的文本框覆盖在计算器输入框上面？

要求：
1.窗口必须透明，只有控件不透明。
2.跟随计算器窗口，即是说：计算器窗口处于最上层，则立即将自身窗口文本框覆盖在其输入框上面，否则，隐藏自身窗口和控件。
高分相送。
请高手留下您的QQ以便联系。
1.文本框大小和位置都和计算器的输入框相同
2.总是处于计算器窗口的上方
3.窗体透明,只有控件不透明
4.计算器窗口出现在屏幕上才覆盖在其上面,否则隐藏自身

在窗体上加入控件text1,command1,然后复制下面代码，运行等出现计算器窗口后，点击command1按钮，再看看计算器，是不是你想要的效果？
注意：由于窗体是隐藏的，所以想退出本程序，必须在text1中按ctrl+q

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private 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
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal Hwnd As Long, lpRect As RECT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Sub Command1_Click()
Dim Hwnd As Long, tipwnd As Long, rctemp As RECT
Hwnd = FindWindow("SciCalc",