Loading... <!-- wp:paragraph {"fontSize":"normal"} --> <p class="has-normal-font-size">我们开发Command的时候可以使用BaseCommand.WriteStatusBarMsg(" ")来改变3D中的StatusBar显示状态。但是在Command中我们很多时候会使用到Form,Form里面的各种事件如果也想在3D的StatusBar更新状态,是无法直接使用WriteStatusBarMsg方法的。这时候按照下面思路可以实现。</p> <!-- /wp:paragraph --> <!-- wp:spacer {"height":20} --> <div style="height:20px" aria-hidden="true" class="wp-block-spacer"></div> <!-- /wp:spacer --> <!-- wp:group --> <div class="wp-block-group"><div class="wp-block-group__inner-container"><!-- wp:paragraph {"textColor":"vivid-cyan-blue","fontSize":"normal"} --> <p class="has-text-color has-normal-font-size has-vivid-cyan-blue-color"><strong>1.在Form类头定义一个公共事件</strong></p> <!-- /wp:paragraph --></div></div> <!-- /wp:group --> <!-- wp:code --> <pre class="wp-block-code"><code>Public Class frmRun Inherits System.Windows.Forms.Form Public Event WriteStatusBar()</code></pre> <!-- /wp:code --> <!-- wp:paragraph {"textColor":"vivid-cyan-blue","fontSize":"normal"} --> <p class="has-text-color has-normal-font-size has-vivid-cyan-blue-color"><strong>2.在Form的某个需要更新StatusBar状态的事件中RaiseEvent该事件</strong></p> <!-- /wp:paragraph --> <!-- wp:code --> <pre class="wp-block-code"><code>Private Sub btnExcute_Click(sender As Object, e As EventArgs) Handles btnExcute.Click RaiseEvent WriteStatusBar()</code></pre> <!-- /wp:code --> <!-- wp:paragraph {"textColor":"vivid-cyan-blue","fontSize":"normal"} --> <p class="has-text-color has-normal-font-size has-vivid-cyan-blue-color"><strong>3.在CMD主代码中的类头使用WithEvent定义该Form对象</strong></p> <!-- /wp:paragraph --> <!-- wp:code --> <pre class="wp-block-code"><code>Public Class DuctThk Inherits BaseGraphicCommand Private m_oModel As Model Private WithEvents m_ofrmRun As frmRun = Nothing</code></pre> <!-- /wp:code --> <!-- wp:paragraph {"textColor":"vivid-cyan-blue","fontSize":"normal"} --> <p class="has-text-color has-normal-font-size has-vivid-cyan-blue-color"><strong>4.在CMD代码中定义一个方法来处理该Form对象中的该事件</strong></p> <!-- /wp:paragraph --> <!-- wp:code --> <pre class="wp-block-code"><code>Public Sub WriteStatusBarFromForm() Handles m_ofrmRun.WriteStatusBar WriteStatusBarMsg("测试中...") End Sub</code></pre> <!-- /wp:code --> <!-- wp:paragraph --> <p></p> <!-- /wp:paragraph --> 最后修改:2025 年 03 月 13 日 © 允许规范转载 打赏 赞赏作者 支付宝微信 赞 如果觉得我的文章对你有用,请随意赞赏