1

我的 vb.net 4.0 项目是内部交易平台。

一个名为MsgPad的单独表单包含一个名为MsgPadDG的 Datagridview 。

Form-load sub 做了两件事：格式化datagridview 并定义一个用于刷新gridview 的计时器。

第二个 Sub，UpdateMyMsg ，通过NewMessage事件从线程化的UIUpdaterEngine接收更新，并更新MyMessages对象（基本上是一个数据表）。

第三个子组件 UpdateMdgPadDGW使用调用方法更新/刷新数据网格视图（可能没有必要，因为计时器是在 UI 线程中定义的）。

最后 Datagridview 属性：行定义为不可编辑， AutoSizeRowsMo​​de = Displayedcells和ScrollBars = Both。

我的问题是当更新过程添加超出datagridview限制的行时，整个App崩溃，导致出现滚动条。我尝试不使用计时器（直接在 UpdateMyMsg Sub 中调用数据源更新），使用计时器，但问题始终存在。奇怪的事情：Try-Catch块没有捕获任何东西。

提前感谢您的重播。

爱德华多

代码来了：

Public Class MsgPad
Private WithEvents _MyUIUpdaterEngine As MyUIUpdaterEngine = MyUIUpdaterEngine.Instance
Private MyMessages As New Messages
Private LastUpdate As DateTime = TimeValue("08:00:00")
Private ObjLock As New Object
Private NewMessages As Boolean = False
Dim UpdateDGWTimer As New System.Timers.Timer

 Private Sub MsgPad_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    Try
        '--
        MsgPadDG.DataSource = MyMessages.DTable
        '--
        With MsgPadDG
            '--
            .Columns("Msg_ID").Visible = False
            .Columns("I_CommandID").Visible = False
            .Columns("B_ID").Visible = False
            .Columns("F_ID").Visible = False
            .Columns("T_TV").Visible = False
            .Columns("T_Sign").Visible = False
            .Columns("T_Mde").Visible = False
            .Columns("T_QU").Visible = False
            .Columns("T_QI").Visible = False
            .Columns("T_QF").Visible = False
            .Columns("T_PI").Visible = False
            .Columns("T_PF").Visible = False
            '--
            .Columns("Msg_RecDate").HeaderText = "Date"
            .Columns("Msg_RecDate").Width = 50
            .Columns("Msg_RecDate").DefaultCellStyle.Format = "HH:mm:ss"
            .Columns("I_Symbol").HeaderText = "Symbol"
            .Columns("I_Symbol").Width = 80
            .Columns("I_Des").HeaderText = "Des"
            .Columns("I_Des").Width = 180
            .Columns("Msg_Text").HeaderText = "Message"
            .Columns("Msg_Text").Width = 250
            '--

        End With

        '--Crea timer per l'Update del DAtagridView
        AddHandler UpdateDGWTimer.Elapsed, AddressOf UpdateMsgPadDGW
        UpdateDGWTimer.Interval = 3500
        UpdateDGWTimer.Enabled = True
 .....
 .....
 End Sub

 Private Sub UpdateMyMsg(ByVal CRec As OrderRecord, ByVal Msg As String) Handles _MyUIUpdaterEngine.NewMessage

    Try
        SyncLock ObjLock
            '--Aggiorna la tabella MyMessages
            MyMessages.Add(CRec, Msg)
            NewMessages = True
            '--Parla messaggio
            Dim synth As New SpeechSynthesizer
            Dim TalkMsg As String = Msg
            If CRec.I_Des <> Nothing Then TalkMsg += " su: " + CRec.I_Des
            synth.SpeakAsync(TalkMsg)
        End SyncLock
 .....
 .....
 End Sub


 Private Sub UpdateMsgPadDGW(source As Object, e As ElapsedEventArgs)

    '--Aggiorna MesssagePad
    Try
        SyncLock ObjLock
            If NewMessages Then
                MsgPadDG.ControlInvoke(Sub(l)
                                           MsgPadDG.DataSource = MyMessages.DTable
                                           MsgPadDG.Refresh()
                                           MsgPadDG.ClearSelection()
                                       End Sub)
                NewMessages = False
            End If
        End SyncLock
 .....
 .....
 End Sub
4

1 回答 1

1 
        '--Aggiorna la tabella MyMessages
        MyMessages.Add(CRec, Msg)
        NewMessages = True

这是一个致命的错误，DGV 绑定到 MyMessages。因此，在工作线程中调用 Add() 会导致控件从错误的线程更新。您通常会从错误的线程访问控件获得 IllegalOperationException，但不幸的是，这不适用于绑定数据。

您需要以不同的方式执行此操作，让工作人员将消息添加到列表中。然后在调用的代码中使用这些新消息更新 MyMessages。

另请注意，您的计时器不是您在问题中假设的安全计时器。只有 System.Windows.Forms.Timer 是安全的，其 Tick 事件处理程序将在 UI 线程上运行。然后你也不需要再调用了。

于 2012-11-07T14:03:03.753 回答