弹出的对话框位置问题

《弹出的对话框位置问题》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、弹出的对话框位置问题弹出的对话框位置问题　　使用WINCC库中的阀门、电机等图标，单击他们弹出操作的对话框，现在的问题是弹出的对话框是在鼠标点击的位置附近出来，但是点击监控画面边缘的图标时发现，弹出的对话框超出了画面的边缘，还得用鼠标拖拽回来，（因为是改造项目，原制作者在PLC中的地址不规律，无法用结构变量，只能把阀门的操作对话框逐一制作出来，我使用VB程序加画面窗口做的，）程序如下：　　SubMouseDown(ByValItem,ByValButton,ByValShift,ByValx,ByValy)　

2、　DimPIC　　SetPIC=ScreenItems(“画面窗口1”)”“““““““选择画面窗口　　ScreenItems.Item(“画面窗口1”).PICTURENAME=“阀门号”　　PIC.Visible=False　　PIC.Left=item.Left+10　　PIC.Top=item.Top　　ScreenItems(“画面窗口1”).Visible=True　　EndSub　　不知道怎么解决，请赐教！　　　　问题补充：　　能不能来个VB的程序判断离上下、左右的位置啊　　　　最佳答案　　　　

3、　　　　　　　　　　　　　　　　试试这个全局函数吧希望对你有帮助　　你只需修改DialogName参数　　SubShowDialog(ByvalDialogName,Byvalx,Byvaly)　　”“““““““对话框显示位置自动调整函数函数　　”“““““““鼠标事件按左键事件中调用　　”“““““““DialogName为要显示对象的名称x,y为鼠标点击的位置（鼠标左键事件中调用直接为X,Y）　　”“““““““例：CallShowDialog(“1号鼓风机放空气阀_Dialog”,x,y)　　”“““

4、““““by:逐渐变晕　　DimPageWidth,PageHeight,DiaWidth,DiaHeight,PX,PY,Constval　　Constval=30”“““““““调整显示对话框距离鼠标点击点距离　　PageWidth=HMIRuntime.Screens(““).Width　　PageHeight=HMIRuntime.Screens(““).Height　　DiaWidth=ScreenItems(DialogName).Width　　DiaHeight=ScreenItems(Dial

5、ogName).Height　　px=x+Constval　　PY=y+Constval　　Ifx+DiaWidth+Constval>=PageWidthThen　　PX=x-Constval*2-DiaWidth　　EndIf　　Ify+DiaHeight+Constval>=PageHeightThen　　PY=y-Constval*2-DiaHeight　　EndIf　　ScreenItems(DialogName).Left=PX　　ScreenItems(DialogName).Top=PY　　S

6、creenItems(DialogName).Visible=True　　EndSub　　SubEndDialog(ByvalDialogName)　　DimPageWidth　　PageWidth=HMIRuntime.Screens(““).Width　　ScreenItems(DialogName).Left=ScreenItems(DialogName).Left+PageWidth　　EndSub