关于控件left & Top的问题

2002-07-08 03:52:06 181 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

MFC Picture控件图像显示全解析：静态与动态加载的四种实现方案在Windows桌面应用开发中，图形设备接口（GDI）是图形显示的核心基础，它定义了应用程序与图形硬件之间的通信协议。其原理在于通过设备上下文（DC）抽象层，管理绘图表面与资源对象（如位图、画刷），实现图形输出的标准化。这一机制的技术价值在于提供了跨设备的图形编程接口，使得界面渲染、数据可视化等需求得以高效实现。在MFC框架的工程实践中，对话框Picture控件作为GDI的典型应用场景，常被用于仪器面板、数据监控等嵌入式上位机软件的图像展示。针对静态资源嵌入与动态文件加载两种常见需求，开发者可通过控件属性绑阅读详情

用VB做一个自定义控件，然后在另一个程序中使用此控件。
程序中有如下代码
Private Sub UserControl1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage UserControl1.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub

控件能正常移动，但是控件的left & Top的值不变，但是如果用此代码移动VB
自带的标准控件，它的left & top 值都发生变化，谁知道这是为什么？

...全文

Python UIAutomation实战：7个核心技巧提升Windows桌面自动化稳定性 UI自动化是软件测试和机器人流程自动化（RPA）领域的关键技术，它通过模拟用户操作实现软件界面的自动控制。其核心原理在于识别和操作界面元素，这直接决定了自动化脚本的稳定性和可维护性。在Windows平台上，Python UIAutomation库通过调用系统底层的UI Automation API，提供了比基于坐标的“盲操作”更精准、更可靠的解决方案，技术价值在于能够稳定处理Win32、WPF、UWP乃至Electron应用。该技术广泛应用于自动化测试、日常办公流程自动化等场景。本文聚焦于Python UI 阅读详情

watt

控件 1,453 成员 41,351 内容

+ 关注 + 加入社区

切换为时间正序

banweihui 2002-07-11

打赏
举报

我是来学习的～

watt 2002-07-11

打赏
举报

如果有更好的办法，继续加分！

watt 2002-07-11

打赏
举报

难道没有别的方法吗？我认为应该有某个消息通知控件其位置发生了变化，让控件自动刷新，如果不是这样的话，为什么VB自带的控件移动好用。而我们自定义控件不行，现在我在尝试用setwindowpos函数看可不可以。楼上的方法也是一个方法，我试一试。有没有最优的解决方法？

griefforyou 2002-07-10

打赏
举报

弄了半天也只能这样了,用自已的属性ULeft,UTop来读控件位置,用Left,Top设置控件位置
Option Explicit

Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long

Private Type POINTAPI
X As Long
Y As Long
End Type

Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Public ULeft As Single
Public UTop As Single

Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage UserControl.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub

Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Uhwnd As POINTAPI
Dim FrmHwnd As POINTAPI

ClientToScreen UserControl.hwnd, Uhwnd
ClientToScreen UserControl.Parent.hwnd, FrmHwnd

ULeft = (Uhwnd.X - FrmHwnd.X) * Screen.TwipsPerPixelX
UTop = (Uhwnd.Y - FrmHwnd.Y) * Screen.TwipsPerPixelY

End Sub

griefforyou 2002-07-10

打赏
举报

弄了半天我只能做到这样了,你抛弃Left,Top属性自已创建ULeft,和UTop属性来保存控件的位置,不过还只能用Left和Top去设置控件的位置了!

Option Explicit

Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long

Private Type POINTAPI
X As Long
Y As Long
End Type

Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Public ULeft As Single
Public UTop As Single

Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage UserControl.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub

Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Uhwnd As POINTAPI
Dim FrmHwnd As POINTAPI

ClientToScreen UserControl.hwnd, Uhwnd
ClientToScreen UserControl.Parent.hwnd, FrmHwnd

ULeft = (Uhwnd.X - FrmHwnd.X) * Screen.TwipsPerPixelX
UTop = (Uhwnd.Y - FrmHwnd.Y) * Screen.TwipsPerPixelY

End Sub

watt 2002-07-10

打赏
举报

Who can help me?

yufenfeila 2002-07-08

打赏
举报

自定义控件的属性应该在编写自定义控件的时候添加

griefforyou 2002-07-08

打赏
举报

我试过了,是不改变

不过你可以换个方法,自已添加UserControl的Left和Top属性
我想这样应该没问题

关于控件left & Top的问题

相关推荐