ag503685496 发表于 2010-2-18 17:17:00

[求助]使用SelectOnScreen的奇怪现象

<p>程序如下：</p><p>sub main()</p><p>Dim cad As Object<br/>Dim ss As Object<br/>Set cad = GetObject(, "autocad.application")<br/>cad.WindowState = 1<br/>AppActivate cad.Caption<br/>Set ss = cad.application.activedocument.SelectionSets.Add("s")<br/>ss.SelectOnScreen<br/>Load Form1<br/>Form1.Show<br/>AppActivate Form1.Caption</p><p>end sub</p><p>用尽一切办法也不能在选择目标之后自动激活form1！如果没有ss.SelectOnScreen，则是可以激活的。</p><p>请问这是什么原因啊?</p><p>另：form1窗体在在任务栏闪烁，就是不出来</p>

baby528 发表于 2010-2-20 21:04:00

能不能先装入Form，执行Hide后再Select，然后再Show

ag503685496 发表于 2010-2-25 22:13:00

<p>您好，试了试，还是不行。我尝试了许多遍，只要用了SelectOnScreen,就不能激活窗体的焦点！</p>
页: [1]
查看完整版本: [求助]使用SelectOnScreen的奇怪现象