Private Sub mnuquit_Click()
End
End Sub
Private Sub mnutx_jx_pt_Click()
Shape1.Visible = True
Shape1.Shape = 0
mnuxt_ysy.Enabled = True
mnuxt_yser.Enabled = True
End Sub
Private Sub mnutx_ty_Click()
Shape1.Visible = True
Shape1.Shape = 2
mnuxt_ysy.Enabled = True
mnuxt_yser.Enabled = True
End Sub
Private Sub mnutx_yx_Click()
Shape1.Visible = True
Shape1.Shape = 3
mnuxt_ysy.Enabled = True
mnuxt_yser.Enabled = True
End Sub
Private Sub mnutx_zfx_pt_Click()
Shape1.Visible = True
Shape1.Shape = 1
mnuxt_ysy.Enabled = True
mnuxt_yser.Enabled = True
End Sub
Private Sub mnutx_zfx_yj_Click()
Shape1.Visible = True
Shape1.Shape = 5
mnuxt_ysy.Enabled = True
mnuxt_yser.Enabled = True
End Sub
Private Sub mnuxt_yser_Click()
mnuxt_yser.Checked = True
Shape1.FillStyle = 5
mnuxt_ysy.Checked = False
End Sub
Private Sub mnuxt_ysy_Click()
mnuxt_ysy.Checked = True
Shape1.FillStyle
菜单的编写
最新推荐文章于 2023-07-18 21:38:02 发布
![](https://img-home.csdnimg.cn/images/20240611030827.png)