3 回答
TA贡献1795条经验 获得超7个赞
给你一个很简单的API 参数简单,用起来简单。。
第一个:
FindWindow 用来找到窗口句柄。
第二个:
MoveWindow 用来设置窗体坐标及宽高。
-------------------------------------分割线---------------------------------------
exmple:
窗体标题:Test
具体实现
' API调用声明
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'API调用声明
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, _
ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, _
ByVal bRepaint As Long) As Long
Private sub Command_Click()
Dim HW as long
HW=FindWindow(VBNULLSTRING,"Test")
MoveWindow HW,0,0,200,300 ' 将该窗口X变为200 ,Y变为300
TA贡献1810条经验 获得超5个赞
vb很多空间不支持透明显示,甚至很多控件不支持背景图像。 对于支持背景图像的还好解决,你可以使用PictureClip控件,把form的背景赋给PictureClip ,然后读控件的坐标和大小,使用PictureClip 剪切你需要的部分赋给控件的背景。 如果控件不支持背景就麻烦多了。比如TEXT,只好使用很多API函数直接往控件的客户区写。这样还不如不用控件,完全自己写一个text
- 3 回答
- 0 关注
- 966 浏览
添加回答
举报