'删除图纸中的所有点对象 Sub DelAllPoint() Dim E As AcadEntity Dim B As AcadBlock For Each B In ThisDrawing.Blocks For Each E In B If TypeOf E Is AcadPoint Then E.Delete End If Next Next ThisDrawing.Regen End Sub
If Me.RadioButton_IM.Checked = True Then i = fetion.ContactControl.SendIM.SendIM(Me.Txt_SendID.Text.ToString, Me.Txt_SendContent.Text.ToString) Else i = fetion.ContactControl.SendSMS.SendSMS(Me.Txt_SendID.Text.ToString, Me.Txt_SendContent.Text.ToString) End If Me.Btn_SendIM.Enabled = False System.Threading.Thread.Sleep(1000) 您的代码因为是同步的,所以这里不需要sleep同样可以得到返回值i