おやじプログラマー日記: 2016年3月

VB.NET：Spreadデータ一覧表示での行選択処理(CellDoubleClickイベント , KeyDownイベント)

SPREADを使ってマスタメンテナンスのマスタデータの一覧を表示した時に、行選択して何かを行いたい場合があります。この場合には、セルダブルクリック(CellDoubleClick)もしくはキーダウン(KeyDown)イベント時にその処理を書きます。

以下のソースの説明ですが、SPREADコントロールのアクティブシートの「OperationMode」プロパティを「SingleSelect」に設定することで、 1行の選択が出来る様になります。選択された行はデフォルトでは薄い青色になり、選択されている状態がわかります。

SPREADコントロールの各種のプロパティの設定し、アクティブシートの設定を行った後でテストデータの一覧表示を行っています。

一覧表示の最後で、「AddSelection」により行選択を強制的に行っていますが、この処理が無いと、最初に一覧を表示した時に選択状態の表示にならないので注意が必要です。
セルダブルクリック及び、キーダウンイベントでアクティブな行の第1カラム目のデータを単にメッセージボックスで表示させるだけの簡単な処理を行います。
尚、セルダブルクリック時にはヘッダーダブルクリックの場合には処理を行わない様にします。

Imports FarPoint.Win
Public Class Form1
    'フォームロード時にSPREADの初期化
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'SPREADの設定
        With Me.FpSpread1
            'スクロールバーの設定
            .HorizontalScrollBarPolicy = Spread.ScrollBarPolicy.AsNeeded
            .VerticalScrollBarPolicy = Spread.ScrollBarPolicy.AsNeeded
            '分割ボックスの設定
            .ColumnSplitBoxPolicy = Spread.SplitBoxPolicy.Never
            .RowSplitBoxPolicy = Spread.SplitBoxPolicy.Never
            'カーソル設定
            .SetCursor(Spread.CursorType.Normal, Windows.Forms.Cursors.Arrow)
            .SetCursor(Spread.CursorType.LockedCell, Windows.Forms.Cursors.Arrow)
            'セルがアクティブ時に編集モードにしない
            .EditModePermanent = False
            'セルがアクティブ時に既存の内容を選択しない
            .EditModeReplace = False
        End With
        'アクティブシートの設定
        With Me.FpSpread1.ActiveSheet
            '選択状態
            .SelectionStyle = Spread.SelectionStyles.SelectionRenderer
            '編集モードの設定
            .OperationMode = Spread.OperationMode.SingleSelect
            '列のサイズ変更可、行のサイズ変更不可に設定する。
            .Columns.Default.Resizable = True
            .Rows.Default.Resizable = False
            'SPREADのアクティブシートのカラム数を３に設定
            .ColumnCount = 3
            'SPREADの行クリア
            .RowCount = 0
        End With

'一覧データ表示
        Call Me.DisplayData()
    End Sub

'一覧データ表示
    Private Sub DisplayData()
        'ソースが長くなるのでWith宣言
        With Me.FpSpread1.ActiveSheet
            '描画を停止させる
            Me.FpSpread1.SuspendLayout()
            'データの行数分の処理
            For i As Integer = 0 To 999
                '行数を増やす
                .RowCount += 1
                '各セルへのデータ設定
                .SetText(i, 0, "A" & i.ToString("000"))
                .SetText(i, 1, "B" & i.ToString("000"))
                .SetText(i, 2, "C" & i.ToString("000"))
            Next
        End With
        '描画を再開させる
        Me.FpSpread1.ResumeLayout(True)
        '先頭行を選択設定(1行目が選択色になる)
        Me.FpSpread1.ActiveSheet.AddSelection(0, 0, 1, 1)
    End Sub

'セルダブルクリック時処理 
    Private Sub FpSpread1_CellDoubleClick(ByVal sender As System.Object, ByVal e As FarPoint.Win.Spread.CellClickEventArgs) Handles FpSpread1.CellDoubleClick
        'ヘッダーダブルクリックの場合抜ける
        If e.ColumnHeader = True Then
            Return
        End If
        'シートにデータ行が在るか??
        If FpSpread1.ActiveSheet.RowCount > 0 Then
            'Spreadからコードの取得
            Dim str As String = "第1カラムデータ = " & _
                Me.FpSpread1.ActiveSheet.GetValue(e.Row, 0)
            MsgBox(str)
        End If
    End Sub

'キーダウン時処理
    Private Sub FpSpread1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles FpSpread1.KeyDown
        'Enterキー押下したとき
        If e.KeyCode = Windows.Forms.Keys.Enter Then
            'Spreadからコードの取得
            Dim str As String = "第1カラムデータ = " & _
                Me.FpSpread1.ActiveSheet.GetValue(Me.FpSpread1.ActiveSheet.ActiveRowIndex, 0)
            MsgBox(str)
        End If
    End Sub
End Class

下図は、フォーム表示後、2行目をダブルクリックしてメッセージボックスを表示した時の表示です。

投稿時刻 11:23 Spread, VB.NET, パソコン・インターネット | 個別ページ | コメント (0) | トラックバック (0)

テーブルの脚を思いっきり蹴って、足の小指を骨折！！！

今日朝、何の気なしに普段より狭くなっていたテーブルとファンヒータの間を
通る時に思いっきりテーブルの脚を蹴ってしまった。

あまりの痛さにその場にうずくまってしまいました。普段足の小指をぶつけたりすることがあるのですが、今までの痛さとは全然違っていました。

あまり痛いので、靴下をそーっと脱いで見ると小指が外側に曲がっていて、一見してこれはやばい感じでした。

これは整形外科に行くしかないと腹を決めて、とある医者に掛かりました。
医者ではレントゲンを撮ってもらったのですが、先生曰く「これは完全に折れていますね。とりあえず小指と薬指をテーピングで固定して様子を見ましょう。３～４週ぐらいで直るのではないかな。」とのことでした。

こともなげにそう言われて、このぐらいは簡単な骨折なのかなとは思いました。
小指の先端から次の関節までの骨が根元できれいに折れていてヒビも入っている様でした。

とにかくテーピングで直るので、手術は必要ないみたいでした。
不幸中の幸いでした。

皆さんも、小指の骨折はよくあるそうなので、すぐに整形外科に掛かることをお勧めします。

■1週間後の受診

1週間が経過して、整形外科に行ってきました。レントゲンを撮る時に技師の方から「痛みはどの位ですか？最初の痛みから何分の１位でしょうか」との確認がありました。
取り敢えず「１／１０ぐらいの痛みでしょうか」と答えたのですが、この痛みの比較での質問は一般的なのでしょうか。

その後、先生に診て頂いて、「順調な感じです。普通はもっと痛いはずなのですが」といぶかられました。いや実際にほとんど痛みは無かったのですが．．．

また２週間後に見せに来て下さいとのことでした。憂鬱な日々がまだまだ続きそうです。

しかし、何と言ってもお風呂が面倒ですね。私の場合、左足をスーパーのビニールの買い物袋を靴下の様に２重に履いてから、くるぶしの上10cmぐらいで結んで、更にラップでくるんでガムテープでぐるっと貼りました。（ガムテープは取る時は痛いですが）

■3週間後の受診

更に3週間が経過したので、整形外科に行ってきました。例によってレントゲンを撮って先生の診察となりました。診察と言ってもレントゲンの画像を見ての診断だけでしたが、特に問題は無いようでした。先生曰く「ここまでは骨がずれないかどうかを確認しています。特にずれは無い様なので、順調です。」とのことで、一安心です。

また、先生は「これからは骨の折れた部分がレントゲンで見ると白くなってくるばずです。」とおっしゃっていました。骨の再構築が行われるのでしょうか？

とにかくこのまま静かに過ごしていきます。体にいいものでもしっかり食べて...

5週後に当たる受診では白くなっていることを期待して...

投稿時刻 20:19 健康・医学 | 個別ページ | コメント (0) | トラックバック (0)

VB.NET：Spreadでデータ一覧表示を簡単に行う方法について

私自身、SPREADを使ってマスタメンテナンスのマスタデータの一覧を表示したり、各種データの一覧を行ったりしています。

SPREADコントロールのアクティブシートの「OperationMode」プロパティを「SingleSelect」に設定することで、 1行の選択が出来る様になります。選択された行はデフォルトでは薄い青色になり、選択されている状態がわかります。

SPREADコントロールの各種のプロパティの設定し、アクティブシートの設定を行った後でテストデータの一覧表示を行っています。

一覧表示の最後で、「AddSelection」により行選択を強制的に行っていますが、この処理が無いと、最初に一覧を表示した時に選択状態の表示にならないので注意が必要です。

尚、今回のソースでも「TextTipPolicy」プロパティを「Floating」に設定し、「TextTipFetch」イベントでチップテキストに任意のデータを表示される様にしています。

Imports FarPoint.Win Public Class Form1 'フォームロード時にSPREADの初期化 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'SPREADの設定 With Me.FpSpread1 'スクロールバーの設定 .HorizontalScrollBarPolicy = Spread.ScrollBarPolicy.AsNeeded .VerticalScrollBarPolicy = Spread.ScrollBarPolicy.AsNeeded '分割ボックスの設定 .ColumnSplitBoxPolicy = Spread.SplitBoxPolicy.Never .RowSplitBoxPolicy = Spread.SplitBoxPolicy.Never 'カーソル設定 .SetCursor(Spread.CursorType.Normal, Windows.Forms.Cursors.Arrow) .SetCursor(Spread.CursorType.LockedCell, Windows.Forms.Cursors.Arrow) 'TextTip表示指定 .TextTipPolicy = Spread.TextTipPolicy.Floating .TextTipDelay = 1 'セルがアクティブ時に編集モードにしない .EditModePermanent = False 'セルがアクティブ時に既存の内容を選択しない .EditModeReplace = False End With 'アクティブシートの設定 With Me.FpSpread1.ActiveSheet '選択状態 .SelectionStyle = Spread.SelectionStyles.SelectionRenderer '編集モードの設定 .OperationMode = Spread.OperationMode.SingleSelect '列のサイズ変更可、行のサイズ変更不可に設定する。 .Columns.Default.Resizable = True .Rows.Default.Resizable = False 'SPREADのアクティブシートのカラム数を３に設定 .ColumnCount = 3 'SPREADの行クリア .RowCount = 0 End With '一覧データ表示 Call Me.DisplayData() End Sub '一覧データ表示 Private Sub DisplayData() 'ソースが長くなるのでWith宣言 With Me.FpSpread1.ActiveSheet '描画を停止させる Me.FpSpread1.SuspendLayout() 'データの行数分の処理 For i As Integer = 0 To 999 '行数を増やす .RowCount += 1 '各セルへのデータ設定 .SetText(i, 0, "A" & i.ToString("000")) .SetText(i, 1, "B" & i.ToString("000")) 'Tagにチップテキストの設定 .SetTag(i, 1, "ZZZZZZZZZZZZZZZZZ" & i.ToString("000")) .SetText(i, 2, "C" & i.ToString("000")) Next End With '描画を再開させる Me.FpSpread1.ResumeLayout(True) '先頭行を選択設定(1行目が選択色になる) Me.FpSpread1.ActiveSheet.AddSelection(0, 0, 1, 1) End Sub 'TextTipFetchイベント Private Sub FpSpread1_TextTipFetch(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.TextTipFetchEventArgs) Handles FpSpread1.TextTipFetch 'カラムフッタ、カラムヘッダ、行ヘッダは処理しない If e.ColumnFooter Or e.ColumnHeader Or e.RowHeader Then Exit Sub End If If Not e.FetchCellNote Then '2番目のカラム?? If e.Column = 1 Then 'Tagに退避してある文字列 Dim text As String = e.View.GetSheetView().GetTag(e.Row, e.Column) 'チップウィンドウとして表示 e.ShowTip = True 'ポップアップヒントのテキスト設定 e.TipText = text End If End If End Sub End Class
下図は、フォーム表示後、2行目をクリックしてマウスをそのまま2カラム目に持っていった時の表示です。

投稿時刻 17:22 Spread, VB.NET, パソコン・インターネット | 個別ページ | コメント (0) | トラックバック (0)

VB.NET：Spreadのセルのチップウインドウで別に設定された文字列を表示する

SPREADのアクティブシートへ設定した文字列データが、セル上に収まりきらない場合テキストチップとして表示させることができます。

SPREADコントロールの「TextTipPolicy」プロパティを「Floating」に設定することで、セル上にマウスを移動した時に、セルに設定されている文字列がテキストチップとして表示されます。

以下のソースでは、TextTipFetchイベントでの処理を行うことで、セルのTextに設定された文字列とは別のものを表示する処理を行っています。

フォームロード時にSPREADの初期化を行い、アクティブシートのカラム数を６に設定し、ヘッダ行数を０でクリア設定しています。また、「TextTipPolicy」プロパティを「Floating」に設定しています。

フォーム表示後、ボタンをクリックすると、クリックイベント内で宣言された固定的なテストデータをSPREADに設定し表示させます。
データの1行分毎の処理で、「RowCount」プロパティを＋１して行を追加します。行の追加した後で、３個のセルに対して別々の値を設定しています。 2カラム目の「Tag」にテキストチップとして表示する文字列を設定しています。

「TextTipFetch」イベントでは対象となる2カラム目の場合のみ「Tag」から表示文字列を取得しチップテキストに設定しています。尚、カラムフッタ、カラムヘッダ、行ヘッダは処理を省いています。

Public Class Form1 'フォームロード時にSPREADの初期化 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'SPREADのアクティブシートのカラム数を３に設定 Me.FpSpread1.ActiveSheet.ColumnCount = 3 'SPREADの行クリア Me.FpSpread1.ActiveSheet.RowCount = 0 'TextTip表示指定 Me.FpSpread1.TextTipPolicy = FarPoint.Win.Spread.TextTipPolicy.Floating End Sub 'ボタンクリックでカラム連結処理 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'ボタン不可設定 sender.Enabled = False 'ソースが長くなるのでWith宣言 With Me.FpSpread1.ActiveSheet '描画を停止させる Me.FpSpread1.SuspendLayout() 'データの行数分の処理 For i As Integer = 0 To 9999 '行数を増やす .RowCount += 1 '各セルへのデータ設定 '第1カラムはボタン(ButtonCellType) Dim buttonCell As New FarPoint.Win.Spread.CellType.ButtonCellType buttonCell.Text = i.ToString("0000") 'ボタンのキャプション .Cells(i, 0).CellType = buttonCell '第2カラムはテキスト(TextCellType) Dim textCell As New FarPoint.Win.Spread.CellType.TextCellType .Cells(i, 1).CellType = textCell .Cells(i, 1).Text = "Test" & i.ToString("0000") 'Tagにチップテキストの設定 .Cells(i, 1).Tag = "ZZZZZZZZZZZZZZZZZ" & i.ToString("0000") '第3カラムはチェックボックス(CheckBoxCellType) Dim chkCell As New FarPoint.Win.Spread.CellType.CheckBoxCellType .Cells(i, 2).CellType = chkCell .Cells(i, 2).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center .Cells(i, 2).Value = CBool(i Mod 2 = 0) '値はValueに設定 Next End With '描画を再開させる Me.FpSpread1.ResumeLayout(True) 'ボタン許可設定 sender.Enabled = True End Sub 'TextTipFetchイベント Private Sub FpSpread1_TextTipFetch(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.TextTipFetchEventArgs) Handles FpSpread1.TextTipFetch 'カラムフッタ、カラムヘッダ、行ヘッダは処理しない If e.ColumnFooter Or e.ColumnHeader Or e.RowHeader Then Exit Sub End If If Not e.FetchCellNote Then '2番目のカラム?? If e.Column = 1 Then 'Tagに退避してある文字列 Dim text As String = e.View.GetSheetView().GetTag(e.Row, e.Column) 'チップウィンドウとして表示 e.ShowTip = True 'ポップアップヒントのテキスト設定 e.TipText = text End If End If End Sub End Class
下図は、フォームが表示後「Button1」をクリックしてデータを表示させて、マウスを5行目の2カラム目に持っていった時の表示です。

投稿時刻 17:57 Spread, VB.NET, パソコン・インターネット | 個別ページ | コメント (0) | トラックバック (0)

VB.NET：Spreadのセルへのデータ設定の描画速度アップ

SPREADのアクティブシートへのデータを設定する場合は一般的にアクティブシートのセルへ直接行います。
以下のソースは、フォームロード時にSPREADの初期化を行っています。アクティブシートのカラム数を６に設定し、ヘッダ行数を０でクリア設定しています。

フォーム表示後、ボタンをクリックすると、クリックイベント内で宣言された固定的なテストデータをSPREADに設定し表示させます。
データの1行分毎の処理で、「RowCount」プロパティを＋１して行を追加します。行の追加した後で、６個のセルに対して別々の値を設定しています。

SPREADへの描画を早くする為に、行データを全て処理する前後で、「FpSpread1.SuspendLayout()」と「FpSpread1.ResumeLayout(True)」を行います。これらではさまれた処理は描画がリアルタイムでは反映されないので、描画が早くなります。
今回の例では１００００行のデータを設定しています。この処理の時間はだいたい１４秒前後掛かりました。（私のPCのOSはWindows7SP1で、CPUはCorei5の3.2GHzです）
Public Class Form1 'フォームロード時にSPREADの初期化 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With Me.FpSpread1.ActiveSheet 'SPREADのアクティブシートのカラム数を３に設定 .ColumnCount = 6 'SPREADの行クリア .RowCount = 0 End With End Sub 'ボタンクリックでカラム連結処理 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '時間計測用 Dim dt As DateTime = Now 'ボタン不可設定 sender.Enabled = False 'ソースが長くなるのでWith宣言 With Me.FpSpread1.ActiveSheet 'SPREADの行クリア .RowCount = 0 '描画を停止させる Me.FpSpread1.SuspendLayout() 'データの行数分の処理 For i As Integer = 0 To 9999 '行数を増やす .RowCount += 1 '各セルへのデータ設定 .SetText(i, 0, "C1-" & i.ToString("0000")) .SetText(i, 1, "C2-" & i.ToString("0000")) .SetText(i, 2, "C3-" & i.ToString("0000")) .SetText(i, 3, "C4-" & i.ToString("0000")) .SetText(i, 4, "C5-" & i.ToString("0000")) .SetText(i, 5, "C6-" & i.ToString("0000")) Next End With '描画を再開させる Me.FpSpread1.ResumeLayout(True) '経過時間の表示 MsgBox("経過時間 = " & (Now - dt).TotalSeconds & "秒") 'ボタン許可設定 sender.Enabled = True End Sub End Class
下図は、最初、フォームが表示後、「Button1」をクリックした結果が以下の図です。

データが10000件も描画することは稀なので、このままでもいいのですが、１４秒はさすがに掛かり過ぎなので、他の方法で行ってみます。

以下のソースは、SPREADのアクティブシートのデータモデルを取得し、そのデータモデルを使ってデータを設定しています。ソース的にはほとんど変わりが無いのですが、アクティブシートへの直接セル設定のところをデータモデル経由に変更しています。
この方法で行うと、0.2秒以下で処理が終わります。14秒から0.2秒への劇的な速度アップが見られました。
Public Class Form1 'フォームロード時にSPREADの初期化 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With Me.FpSpread1.ActiveSheet 'SPREADのアクティブシートのカラム数を３に設定 .ColumnCount = 6 'SPREADの行クリア .RowCount = 0 End With End Sub 'ボタンクリックでカラム連結処理 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '時間計測用 Dim dt As DateTime = Now 'ボタン不可設定 sender.Enabled = False 'データモデルを取得する Dim datamodel As FarPoint.Win.Spread.Model.DefaultSheetDataModel = _ CType(FpSpread1.ActiveSheet.Models.Data, FarPoint.Win.Spread.Model.DefaultSheetDataModel) 'SPREADの行クリア Me.FpSpread1.ActiveSheet.RowCount = 0 '描画を停止させる Me.FpSpread1.SuspendLayout() '10000行のデータの処理 For i As Integer = 0 To 9999 '行数を増やす Me.FpSpread1.ActiveSheet.RowCount += 1 'データモデルでのデータ設定 datamodel.SetValue(i, 0, "C1-" & i.ToString("0000")) datamodel.SetValue(i, 1, "C2-" & i.ToString("0000")) datamodel.SetValue(i, 2, "C3-" & i.ToString("0000")) datamodel.SetValue(i, 3, "C4-" & i.ToString("0000")) datamodel.SetValue(i, 4, "C5-" & i.ToString("0000")) datamodel.SetValue(i, 5, "C6-" & i.ToString("0000")) Next '描画を再開させる Me.FpSpread1.ResumeLayout(True) '経過時間の表示 MsgBox("経過時間 = " & (Now - dt).TotalSeconds & "秒") 'ボタン許可設定 sender.Enabled = True End Sub End Class

投稿時刻 14:53 Spread, VB.NET, パソコン・インターネット | 個別ページ | コメント (0) | トラックバック (0)

VB.NET：Spreadのセルのボタンクリック時のイベント処理

SPREADのアクティブシートのセルにボタンセルタイプ(ButtonCellType)を設定した時の、クリック時イベントの処理についてです。
以下のソースは、フォームロード時にSPREADの初期化を行っています。アクティブシートのカラム数を３に設定し、ヘッダ行数を０でクリア設定しています。

フォーム表示後、ボタンをクリックすると、クリックイベント内で宣言された固定的なテストデータをSPREADに設定し表示させます。
データの1行分毎の処理で、「RowCount」プロパティを＋１して行を追加します。
追加された行の1カラム目にはボタンセルタイプ(ButtonCellType)を設定します。ボタンのキャプションの設定は、ButtonCellTypeの「Text」プロパティに設定します。

2カラム目はテキストセルタイプ(TextCellType)を設定します。データを設定するには、セルの「Text」プロパティに設定します。 TextCellTypeは先頭ゼロが省かれることなく、5個目のデータの"0000005"がそのまま表示されます。

3カラム目はチェックボックスセルタイプ(CheckBoxCellType)を設定します。 CheckBoxCellTypeの場合、データのチェックの状態を設定するには「Value」プロパティに設定します。

ボタンクリック時のイベントとしては、SPREADコントロールの「ButtonClicked」に処理を記述します。「ButtonClicked」は「ButtonCellType」だけではなく以下のセルタイプでイベントが発生します。
・ButtonCellType ・CheckBoxCellType ・HyperlinkCellType ・MultiOptionCellType

Public Class Form1 'フォームロード時にSPREADの初期化 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With Me.FpSpread1.ActiveSheet 'SPREADのアクティブシートのカラム数を３に設定 .ColumnCount = 3 'SPREADの行クリア .RowCount = 0 End With End Sub 'ボタンクリックでカラム連結処理 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '仮に4行分のデータ Dim ArrData(,) As String = { _ {"001", "Test001", "True"}, _ {"002", "Test002", "False"}, _ {"003", "Test003", "True"}, _ {"004", "Test004", "False"}, _ {"005", "0000005", "False"} _ } 'ソースが長くなるのでWith宣言 With Me.FpSpread1.ActiveSheet 'データの行数分の処理 For i As Integer = 0 To ArrData.GetLength(0) - 1 '行数を増やす .RowCount += 1 '第1カラムはボタン(ButtonCellType) Dim buttonCell As New FarPoint.Win.Spread.CellType.ButtonCellType buttonCell.Text = ArrData(i, 0) 'ボタンのキャプション .Cells(i, 0).CellType = buttonCell '第2カラムはテキスト(TextCellType) Dim textCell As New FarPoint.Win.Spread.CellType.TextCellType .Cells(i, 1).CellType = textCell .Cells(i, 1).Text = ArrData(i, 1) '第3カラムはチェックボックス(CheckBoxCellType) Dim chkCell As New FarPoint.Win.Spread.CellType.CheckBoxCellType .Cells(i, 2).CellType = chkCell .Cells(i, 2).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center .Cells(i, 2).Value = CBool(ArrData(i, 2)) '値はValueに設定 Next End With End Sub 'ボタンクリック時処理 Private Sub FpSpread1_ButtonClicked(ByVal sender As Object, _ ByVal e As FarPoint.Win.Spread.EditorNotifyEventArgs) _ Handles FpSpread1.ButtonClicked Dim str As String = "" With Me.FpSpread1.ActiveSheet str &= "行(e.Row) = " & e.Row & vbCrLf str &= "列(e.Column) = " & e.Column & vbCrLf str &= "2カラム目 = " & .Cells(e.Row, 1).Text & vbCrLf str &= "3カラム目 = " & CBool(.Cells(e.Row, 2).Value).ToString & vbCrLf MsgBox(str) End With End Sub End Class
下図は、最初、フォームが表示後、「Button1」をクリックした結果が以下の図です。

1行目の「001」ボタンをクリックした結果が以下の図です。 (メッセージBOXの表示をForm1の上に移動して画面キャプチャしていますので実際の表示位置とは異なります)

「ButtonClicked」イベントの引数である「e」のプロパティ「Row」「Column」でクリック時の行、カラム位置が分かります。このプロパティを使ってセルの情報を取得します。

5行目のチェックボックスをクリックした結果が以下の図です。

「ButtonClicked」がチェックボックスにも対応していることが分かります。この時の3カラム目の値を見ると、チェックボックスが変化した後のチェックの状態を返す様です。この点は注意が必要だと思います。

もし、セル上に各種のセルタイプのものが存在する場合は、カラム位置かもしくは、イベントを発生させたControlオブジェクト（「e」のプロパティ「EditingControl」）で処理を分ける必要があります。

投稿時刻 10:56 Spread, VB.NET, パソコン・インターネット | 個別ページ | コメント (0) | トラックバック (0)

VB.NET：Spreadのシートのセルにボタン、テキスト、チェックボックスのセルタイプの設定

前回の続きでSPREADのアクティブシートのセルに、ボタン、テキスト、チェックボックスの各セルタイプを設定します。
以下のソースは、フォームロード時にSPREADの初期化を行っています。アクティブシートのカラム数を３に設定し、ヘッダ行数を０でクリア設定しています。

フォーム表示後、ボタンをクリックすると、クリックイベント内で宣言された固定的なテストデータをSPREADに設定し表示させます。
データの1行分毎の処理で、「RowCount」プロパティを＋１して行を追加します。
追加された行の1カラム目にはボタンセルタイプ(ButtonCellType)を設定します。ボタンのキャプションの設定は、ButtonCellTypeの「Text」プロパティに設定します。

2カラム目はテキストセルタイプ(TextCellType)を設定します。データを設定するには、セルの「Text」プロパティに設定します。 TextCellTypeは先頭ゼロが省かれることなく、5個目のデータの"0000005"がそのまま表示されます。

3カラム目はチェックボックスセルタイプ(CheckBoxCellType)を設定します。 CheckBoxCellTypeの場合、データのチェックの状態を設定するには「Value」プロパティに設定します。

Public Class Form1 'フォームロード時にSPREADの初期化 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With Me.FpSpread1.ActiveSheet 'SPREADのアクティブシートのカラム数を３に設定 .ColumnCount = 3 'SPREADの行クリア .RowCount = 0 End With End Sub 'ボタンクリックでカラム連結処理 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '仮に4行分のデータ Dim ArrData(,) As String = { _ {"001", "Test001", "True"}, _ {"002", "Test002", "False"}, _ {"003", "Test003", "True"}, _ {"004", "Test004", "False"}, _ {"005", "0000005", "False"} _ } 'ソースが長くなるのでWith宣言 With Me.FpSpread1.ActiveSheet 'データの行数分の処理 For i As Integer = 0 To ArrData.GetLength(0) - 1 '行数を増やす .RowCount += 1 '第1カラムはボタン(ButtonCellType) Dim buttonCell As New FarPoint.Win.Spread.CellType.ButtonCellType buttonCell.Text = ArrData(i, 0) 'ボタンのキャプション .Cells(i, 0).CellType = buttonCell '第2カラムはテキスト(TextCellType) Dim textCell As New FarPoint.Win.Spread.CellType.TextCellType .Cells(i, 1).CellType = textCell .Cells(i, 1).Text = ArrData(i, 1) '第3カラムはチェックボックス(CheckBoxCellType) Dim chkCell As New FarPoint.Win.Spread.CellType.CheckBoxCellType .Cells(i, 2).CellType = chkCell .Cells(i, 2).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center .Cells(i, 2).Value = CBool(ArrData(i, 2)) '値はValueに設定 Next End With End Sub End Class
下図は、最初、フォームが表示された時の様子です。

その後、ボタンをクリックした結果が以下の図です。

投稿時刻 18:30 Spread, VB.NET, パソコン・インターネット | 個別ページ | コメント (0) | トラックバック (0)

VB.NET：Spreadのシートへの簡単な一覧データの設定について

SPREADを使って一覧データを表示することはよくあります。今回は、簡単なデータを一覧表示させる方法です。
以下のソースは、フォームロード時にSPREADの初期化を行っています。アクティブシートのカラム数を３に設定し、ヘッダ行数を０でクリア設定しています。

フォーム表示後、ボタンをクリックすると、クリックイベント内で宣言された固定的なテストデータをSPREADに設定し表示させます。
データの1行分毎の処理で、「RowCount」プロパティを＋１して行を追加します。次に、追加された行にカラムデータを１セル毎に「Value」プロパティに設定します。セルの「Text」プロパティでもほぼ同じ結果になりますが、第1セルの"001"の値の先頭ゼロが省かれて"1"となってしまいます。

1カラム目のCellTypeが何も設定されていませんので、「Text」プロパティでデータ設定するとデフォルトでは先頭ゼロは省かれる様です。
もし、「Text」プロパティを使うのであれば、CellTypeを「TextCellType」に設定する必要があります。（各セル毎にCellTypeを設定する方がいいのですが）
「Value」プロパティの場合は、そのままのデータが設定されるので"001”と表示される様です。

Public Class Form1
   'フォームロード時にSPREADの初期化
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       With Me.FpSpread1.ActiveSheet
           'SPREADのアクティブシートのカラム数を３に設定
           .ColumnCount = 3
           'SPREADの行クリア
           .RowCount = 0
       End With
   End Sub

'ボタンクリックでカラム連結処理
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       '仮に4行分のデータ
       Dim ArrData(,) As String = { _
           {"001", "Content001", "Test001"}, _
           {"002", "Content002", "Test002"}, _
           {"003", "Content003", "Test003"}, _
           {"004", "Content004", "Test004"} _
       }

'ソースが長くなるのでWith宣言
       With Me.FpSpread1.ActiveSheet
           'データの行数分の処理
           For i As Integer = 0 To ArrData.GetLength(0) - 1
               '行数を増やす
               .RowCount += 1
               'カラム数分をセルに設定
               For j As Integer = 0 To ArrData.GetLength(1) - 1
                   '.Cells(i, j).Text = ArrData(i, j)  'こちらは"001"⇒"1"と表示される
                   .Cells(i, j).Value = ArrData(i, j)  '書式無しで生のデータを設定
               Next
           Next
       End With
   End Sub
End Class

下図は、最初、フォームが表示された時の様子です。

その後、ボタンをクリックした結果が以下の図です。

投稿時刻 15:35 Spread, VB.NET, パソコン・インターネット | 個別ページ | コメント (0) | トラックバック (0)

VB.NET：Spreadのヘッダカラム及び、通常のカラムの連結

今回は、SPREADのヘッダカラム及び、通常のシート上のセルの連結方法についてです。
ヘッダカラムのプロパティ「ColumnHeader」の「Cells」で連結するセルの「ColumnSpan」プロパティにそのカラムから右方向に連結するセル数を指定します。
通常のシート上のカラムも同様に「Cells」で指定したセルの「ColumnSpan」を設定します。

以下のソースは、フォームロード時にSPREADの初期化を行っています。アクティブシートのカラム数、ヘッダ行数を設定した後で、ヘッダカラムに、行位置とカラム位置を文字列化したものを設定しています。

フォーム表示後、ボタンをクリックすると、ヘッダの1行目のカラムを1個置きに連結します。また、シート上のカラムを1行置きに、2個ずつ連結しています。
Public Class Form1 'フォームロード時にSPREADの初期化 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'SPREADがフォーカスを持っていないときにセル枠の表示をしない設定 Me.FpSpread1.RetainSelectionBlock = False 'SPREADのアクティブシートのカラム数を６に設定 Me.FpSpread1.ActiveSheet.ColumnCount = 6 'SPREADのアクティブシートのヘッダ行数を２に設定 Me.FpSpread1.ActiveSheet.ColumnHeaderRowCount = 2 'ヘッダカラムに文字列設定 For row As Integer = 0 To Me.FpSpread1.ActiveSheet.ColumnHeaderRowCount - 1 For i As Integer = 0 To Me.FpSpread1.ActiveSheet.ColumnCount - 1 '行位置 + " - " + カラム位置 Me.FpSpread1.ActiveSheet.ColumnHeader.Cells(row, i).Value = row & " - " & i Next Next End Sub 'ボタンクリックでカラム連結処理 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'ヘッダーのカラムを2個ずつ連結する For i As Integer = 0 To Me.FpSpread1.ActiveSheet.ColumnCount / 2 - 1 Me.FpSpread1.ActiveSheet.ColumnHeader.Cells(0, i * 2).ColumnSpan = 2 Next 'シート上のカラムを1行おきに、2個ずつ連結する For row As Integer = 0 To Me.FpSpread1.ActiveSheet.RowCount - 1 '行番号が偶数?? If row Mod 2 = 0 Then 'カラムを2個ずつ連結する For i As Integer = 0 To Me.FpSpread1.ActiveSheet.ColumnCount / 2 - 1 Me.FpSpread1.ActiveSheet.Cells(row, i * 2).ColumnSpan = 2 Next End If Next End Sub End Class
下図は、最初、フォームが表示された時の様子です。

その後、ボタンをクリックした結果が以下の図です。

尚、ActiveSheetのメソッドである「AddColumnHeaderSpanCell」「AddSpanCell」を使っても同様のことができます。このメソッドは上記の、「ColumnSpan」プロパティへの設定を行っているだけだとは思いますが。
'ボタンクリックでカラム連結処理 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '行ヘッダーのカラムを2個ずつ連結する For i As Integer = 0 To Me.FpSpread1.ActiveSheet.ColumnCount / 2 - 1 Me.FpSpread1.ActiveSheet.AddColumnHeaderSpanCell(0, i * 2, 1, 2) Next 'シート上のカラムを1行おきに、2個ずつ連結する For row As Integer = 0 To Me.FpSpread1.ActiveSheet.RowCount - 1 '行番号が偶数?? If row Mod 2 = 0 Then 'カラムを2個ずつ連結する For i As Integer = 0 To Me.FpSpread1.ActiveSheet.ColumnCount / 2 - 1 Me.FpSpread1.ActiveSheet.AddSpanCell(row, i * 2, 1, 2) Next End If Next End Sub

投稿時刻 11:11 Spread, VB.NET, パソコン・インターネット | 個別ページ | コメント (0) | トラックバック (0)

おやじプログラマー日記

コンピュータ業界に身をおいて３０年あまり…VB.NET・OracleなどのTIPS、おやじの独り言

おすすめ本

最近の記事

最近のトラックバック

Ranking

最近のコメント

アーカイブ

AccRanking

Ad

2016年3月

2016年3月 4日 (金)

VB.NET：Spreadデータ一覧表示での行選択処理(CellDoubleClickイベント , KeyDownイベント)

2016年3月 3日 (木)

テーブルの脚を思いっきり蹴って、足の小指を骨折！！！

VB.NET：Spreadでデータ一覧表示を簡単に行う方法について

2016年3月 2日 (水)

VB.NET：Spreadのセルのチップウインドウで別に設定された文字列を表示する

VB.NET：Spreadのセルへのデータ設定の描画速度アップ

VB.NET：Spreadのセルのボタンクリック時のイベント処理

2016年3月 1日 (火)

VB.NET：Spreadのシートのセルにボタン、テキスト、チェックボックスのセルタイプの設定

VB.NET：Spreadのシートへの簡単な一覧データの設定について

VB.NET：Spreadのヘッダカラム及び、通常のカラムの連結

検索

admax

カテゴリ

リンク

LSF

LPOP