Command1.Parent.Caption = "测试"                '所在窗体
    Command1.Container.Caption = "测试2"            '所在容器，直接在窗体上时，窗口为容器

-------测试代码--------

Dim x As Long, y As Long, obj As Object

x = Command1.Left                   '自己的坐标
y = Command1.Top
Set obj = Command1.Container        '上一层容器
Do
    If obj Is Me Then Exit Do       '如果为放控件的窗体本身退出循环
    x = x + obj.Left
    y = y + obj.Top
    Set obj = obj.Container         '继续取上一层容器
Loop
If Me.MDIChild Then        '如果是mdi子窗体再加上窗口坐标
    x = x + Me.Top
    y = y + Me.Left
End If

Debug.Print x, y
Debug.Print Command1.Left, Command1.Top
Debug.Print Frame1.Left, Frame1.Top
Debug.Print Picture1.Left, Picture1.Top

收到的鲜花

• hmj0745 于 2021-12-12 18:30 送鲜花  5朵   附言：代码短小精悍，注释详细，完美！

完美，加上风版的这段代码，可以打造出比较个性化的定制Msgbox 消息框了！
感谢！

风版，能给个事例的文件吗？

frmDlg  是什么窗体？

Msgfrm  窗体的名字而以， 相当于一个 From1 ，只是手动改了一下名字而以。
一般情况下，建议按照标识符命名原则来命名标识符
标识符命名原则一般用来：增加规范性、可读性而做的一种约定，标识符在定义的时候最好见名知意，提高代码阅读性
frm 开头，表示这个标识符用于命名一个窗体（from)
Dlg ，标识符的用途，这里代表一个对话框（dialog）


我们平时定义变量例如
dim i as integer
这里面这个 i ，按命名原则，只用于 循环变量 或 中间临时变量 ，而不能用于代表具体含义的某个变量。