AutoFilteringColumnイベント内でMessageBoxを表示できない
対象製品
SPREAD for Windows Forms 7.0J
状況
修正済み
詳細
AutoFilteringColumnイベント内でMessageBoxを表示できません。
【手順】
1.新規フォームにSPREADを配置します
2.下記サンプルコードをコピーし、アプリケーションを実行します
3.A列でフィルタリングを行います
--MessageBoxが表示されません
【サンプルコード】
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' SPREADの初期設定
FpSpread1.ActiveSheet.SetColumnAllowFilter(0, True)
For i As Integer = 0 To FpSpread1.ActiveSheet.RowCount - 1
FpSpread1.ActiveSheet.SetValue(i, 0, i Mod 5)
Next
End Sub
Private Sub FpSpread1_AutoFilteringColumn(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.AutoFilteringColumnEventArgs) Handles FpSpread1.AutoFilteringColumn
MessageBox.Show(e.FilterString)
End Sub
【手順】
1.新規フォームにSPREADを配置します
2.下記サンプルコードをコピーし、アプリケーションを実行します
3.A列でフィルタリングを行います
--MessageBoxが表示されません
【サンプルコード】
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' SPREADの初期設定
FpSpread1.ActiveSheet.SetColumnAllowFilter(0, True)
For i As Integer = 0 To FpSpread1.ActiveSheet.RowCount - 1
FpSpread1.ActiveSheet.SetValue(i, 0, i Mod 5)
Next
End Sub
Private Sub FpSpread1_AutoFilteringColumn(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.AutoFilteringColumnEventArgs) Handles FpSpread1.AutoFilteringColumn
MessageBox.Show(e.FilterString)
End Sub
回避方法
Service Pack 5(v7.0.2018.2008)で修正済み。
Service Pack 5(v7.0.2018.2008)より前のバージョンでは次の回避方法が有効です。
------------------------------------------
MessageBoxのオーナーにフォームを指定します。
【サンプルコード】
Private Sub FpSpread1_AutoFilteringColumn(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.AutoFilteringColumnEventArgs) Handles FpSpread1.AutoFilteringColumn
MessageBox.Show(Me, e.FilterString)
End Sub
Service Pack 5(v7.0.2018.2008)より前のバージョンでは次の回避方法が有効です。
------------------------------------------
MessageBoxのオーナーにフォームを指定します。
【サンプルコード】
Private Sub FpSpread1_AutoFilteringColumn(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.AutoFilteringColumnEventArgs) Handles FpSpread1.AutoFilteringColumn
MessageBox.Show(Me, e.FilterString)
End Sub