PROSAGA码农传奇-openedge-中心消息框.NET - 适用于OpenEdge 11.6的Progress Developer Studio（32位）

中心消息框.NET - 适用于OpenEdge 11.6的Progress Developer Studio（32位）

作者: 听风～
发布时间: 2025-01-01 10:13:44 (1月前)
转自：

<div class =“post-text”itemprop =“text”>
  
    简短的回答是，你不能！
  
  
    答案很长，您可以调用win32 API并以特定方式设置消息框。
  
  
    但是，快速浏览Win32 API（以及.NET）显示无法修改默认位置：
  
  
    <a href="https://msdn.microsoft.com/en-us/library/windows/desktop/ms645505(v=vs.85).aspx" rel="nofollow noreferrer">
      https://msdn.microsoft.com/en-us/library/windows/desktop/ms645505(v=vs.85).aspx
    </A>
    <a href="https://msdn.microsoft.com/en-us/library/system.windows.forms.messagebox.show(v=vs.110).aspx" rel="nofollow noreferrer">
      https://msdn.microsoft.com/en-us/library/system.windows.forms.messagebox.show(v=vs.110).aspx
    </A>
  
  
    解决方法可能是使用定义为对话框的框架。
  
  
    这是一个非常快速和脏的代码，可以帮助您入门：
  
   <pre>
 <code>
 DEFINE BUTTON b1 LABEL "OK".
DEFINE VARIABLE cMsg AS CHARACTER NO-UNDO FORMAT "x(30)" .

DEFINE FRAME fr1 
    cMsg NO-LABEL 
    b1
    cMsg AT COLUMN 1 ROW 1
    b1   AT COLUMN 5 ROW 3 
    WITH VIEW-AS DIALOG-BOX  SIZE 40 BY 5 
    .

ENABLE b1 WITH FRAME fr1.

ON "choose":U OF b1 
DO:
    MESSAGE "You pressed OK!" VIEW-AS ALERT-BOX.
    APPLY "close" TO FRAME fr1.
END.

/* Set the location */
FRAME fr1:ROW = 10.
FRAME fr1:COL = 30.

cMsg = "This is the message".

DISPLAY cMsg WITH FRAME fr1.

WAIT-FOR "close" OF FRAME fr1.

</code>
 </pre>
</DIV>