DOBON.NETプログラミング道掲示板

HOME HELP 新規作成 新着記事 ツリー表示 スレッド表示 トピック表示 発言ランク ファイル一覧 検索 過去ログ

■35216 / 親階層) 　DataGridViewの行ヘッダーに行番号を表示した時のエラー
□投稿者/ たこ 一般人(12回)-(2022/11/04(Fri) 02:12:28)
  • アイコン環境/言語:[Windows10　VB.NET　.NET Framework 4.7.2　VS2019]　
    分類:[.NET]　

    いつもお世話になります。

    DataGridViewの行ヘッダーに行番号を表示する
    https://dobon.net/vb/dotnet/datagridview/drawrownumber.html

    を使わせて頂いておりますが、1つ目のデータを挿入した際に「System.Configuration.ConfigurationErrorsException: '構成システムを初期化できませんでした。'」と出て停止してしまいます。
    （2つ目のデータ以降はエラーが出ない）
    「例外設定」の「次からスローされた場合を除く」の項目に「Log.dll」とあるので、ログクラスが何かしらいたずらしているとは思うのです。

    何か解決の糸口は無いかと書込みさせて頂きます。


    ----------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub DataGridView1_CellPainting(ByVal sender As Object, ByVal e As DataGridViewCellPaintingEventArgs) Handles DataGridView1.CellPainting
    　　'列ヘッダーかどうか調べる
    　　　　If e.ColumnIndex < 0 And e.RowIndex >= 0 Then
    　　　　　　'セルを描画する
    　　　　　　e.Paint(e.ClipBounds, DataGridViewPaintParts.All)　　　　　　　'←ここで発生　コメントアウトするとフォーム拡大縮小時にゴミが残る…

    　　　　　　'行番号を描画する範囲を決定する
    　　　　　　'e.AdvancedBorderStyleやe.CellStyle.Paddingは無視しています
    　　　　　　Dim indexRect As Rectangle = e.CellBounds
    　　　　　　indexRect.Inflate(-2, -2)
    　　　　　　'行番号を描画する
    　　　　　　TextRenderer.DrawText(e.Graphics,
    　　　　　　　　　　　　　　　　(e.RowIndex + 1).ToString(),
    　　　　　　　　　　　　　　　　e.CellStyle.Font,
    　　　　　　　　　　　　　　　　indexRect,
    　　　　　　　　　　　　　　　　e.CellStyle.ForeColor,
    　　　　　　　　　　　　　　　　TextFormatFlags.Right Or TextFormatFlags.VerticalCenter)
    　　　　　　'描画が完了したことを知らせる
    　　　　　　e.Handled = True
    　　　　End If

    　　　　DataGridView1.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray
    　　End Sub
    ----------------------------------------------------------------------------------------------------------------------------------------------------------------------



    呼出し元
    ----------------------------------------------------------------------------------------------------------------------------------------------------------------------
    　　Private Sub DGVDataAdd(workStr As List(Of String()))
    　　　　DataGridView1.Rows.Clear()
    　　　　On Error GoTo ErrorNext
    　　　　System.Threading.Monitor.Enter(workStr)
    　　　　Dim ws As List(Of String()) = workStr
    　　　　System.Threading.Monitor.Exit(workStr)
    　　　　System.Threading.Monitor.Enter(ws)
    　　　　Dim x As Integer = 0
    　　　　For Each work In ws
    　　　　　　System.Threading.Monitor.Enter(work)
    　　　　　　DataGridView1.Rows.Add(work)
    　　　　　　DataGridView1(LogData.LogKinds, x).Style.BackColor = LogKind_ColorChange(work)
    　　　　　　DataGridView1(LogData.Operation, x).Style.ForeColor = Operation_ColorChange(work)
    　　　　　　x += 1
    　　　　　　System.Threading.Monitor.Exit(work)
    　　　　Next
    　　　　System.Threading.Monitor.Exit(ws)
    ErrorNext:
    　　　　DataGridView1.Refresh()
    　　End Sub
    ----------------------------------------------------------------------------------------------------------------------------------------------------------------------
    いろんなスレッドに呼ばれるので、エラーが出て最終的に「On Error Resume Next」を付けました＾＾；



    呼出し元の呼出し元
    ----------------------------------------------------------------------------------------------------------------------------------------------------------------------
    　　Private Delegate Sub DGVAddInvoke(DataStr As List(Of String()))

    　　''' <summary>
    　　''' AlertLog変更イベント
    　　''' </summary>
    　　Private Sub _LogStock__AlartLogEvent(sender As Object, e As EventArgs) Handles _LogStock._AlertLogEvent
    　　　　If DispLevel = LogEventArgs.Kinds.Alart Then
    　　　　　　Invoke(New DGVAddInvoke(AddressOf DGVDataAdd), _LogStock.AlertLog)
    　　　　End If
    　　End Sub

    　　''' <summary>
    　　''' OperateLog変更イベント
    　　''' </summary>
    　　Private Sub _LogStock__OperateLogEvent(sender As Object, e As EventArgs) Handles _LogStock._OperateLogEvent
    　　　　If DispLevel = LogEventArgs.Kinds.Operate Then
    　　　　　　Invoke(New DGVAddInvoke(AddressOf DGVDataAdd), _LogStock.OperateLog)
    　　　　End If
    　　End Sub

    　　''' <summary>
    　　''' SystemLog変更イベント
    　　''' </summary>
    　　Private Sub _LogStock__SystemLogEvent(sender As Object, e As EventArgs) Handles _LogStock._SystemLogEvent
    　　　　If DispLevel = LogEventArgs.Kinds.System Then
    　　　　　　Invoke(New DGVAddInvoke(AddressOf DGVDataAdd), _LogStock.SystemLog)
    　　　　End If
    　　End Sub

    　　''' <summary>
    　　''' DebugLog変更イベント
    　　''' </summary>
    　　Private Sub _LogStock__DebugLogEvent(sender As Object, e As EventArgs) Handles _LogStock._DebugLogEvent
    　　　　If DispLevel = LogEventArgs.Kinds.Debug Then
    　　　　　　Invoke(New DGVAddInvoke(AddressOf DGVDataAdd), _LogStock.DebugLog)
    　　　　End If
    　　End Sub
    ----------------------------------------------------------------------------------------------------------------------------------------------------------------------
    以上３つのメソッドはLogDispクラスで、イベントはLogクラスから飛んできます。



    Logクラス
    ----------------------------------------------------------------------------------------------------------------------------------------------------------------------
    　　Public Delegate Sub LogEventHandler(sender As Object, e As EventArgs)
    　　Public Event _AlertLogEvent As LogEventHandler
    　　Public Event _OperateLogEvent As LogEventHandler
    　　Public Event _SystemLogEvent As LogEventHandler
    　　Public Event _DebugLogEvent As LogEventHandler

    　　Private _AlertLog As New List(Of String())
    　　Private _OperateLog As New List(Of String())
    　　Private _SystemLog As New List(Of String())
    　　Private _DebugLog As New List(Of String())


    　　Public Sub Write(sender As Object, e As LogEventArgs)

    　　　　〜〜〜　（中略）　〜〜〜

    　　　　If e.LogKinds = LogEventArgs.Kinds.System Then
    　　　　　　_DebugLog.Insert(0, WriteData.Split(","))
    　　　　　　_SystemLog.Insert(0, WriteData.Split(","))
    　　　　　　If _SystemLog.Count > _MaxDispLog Then _SystemLog.RemoveAt(_MaxDispLog)
    　　　　　　RaiseEvent _SystemLogEvent(Me, New EventArgs())
    　　　　　　RaiseEvent _DebugLogEvent(Me, New EventArgs())
    　　　　　　Exit Sub
    　　　　End If
    　　End Sub
    ----------------------------------------------------------------------------------------------------------------------------------------------------------------------

    LogクラスもDispLogも同じLogプロジェクト内で、クラスライブラリ
    DispLogはユーザーコントロールです。

    よろしくお願いします。
マルチポストを報告
違反を報告
削除キー/

前の記事(元になった記事) 次の記事(この記事の返信)
親記事 →Re[1]: DataGridViewの行ヘッダーに行番号を表示した時のエラー /魔界の仮面弁士
　
上記関連ツリー

Nomalアイコン DataGridViewの行ヘッダーに行番号を表示した時のエラー / たこ (22/11/04(Fri) 02:12) #35216 ←Now
└Nomalアイコン Re[1]: DataGridViewの行ヘッダーに行番号を表示した時のエラー / 魔界の仮面弁士 (22/11/04(Fri) 10:44) #35218
  └Nomalアイコン Re[2]: DataGridViewの行ヘッダーに行番号を表示した時のエラー / たこ (22/11/04(Fri) 22:14) #35219 解決済み!
    └Nomalアイコン Re[3]: DataGridViewの行ヘッダーに行番号を表示した時のエラー / 魔界の仮面弁士 (22/11/07(Mon) 17:05) #35220 解決済み!
      └Nomalアイコン Re[4]: DataGridViewの行ヘッダーに行番号を表示した時のエラー / Aurea (23/01/04(Wed) 10:41) #35313

All 上記ツリーを一括表示 / 上記ツリーをトピック表示
　
上記の記事へ返信
Mode/　 Pass/

HOME HELP 新規作成 新着記事 ツリー表示 スレッド表示 トピック表示 発言ランク ファイル一覧 検索 過去ログ

- Child Tree -