请问如何保证窗口全部打开之前 按钮后续的点击无效啊
如果快速点击tile 就会报一些表加载错误什么的 但是一次点击就都正常
'Tile点击事件
Public Sub Tile_Click(sender As System.Object, ByVal e As System.EventArgs)
Select Case sender.text
Case "客户资料"
If UserPrivilege.Contains("010000") Then
Forms("CustInfo").Show
Else
MessageBox.show("无权限!","系统提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Case "销售日报"
If UserPrivilege.Contains("010202") Then
Functions.Execute("CRM_Stats_DailyPaperTemptbl")
Forms("CustDailyPaper").Show
Else
MessageBox.show("无权限!","系统提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Case Else
MessageBox.Show(sender.text & "正在建设中...")
End Select
End Sub
加好友 
发短信
Post By：2015/3/29 15:08:00 [只看该作者]
