请教!!!
解决方案 »
- 求一个获取注册表项下所有键名的方法!
- 非常急!!如何在form1框架里面添加exe程序。
- ??请问各位::如何实现象WINDOWS一样打开一个文件进行阅读呢???
- VB如何读*.dbf的数据???小女子求教拉!!!!谢谢
- 请教水晶报表几个简单问题?高分送,急急急...
- vb+sql查询
- 会动态生成按扭吗?
- 谁有学生成绩管理SQL+VB(或C#),发我一份
- VB数据报表问题,急!!!
- windows中的api调用是怎样实现语言无关的?比如大多数的DLL都是用C写的,但是在VB中一样可以调用。
- -----------关于TreeView的用法-----------
- 帮忙做一下下面这个题目~~~~~(没学过VB,老师非要用VB)
您 的算法可以用在VB里的自身世程序里,但是好象不能用于计算别的程序的左下角的坐标.
比如,现在知道了QQ窗口左上角的坐标,怎么计算QQ窗口左下角的坐标???请教请教!
Me.Show
MsgBox "这个窗体的左上边是:" & Me.Left \ 15 & "点" & vbCrLf & "这个窗体的上边是:" & Me.Top \ 15 & "点"
MsgBox "这个窗体的左下边是:" & (Me.Left + Me.Width) \ 15 & "点" & vbCrLf & "这个窗体的下边是:" & (Me.Top + Me.Height) \ 15 & "点"
End SubPrivate Sub Form_Load()
Me.Show
MsgBox "这个窗体的左上边是:" & Me.Left \ 15 & "点" & vbCrLf & "这个窗体的上边是:" & Me.Top \ 15 & "点"
MsgBox "这个窗体的左下边是:" & (Me.Left + Me.Width) \ 15 & "点" & vbCrLf & "这个窗体的下边是:" & (Me.Top + Me.Height) \ 15 & "点"
End Sub
Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As Long, lpRect As RECT) As Long
说明
获得整个窗口的范围矩形,窗口的边框、标题栏、滚动条及菜单等都在这个矩形内
返回值
Long,非零表示成功,零表示失败。会设置GetLastError
参数表
参数 类型及说明
hwnd Long,想获得范围矩形的那个窗口的句柄
lpRect RECT,屏幕坐标中随同窗口装载的矩形
注解
如将它与通过GetDesktopWindow获得的句柄联合使用,可获得对整个可视显示区域(桌面)进行说明的矩形
RECT 类型定义
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
说明
这是windows广泛采用的一种数据结构,通常作为参数传递给许多api函数。RECT结构表示一个矩形区域,left和top字段描叙了矩形第一个角(通常是左上角),right和bottom字段描叙了矩形的第二个角(通常是右下角)。这两个位置决定了矩形的大小与位置。这些字段采用的单位及坐标系统取决于当前的有效缩放比例、准备表示的对象以及准备调用的api函数。并不要求bottom字段的绝对值大于top字段,而且也可以为负数。
注意
由right及bottom字段指定的点通常不是矩形的一部分;矩形对象描叙的是个空矩形(其中不包含像素);RECT结构要求按引用传递给windows函数,不要试图使用ByVal