其他分享
首页 > 其他分享> > 访问网页

访问网页

作者:互联网

try destroydialog biaoti catch()
rollout biaoti ""
(
local mousedd = false
local thepos = [0,0]

activeXControl ax "https://www.baidu.com/" width:950 height:550 pos:[25,25]
hyperlink msg "按住移动-右键退出" pos:[5,5] color:red enabled:false

on biaoti lbuttonup pos do mousedd = false ;
on biaoti lbuttondown pos do (mousedd = true ; ThePos = pos)
on biaoti mouseMove pos do if mousedd do SetDialogPos   biaoti  (mouse.screenpos - thepos)
on biaoti rbuttondown pos do destroydialog biaoti

)
createdialog biaoti 1000 600 bgcolor:(color 150 200 255) style:#()

标签:do,destroydialog,网页,pos,mousedd,biaoti,访问,false
来源: https://www.cnblogs.com/humd/p/12110108.html