おやじプログラマー日記: Spread

Windows10(x64)に「VisualBasic6.0」をインストール

最近、VisualBasic6.0（VB6.0）で動作しているシステムをWindows10に載せる物件が発生しました。 VB6.0といえば、15年ぐらい前からの古い開発環境です。
昔はVB6で結構システムを作成したものですが、大部分は「.NET」への移行が終わっています。

ただし、VB6で作られていてもシステムのプログラム本数が多い場合には「.NET」への移行には大変な費用が掛かってしまいます。

そのため、客先ではそのままのソースでWindows10に載せ替えができないかということになります。お客にしてみれば、以前と同じ動作をさせたい場合には「.NET」への移行は必要ないことになります。 VB6で作成したEXEがそのままWindows10で動作すれば何も問題無いことになります。

そこでWindows10へのVB6のインストールを行い、使用しているコントロールの検証を行うことになりました。先ずはVB6のインストールなのですが、以下の様に少し引っ掛かった部分がありましたので、注意が必要です。

VB6の「SETUP.EXE」を「管理者として実行」で起動します。
インストールの手順に従って進めていきます。
しかし、最後のところで「システム設定を更新しています」で止まってしまいました。

　（いくら待ってもインストールは終了しません）

インストールを強制終了し、再度インストール開始します。
再度のインストールでも最後の「システム設定を更新しています」で時間が掛かっている模様でした。
仕方なく再度のインストールで、カスタム設定のところの「データアクセス」をOFF設定でインストールがOKになりました。
更に「VB6.0 Service Pack 6」をインストールします。

（今回のシステムのデータベースはOracleなので、アクセス用には「oo4o」を使うので、 VBの「データアクセス」は特に必要ありませんでした）

さらに使用している市販のコントロール類の検証です。 GrapeCityによれば SPREAD7.0J ActiveReport2.0 はWindows10での動作は補償対象外ですが動作させてみると特に問題無く動く様です。

あと、 ActiveComm 1.0 の検証も行いましたが、特に問題無く動作する様です。 RS232Cポートを持っているWindows10のPCと、WindowsXPのPCとをクロスケーブルで接続し、データの送受信が行えることを確認しました。

これらのコントロールは、GrapeCityでは動作を保証していないので、 自己責任 となりますが。

次のシステム改変時期には、VB6から「.NET」への移行が必要になるかと思います。
その時には、「.NET」から別の物になっていたりして…

中古パソコン【Windows7】 [T14B] 東芝 dynabook R731/B Core i5 2520M 2.5GHz 2GB 250GB 13.3ワイド DVD Multi Win7 Pro 【中古ノートパソコン】【ノートパソコン】【PC】【アウトレット】【中古】【1ヶ月保証】【RCP】【おすすめ】

価格： 20,800円
（2016/11/24 11:57時点）

感想：1件

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

VB.NET:Spreadのチェックボックス型セルにはCheckChangedイベントを、ボタン型セルにはClickイベントの発生方法

以前のSPREADの以下の記事では、ボタンクリックのイベントとして FpSpread1.ButtonClicked で処理していたため、ボタンもチェックボックスもボタンイベントとして処理されてしまいました。

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

それで、ボタンはクリックイベントで処理をし、チェックボックスは値が変化したイベントで処理する様にします。
チェックボックス型セルでは編集中のエディタとして FpCheckBox クラスが、ボタン型セルでは編集中のエディタとして FpButton クラスが使用されます。それで、それぞれのセルタイプのセルが編集モードに入った時点で、 FpCheckBox の CheckChanged イベントにハンドラを設定し、さらに FpButton の Click イベントにハンドラを設定します。

Imports FarPoint.Win Imports FarPoint.Win.Spread Imports FarPoint.Win.Spread.CellType 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 ButtonCellType buttonCell.Text = ArrData(i, 0) 'ボタンのキャプション .Cells(i, 0).CellType = buttonCell '第2カラムはテキスト(TextCellType) Dim textCell As New TextCellType .Cells(i, 1).CellType = textCell .Cells(i, 1).Text = ArrData(i, 1) '第3カラムはチェックボックス(CheckBoxCellType) Dim FpChk As New CheckBoxCellType .Cells(i, 2).CellType = FpChk .Cells(i, 2).HorizontalAlignment = CellHorizontalAlignment.Center .Cells(i, 2).Value = CBool(ArrData(i, 2)) '値はValueに設定 Next End With End Sub 'エディタとしてのクラスの退避 Dim FpChk As FpCheckBox Dim FpBtn As FpButton 'セルが編集モード移行イベント Private Sub FpSpread1_EditModeOn(ByVal sender As Object, ByVal e As System.EventArgs) Handles FpSpread1.EditModeOn With Me.FpSpread1.ActiveSheet 'チェックボックス型セルにはCheckChangedイベントハンドラ関連付け If TypeOf (.GetCellType(.ActiveRowIndex, .ActiveColumnIndex)) Is CheckBoxCellType Then FpChk = CType(FpSpread1.EditingControl, FpCheckBox) AddHandler FpChk.CheckChanged, AddressOf FpChk_CheckChanged End If 'ボタン型セルにはClickイベントハンドラ関連付け If TypeOf (.GetCellType(.ActiveRowIndex, .ActiveColumnIndex)) Is ButtonCellType Then FpBtn = CType(FpSpread1.EditingControl, FpButton) AddHandler FpBtn.Click, AddressOf FpBtn_Click End If End With End Sub 'セルが編集モード抜出しイベント Private Sub FpSpread1_EditModeOff(ByVal sender As Object, ByVal e As System.EventArgs) Handles FpSpread1.EditModeOff With Me.FpSpread1.ActiveSheet 'チェックボックス型セルにはCheckChangedイベントハンドラ関連付け解除 If TypeOf (.GetCellType(.ActiveRowIndex, .ActiveColumnIndex)) Is CheckBoxCellType Then FpChk = CType(FpSpread1.EditingControl, FpCheckBox) RemoveHandler FpChk.CheckChanged, AddressOf FpChk_CheckChanged End If 'ボタン型セルにはClickイベントハンドラ関連付け解除 If TypeOf (.GetCellType(.ActiveRowIndex, .ActiveColumnIndex)) Is ButtonCellType Then FpBtn = CType(FpSpread1.EditingControl, FpButton) RemoveHandler FpBtn.Click, AddressOf FpBtn_Click End If End With End Sub Private Sub FpChk_CheckChanged(ByVal sender As Object, ByVal e As System.EventArgs) MsgBox("FpChk_CheckChanged = " & FpChk.CheckState.ToString(), , "CheckBox Test") End Sub Private Sub FpBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Dim str As String = "" With Me.FpSpread1.ActiveSheet str &= "アクティブ行 = " & .ActiveRowIndex & vbCrLf str &= "アクティブ列 = " & .ActiveColumnIndex & vbCrLf str &= "2カラム目 = " & .Cells(.ActiveRowIndex, 1).Text & vbCrLf str &= "3カラム目 = " & CBool(.Cells(.ActiveRowIndex, 2).Value).ToString & vbCrLf MsgBox(str, , "Button Test") End With End Sub End Class
下図は、最初、フォームが表示され[Button1]をクリックした時の様子です。

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

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

Visual Basic 2013逆引き大全 555の極意【電子書籍】[ 増田智明 ]

価格： 2,527円
（2016/09/29 14:32時点）

感想：0件

投稿時刻 18:42 Spread, VB.NET | 個別ページ | コメント (0) | トラックバック (0)

VB.NET:Spreadのテキストセルでバイト数入力制限を掛ける方法

Spreadのテキストセルで入力する文字数をバイト数で制限する方法について、 Shift-JISエンコーディングのバイト配列処理メソッドを使って行います。

バイト数制限というのは、ほぼShift-JISに由来する考え方で、データベースの文字列定義をShift-JISにしておくとオラクルのVARCHAR2のデータ型でもバイト数制限は必要でした。

以下にソースを示しますが、少し説明します。
最初にフォームロード時に、Shift-JISの文字エンコーディングを生成し、 Spreadの編集モードセルのテキスト変更時イベント処理と、データモデルに変更時イベント処理を宣言しています。
また、両方のイベントで使う、文字列の最後の漢字の泣き別れを防ぐ関数導入しました。既に入力された文字が"あいうえ1"の場合に、さらに漢字で"お"と入力されても "お"の文字の前半分が残らない様にしています。

Imports FarPoint.Win.Spread
Public Class Form1
    '文字エンコーディング
    Dim SJIS As System.Text.Encoding
    Dim WithEvents DataModel As Model.DefaultSheetDataModel

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '文字エンコーディング
        SJIS = System.Text.Encoding.GetEncoding("shift-jis")
        'データモデル
        DataModel = FpSpread1.Sheets(0).Models.Data
        'セルにテキストセルで10文字設定
        Dim TxtCell As New CellType.TextCellType
        TxtCell.MaxLength = 10
        FpSpread1.Sheets(0).Cells(0, 0).CellType = TxtCell
    End Sub

'編集モードセルのテキスト変更時イベント
    Private Sub FpSpread1_EditChange(ByVal sender As Object, ByVal e As EditorNotifyEventArgs) Handles FpSpread1.EditChange
        Try
            If TypeOf (e.View.GetSheetView.ActiveCell.CellType) Is CellType.TextCellType Then
                Dim TxtCell As CellType.TextCellType = e.View.GetSheetView.ActiveCell.CellType
                Dim str As String = e.EditingControl.Text
                '入力テキストが指定バイト数を超えた??
                If SJIS.GetByteCount(str) > TxtCell.MaxLength Then
                    '漢字の泣き別れを加味
                    e.EditingControl.Text = CnvKanjiHalfCut(str, TxtCell.MaxLength, SJIS)
                    '
                    CType(e.EditingControl, CellType.GeneralEditor).SelectionStart = e.EditingControl.Text.Length
                End If
            End If
        Catch
        End Try
    End Sub

'データモデルに変更時イベント
    Private Sub DataModel_Changed(ByVal sender As Object, ByVal e As Model.SheetDataModelEventArgs) Handles DataModel.Changed
        '非編集状態でクリップボードから貼り付けした場合
        If e.Type = Model.SheetDataModelEventType.CellsUpdated Then
            Try
                If TypeOf (FpSpread1.Sheets(0).ActiveCell.CellType) Is CellType.TextCellType Then
                    Dim TxtCell As CellType.TextCellType = FpSpread1.Sheets(0).ActiveCell.CellType
                    Dim str As String = DataModel.GetValue(e.Row, e.Column)
                    '入力テキストが指定バイト数を超えた??
                    If SJIS.GetByteCount(str) > TxtCell.MaxLength Then
                        str = CnvKanjiHalfCut(str, TxtCell.MaxLength, SJIS)
                        DataModel.SetValue(e.Row, e.Column, str)
                    End If
                End If
            Catch
            End Try
        End If
    End Sub

'最終文字が漢字で泣き別れするかチェック
    Private Function CnvKanjiHalfCut(ByVal strSrc As String, ByVal nLen As Integer, ByVal Enc As System.Text.Encoding) As String
        Dim Bytes As Byte() = Enc.GetBytes(strSrc)
        Dim str As String = Enc.GetString(Bytes, 0, nLen)
        If Enc.GetByteCount(str) > nLen Then
            Array.Resize(Bytes, nLen - 1)
            str = Enc.GetString(Bytes)
        End If
        Return str
    End Function
End Class

投稿時刻 18:01 Spread, VB.NET | 個別ページ | コメント (0) | トラックバック (0)

VB.NET：Spreadの数値セルタイプを使ってデータメンテナンスのプログラムに使う方法

マスタのメンテテンス用プログラムとしては、1個のウインドウでいろんな項目を入力するのですが、基本的には項目名とそれに対応するデータ入力コントロールとしてテキストボックス等を設置します。
このテキストボックスには入力の書式や、キーデータの選択等を自分で組んでやる必要があります。市販の入力用コントロールを使えばいいのですが、自分で組むと結構大変です。
そこで、SPREADの出番なのですが、SPREAD自身には既に入力コントロールが備わっています。これを使わない手はありません。SPREADなので表形式になってしまいますが、この形が許されるのであれば、SPREADを使っていいのではと思います。

SPREADには、数値セルタイプとして CurrencyCellType , NumberCellType がありますが、今回は NumberCellType を使って数値用のメンテナンスを行う場合を想定した例を紹介します。

画面の表示は以下の様になります。

以下の今回のソースを示しますが、フォームのロード時に全ての数値セルの CellType を設定しています。尚、最後のコード的なセルは、通常では編集入力後の表示で先頭ゼロを行う様に、 NumberCellType を拡張したクラスを定義しています。
また、セルの編集時には背景色と文字色を変更して入力を分かりやすくしています。

Imports FarPoint.Win.Spread.CellType
Public Class Form1
    'フォームロード時イベントで各数値セルの初期化
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim NumCell As New NumberCellType
        '【ZZ9】
        With NumCell
            .DecimalPlaces = 0
            .MaximumValue = 999
            .MinimumValue = 0
        End With
        FpSpread1.ActiveSheet.Cells(0, 1).CellType = NumCell

'【ZZ9.99】
        NumCell = New NumberCellType
        With NumCell
            .DecimalPlaces = 2
            .MaximumValue = 999.99
            .MinimumValue = 0
        End With
        FpSpread1.ActiveSheet.Cells(1, 1).CellType = NumCell

'【-ZZ9～ZZ9】
        NumCell = New NumberCellType
        With NumCell
            .DecimalPlaces = 0
            .MaximumValue = 999
            .MinimumValue = -999
            .NegativeRed = True
        End With
        FpSpread1.ActiveSheet.Cells(2, 1).CellType = NumCell

'【-ZZ9.99～ZZ9.99】
        NumCell = New NumberCellType
        With NumCell
            .DecimalPlaces = 2
            .MaximumValue = 999.99
            .MinimumValue = -999.99
            .NegativeRed = True
        End With
        FpSpread1.ActiveSheet.Cells(3, 1).CellType = NumCell

'【-ZZ,ZZ9～ZZ,ZZ9】
        NumCell = New NumberCellType
        With NumCell
            .DecimalPlaces = 0
            .MaximumValue = 99999
            .MinimumValue = -99999
            .NegativeRed = True
            .Separator = ","
            .ShowSeparator = True
        End With
        FpSpread1.ActiveSheet.Cells(4, 1).CellType = NumCell

'【CODE 99999】
        Dim CdCell = New CodeCellType
        With CdCell
            .MaximumValue = 99999
            .MinimumValue = 0
        End With
        FpSpread1.ActiveSheet.Cells(5, 1).CellType = CdCell
    End Sub

'編集中に背景色と文字色を変える
    Private Sub FpSpread1_EditModeOn(sender As Object, e As EventArgs) Handles FpSpread1.EditModeOn
        CType(FpSpread1.EditingControl, GeneralEditor).BackColor = Color.AntiqueWhite
        CType(FpSpread1.EditingControl, GeneralEditor).ForeColor = Color.Blue
    End Sub

'入力データの取得・表示
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim str As String = ""
        str &= "ZZ9 : " & Me.FpSpread1.ActiveSheet.GetValue(0, 1) & vbCrLf
        str &= "ZZ9.99 : " & Me.FpSpread1.ActiveSheet.GetValue(1, 1) & vbCrLf
        str &= "-ZZ9～ZZ9 : " & Me.FpSpread1.ActiveSheet.GetValue(2, 1) & vbCrLf
        str &= "-ZZ9.99～ZZ9.99 : " & Me.FpSpread1.ActiveSheet.GetValue(3, 1) & vbCrLf
        str &= "-ZZ,ZZ9～ZZ,ZZ9 : " & Me.FpSpread1.ActiveSheet.GetValue(4, 1) & vbCrLf
        str &= "CODE 99999 : " & Me.FpSpread1.ActiveSheet.GetValue(5, 1) & vbCrLf
        MsgBox(str, "数値入力テスト")
    End Sub
End Class

'【CODE用カスタムセルクラス】
Public Class CodeCellType
    Inherits FarPoint.Win.Spread.CellType.NumberCellType

Public Sub New()
        MyBase.New()
        Me.DecimalPlaces = 0
    End Sub

'編集を抜ける時に先頭ゼロ付きで表示
    Public Overrides Function Format(ByVal obj As Object) As String
        Dim Val As Decimal = Convert.ToDecimal(obj)
        Dim Len As Integer = Me.MaximumValue.ToString.Length
        Return Val.ToString(New String("0"c, Len))
    End Function
End Class

下図は、「Button1」をクリックした時の表示です。

投稿時刻 15:13 Spread, VB.NET | 個別ページ | コメント (0) | トラックバック (0)

VB.NET：2個のSpread間での[Enter]キー、矢印キーなどでフォーカス移動を行う方法

2個のSPREADコントロールをフォームに貼って、それぞれ2列×5行のシートを同じ様に設定します。
基本的な設定はSPREADコントロールのデザイナで設定していますが、以下の様な表示になります。

今回の動作の想定は以下の様に考えます。
・セルは全てテキスト入力で「←」「→」はセル内での左右移動
・「Tab」、「Enter」、「Ctrl」＋「←」、「Ctrl」＋「→」はアクティブセルの移動
　但し、左SPREADのDATA2の最下行セルの場合、右SPREADのDATA1の先頭セルに移動
　また、右SPREADのDATA1の先頭セルの場合、左SPREADのDATA2の最下行セルに移動

今回の処理では以下の処理が肝になります。

■初期処理でのSPREADのキー動作設定

そのままですと、矢印キーなどでアクティブセルの移動ができないのでキー制御をフォームロード時に行います。
・入力マップの変更で編集中セルでの「Enter」キー動作を指定します。・各セルをTextCellTypeにしますが、「矢印キー」の動作を、「矢印キー」のみはカーソルのセル内のみ左・右移動で、「Ctrl」＋「矢印キー」はセル編集を終了し、アクティブセルのカーソル方向移動に設定します。

■Advanceイベントでの処理

AdvanceイベントはSPREADコントロールからフォーカスが移動する場合に発生します。今回の場合は以下のキー入力でイベントが発生します。
・DATA1カラムで「Shift」＋「←」、「Tab」、「Enter」
・DATA2カラムで「Shift」＋「→」、「Tab」、「Enter」
・DATA1カラム及びDATA2カラムの先頭行で「↑」
・DATA1カラム及びDATA2カラムの最下行で「↓」

左SPREADでのAdvanceイベントで、DATA2カラムで最下行の場合、イベントの「e」引数の「Cancel」プロパティを Falseにすることでデフォルト処理をさせることで、右SPREADにフォーカスが移動します。

右SPREADでのAdvanceイベントで、DATA1カラムで先頭行の場合、イベントの「e」引数の「Cancel」プロパティを Falseにすることでデフォルト処理をさせることで、左SPREADにフォーカスが移動します。
Imports FarPoint.Win.Spread Public Class Form1 'フォームの初期化 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'SpreadのSPREADの「Enter」キー設定,各セルの「Ctrl」＋「矢印」でアクティブセル移動への設定 SetSpreadAttr(Me.FpSpread1) SetSpreadAttr(Me.FpSpread2) 'Spreadのフォーカス枠非表示 ClearSpreadActiveFrame(Me.FpSpread1) ClearSpreadActiveFrame(Me.FpSpread2) End Sub 'Spread編集開始時処理 Private Sub FpSpread1_EditModeOn(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles FpSpread1.EditModeOn, FpSpread2.EditModeOn '編集中セルの背景色を変更する CType(sender.EditingControl, CellType.GeneralEditor).BackColor = Drawing.Color.Moccasin End Sub '左のSpreadでの最下行での右Spreadへの移動制御 Private Sub FpSpread1_Advance(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.AdvanceEventArgs) _ Handles FpSpread1.Advance With CType(sender, FpSpread).ActiveSheet '最終セル?? If .ActiveRowIndex = .RowCount - 1 And .ActiveColumnIndex = .ColumnCount - 1 Then e.Cancel = False FpSpread2.ActiveSheet.SetActiveCell(0, 0) End If End With End Sub '右のSpreadでの最上行での左Spreadへの移動制御 Private Sub FpSpread2_Advance(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.AdvanceEventArgs) Handles _ FpSpread2.Advance With CType(sender, FpSpread).ActiveSheet '先頭セル?? If .ActiveRowIndex = 0 And .ActiveColumnIndex = 0 Then e.Cancel = False FpSpread1.ActiveSheet.SetActiveCell(4, 1) End If End With End Sub 'Spreadフォーカス取得時イベント Private Sub FpSpread1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles FpSpread1.Enter, FpSpread2.Enter Dim spd As FpSpread = CType(sender, FpSpread) If spd.Name = "FpSpread1" Then '左のSpreadのフォーカス取得 ResetSpreadActiveFrame(Me.FpSpread1) '左Spreadフォーカス枠表示 ClearSpreadActiveFrame(Me.FpSpread2) '右Spreadフォーカス枠非表示 Else '右のSpreadのフォーカス取得 ClearSpreadActiveFrame(Me.FpSpread1) '左Spreadフォーカス枠非表示 ResetSpreadActiveFrame(Me.FpSpread2) '右Spreadフォーカス枠表示 End If End Sub 'Spreadのフォーカス枠を表示 Private Sub ResetSpreadActiveFrame(ByVal spd As FpSpread) ' フォーカスインジケータをリセット spd.ResetFocusRenderer() End Sub 'Spreadのフォーカス枠を非表示 Private Sub ClearSpreadActiveFrame(ByVal spd As FpSpread) ' フォーカスインジケータを非表示 spd.FocusRenderer = New FarPoint.Win.Spread.DefaultFocusIndicatorRenderer(0) End Sub 'SPREADの「Enter」キー設定,各セルの「Ctrl」＋「矢印」でアクティブセル移動 Private Sub SetSpreadAttr(ByVal spd As FpSpread) '編集セルでの［Enter］キーを「次列へ移動」 Dim im As New InputMap im = spd.GetInputMap(InputMapMode.WhenAncestorOfFocused) im.Put(New Keystroke(Keys.Enter, Keys.None), SpreadActions.MoveToNextColumn) For Row = 0 To spd.ActiveSheet.RowCount - 1 '[矢印キー]のみ :カーソルのセル内のみ左・右移動 '[Ctrl]＋[矢印キー]:セルは編集を終了し、アクティブセルのカーソル方向移動 Dim tc As New FarPoint.Win.Spread.CellType.TextCellType tc.AcceptsArrowKeys = FarPoint.Win.SuperEdit.AcceptsArrowKeys.Arrows spd.ActiveSheet.Rows(Row).CellType = tc Next End Sub End Class
■EditModeOnイベントでの処理

尚、現在のセルを分かりやすくするために、EditModeOnイベント（編集開始時処理）で編集中セルの背景色を変更しています。

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

VB.NET：SpreadシートのPDF出力と表示を行う方法

SPREADには、シートのそのままをPDFに出力する機能が備わっています。「SheetView」クラスの「PrintInfo」のPDF出力の指示を行えば、「SheetView」の印刷メソッドでPDF出力ができます。

以下のソースですが、「Button1_Click」の前までは以前のソースを踏襲していまして、単に単一行選択表示で1000行3カラムのテストデータを表示しています。

「Button1_Click」の中で、PDFファイルへの出力処理を行っています。「ActiveSheet.PrintInfo」の「PrintToPdf」をTrueに設定し、「PdfFileName」にPDF出力ファイル名を設定しています。その後、SPREADコントロールの「PrintSheet」メソッドで「ActiveSheet」の印刷処理を行います。

ここで注意点があります。「PrintSheet」メソッドの直後でのPDFファイルの表示処理がコメントになっていますが、コメント部分を実行に戻して処理すると、「AcrobatReader」は起動するのですがPDFファイルが見つからないとエラーになります。「PrintSheet」メソッドの直後ではタイミング的に、まだPDFファイルの出力が終了していないので、エラーになる様です。

そこで解決方法として、「PrintSheet」メソッドの終了時点で「AcrobatReader」を起動することになります。ちょうど「PrintMessageBox」イベントがそれに当たります。引数の「e」の「BeginPrinting」が「False」になった時が「PrintSheet」が終わったことを通知してくれますので、そのタイミングで「AcrobatReader」起動の関数をコールします。

Imports FarPoint.Win.Spread Public Class Form1 'フォームロード時にSPREADの初期化 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'SPREADの初期化 Call InitilayzeSpread(Me.FpSpread1) '一覧データ表示 Call Me.DisplayData() End Sub 'SPREADの初期化 Private Sub InitilayzeSpread(ByVal spd As FpSpread) 'SPREADの設定 With spd 'スクロールバーの設定 .HorizontalScrollBarPolicy = ScrollBarPolicy.AsNeeded .VerticalScrollBarPolicy = ScrollBarPolicy.AsNeeded '分割ボックスの設定 .ColumnSplitBoxPolicy = SplitBoxPolicy.Never .RowSplitBoxPolicy = SplitBoxPolicy.Never 'カーソル設定 .SetCursor(CursorType.Normal, Windows.Forms.Cursors.Arrow) .SetCursor(CursorType.LockedCell, Windows.Forms.Cursors.Arrow) 'セルがアクティブ時に編集モードにしない .EditModePermanent = False 'セルがアクティブ時に既存の内容を選択しない .EditModeReplace = False End With 'アクティブシートの設定 With spd.ActiveSheet '選択状態 .SelectionStyle = SelectionStyles.SelectionRenderer '編集モードの設定 .OperationMode = OperationMode.SingleSelect '列のサイズ変更可、行のサイズ変更不可に設定する。 .Columns.Default.Resizable = True .Rows.Default.Resizable = False 'SPREADのアクティブシートのカラム数を３に設定 .ColumnCount = 3 'SPREADの行クリア .RowCount = 0 End With 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 Mod 100).ToString("000")) '100で割った余り .SetText(i, 2, "C" & (i Mod 10).ToString("000")) '10で割った余り Next End With '描画を再開させる Me.FpSpread1.ResumeLayout(True) '先頭行を選択設定(1行目が選択色になる) Me.FpSpread1.ActiveSheet.AddSelection(0, 0, 1, 1) End Sub 'PDF出力ボタン Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'アクティブシートをPDFとして出力 Me.FpSpread1.ActiveSheet.PrintInfo.PrintToPdf = True 'PDFファイル名 Me.FpSpread1.ActiveSheet.PrintInfo.PdfFileName = "test.pdf" 'アクティブシートをPDFとして印刷 Me.FpSpread1.PrintSheet(Me.FpSpread1.ActiveSheet) ''PDF表示 'Call DispPdf("test.pdf") End Sub Private Sub FpSpread1_PrintMessageBox(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.PrintMessageBoxEventArgs) Handles FpSpread1.PrintMessageBox '印刷終了タイミングか?? If e.BeginPrinting = False Then 'PDF表示 Call DispPdf("test.pdf") End If End Sub '拡張子PDFに関連付けられているAcrobatReader起動 Private Sub DispPdf(ByVal strFileName As String) Dim pStartInfo As New ProcessStartInfo Dim p As New Process With pStartInfo .FileName = strFileName .CreateNoWindow = False .WindowStyle = ProcessWindowStyle.Normal End With 'プロセスのStartInfoプロパティに設定 p.StartInfo = pStartInfo If p.Start() = True Then 'AcrobatReaderの終了を待つ p.WaitForExit() Else MsgBox("起動に失敗しました。") End If End Sub End Class
下図は、プログラムが起動しした時の表示です。

下図は、「Button1」をクリックした時の表示です。

Visual Basic 2013逆引き大全 555の極意【電子書籍】[ 増田智明 ]

価格： 2,527円
（2016/09/29 14:32時点）

感想：0件

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

VB.NET：SpreadでのCSV出力とCSV入力を使って、異なるSPREADコントロール間でシートデータのコピーを行う方法

前回は、異なるSPREADのシート間でのコピーを、クリップボードを使う方法と、XML文字列を使う方法で行いましたが、今回はCSVファイルへの出力と入力を使って行います。

ソースのほとんどは「異なるSPREADのシート間でのコピー」のものと同じなので、「Button1」クリックでの処理が異なる部分のみ以下に示します。

コピー元のActiveSheetの「SaveTextFile」メソッドを使うことで”test.csv”にCSV出力します。その後、コピー先のActiveSheetの「LoadTextFile」メソッドで”test.csv”をCSV入力します。

下図は、「Button1」クリック後の表示です。

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

VB.NET：Spreadで異なるSPREADコントロール間でシートデータのコピーを行う方法

異なるSPREADのシート間でのコピーを行う方法が2種類あります。一つはクリップボードを使う方法と、XML文字列を使う方法です。

■クリップボードを使う方法
コピー元のActiveSheetの「ClipboardCopy」メソッドを使うことで、指定された範囲のセルをクリップボードにコピーします。その後、コピー先のActiveSheetの行・列の数を合わせておいて、「ClipboardPaste」メソッドで貼付を行います。以下のソースでは、「Button1_Click」の処理です。

■XML文字列を使う方法
コピー元のシートを「GetObjectXml」メソッドにてシリアライズ化しXML文字列化します。その後、コピー先のシートに「SetObjectXml」メソッドにてXML文字列を逆シリアライズ化してやります。以下のソースでは、「Button2_Click」の処理です。
尚、ここではやっていませんが、数式を含むシートの場合には、シートの追加後にLoadFormulasメソッドを呼び出すことで数式が有効になるそうです。

Imports FarPoint.Win.Spread Public Class Form1 'フォームロード時にSPREADの初期化 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'SPREADの初期化 Call InitilayzeSpread(Me.FpSpread1) Call InitilayzeSpread(Me.FpSpread2) '一覧データ表示 Call Me.DisplayData() End Sub 'SPREADの初期化 Private Sub InitilayzeSpread(ByVal spd As FpSpread) 'SPREADの設定 With spd 'スクロールバーの設定 .HorizontalScrollBarPolicy = ScrollBarPolicy.AsNeeded .VerticalScrollBarPolicy = ScrollBarPolicy.AsNeeded '分割ボックスの設定 .ColumnSplitBoxPolicy = SplitBoxPolicy.Never .RowSplitBoxPolicy = SplitBoxPolicy.Never 'カーソル設定 .SetCursor(CursorType.Normal, Windows.Forms.Cursors.Arrow) .SetCursor(CursorType.LockedCell, Windows.Forms.Cursors.Arrow) 'セルがアクティブ時に編集モードにしない .EditModePermanent = False 'セルがアクティブ時に既存の内容を選択しない .EditModeReplace = False End With 'アクティブシートの設定 With spd.ActiveSheet '選択状態 .SelectionStyle = SelectionStyles.SelectionRenderer '編集モードの設定 .OperationMode = OperationMode.SingleSelect '列のサイズ変更可、行のサイズ変更不可に設定する。 .Columns.Default.Resizable = True .Rows.Default.Resizable = False 'SPREADのアクティブシートのカラム数を３に設定 .ColumnCount = 3 'SPREADの行クリア .RowCount = 0 End With 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 Mod 100).ToString("000")) '100で割った余り .SetText(i, 2, "C" & (i Mod 10).ToString("000")) '10で割った余り Next End With '描画を再開させる Me.FpSpread1.ResumeLayout(True) '先頭行を選択設定(1行目が選択色になる) Me.FpSpread1.ActiveSheet.AddSelection(0, 0, 1, 1) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'SPREAD1の全部をクリップボードにコピー With Me.FpSpread1.ActiveSheet .ClipboardCopy(New Model.CellRange(0, 0, .RowCount, .ColumnCount)) End With 'SPREAD2 With Me.FpSpread2.ActiveSheet 'SPREAD2の行列数を設定 .RowCount = Me.FpSpread1.ActiveSheet.RowCount .ColumnCount = Me.FpSpread1.ActiveSheet.ColumnCount 'SPREAD2にペースト .SetActiveCell(0, 0) .ClipboardPaste(FarPoint.Win.Spread.ClipboardPasteOptions.All) 'SPREAD2の選択状態を解除 .ClearSelection() End With End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim pstrXML As String 'Sheet情報をxml形式で取得 pstrXML = FarPoint.Win.Serializer.GetObjectXml(CType(Me.FpSpread1.ActiveSheet, FarPoint.Win.ISerializeSupport), "Sheet") '取得した情報を設定 FarPoint.Win.Serializer.SetObjectXml(CType(Me.FpSpread2.ActiveSheet, FarPoint.Win.ISerializeSupport), pstrXML, "Sheet") End Sub End Class
下図は、プログラムが起動した時の表示です。

下図は、「Button2」をクリック後の表示です。「Button1」と「Button2」では若干結果が異なります。「Button1」では行選択状態はコピーされず、左上のセルがアクティブになります。「Button2」は行選択状態もコピーされる様です。

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

VB.NET：Spreadデータ一覧表示での自動ソート実行時に複数のソート条件を指定する方法について

SPREADを使ってデータの一覧を表示し、ソート処理を追加するのは比較的簡単に行えます。

アクティブシートの設定で各カラムの「AllowAutoSort」プロパティを「True」にすればソートが可能になります。以下のソースを動作させた最初の表示が以下の図になります。

各カラムのヘッダにソートのインジケータが表示されるので、そのマークをクリックすることで自動でソート処理がなされます。

Imports FarPoint.Win.Spread 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 = ScrollBarPolicy.AsNeeded .VerticalScrollBarPolicy = ScrollBarPolicy.AsNeeded '分割ボックスの設定 .ColumnSplitBoxPolicy = SplitBoxPolicy.Never .RowSplitBoxPolicy = SplitBoxPolicy.Never 'カーソル設定 .SetCursor(CursorType.Normal, Windows.Forms.Cursors.Arrow) .SetCursor(CursorType.LockedCell, Windows.Forms.Cursors.Arrow) 'セルがアクティブ時に編集モードにしない .EditModePermanent = False 'セルがアクティブ時に既存の内容を選択しない .EditModeReplace = False End With 'アクティブシートの設定 With Me.FpSpread1.ActiveSheet '選択状態 .SelectionStyle = SelectionStyles.SelectionRenderer '編集モードの設定 .OperationMode = OperationMode.SingleSelect '列のサイズ変更可、行のサイズ変更不可に設定する。 .Columns.Default.Resizable = True .Rows.Default.Resizable = False 'SPREADのアクティブシートのカラム数を３に設定 .ColumnCount = 3 'SPREADの行クリア .RowCount = 0 '列の自動ソートを許可します .Columns(0).AllowAutoSort = True .Columns(1).AllowAutoSort = True .Columns(2).AllowAutoSort = True 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")) Dim j As Integer = i Mod 100 '100で割った余り .SetText(i, 1, "B" & j.ToString("000")) Dim k As Integer = i Mod 10 '10で割った余り .SetText(i, 2, "C" & k.ToString("000")) Next End With '描画を再開させる Me.FpSpread1.ResumeLayout(True) '先頭行を選択設定(1行目が選択色になる) Me.FpSpread1.ActiveSheet.AddSelection(0, 0, 1, 1) End Sub End Class
但し、このままでは少し不満な点が残ります。下図は、2カラム目でソートをさせた時の結果の表示です。

2カラム目のみがソート条件になっているので、1カラム目と3カラム目がうまいこと順番にならない様です。この現象を解消するために、列ヘッダクリックによるソート開始時イベントで以下の様にし、ソート条件を複数に指定します。
'ソート開始時イベント Private Sub FpSpread1_AutoSortingColumn(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.AutoSortingColumnEventArgs) Handles FpSpread1.AutoSortingColumn 'デフォルト動作をキャンセル e.Cancel = True '現在のカラムのソートインジケーターを取得 Dim Indicator As Model.SortIndicator = FpSpread1.ActiveSheet.Columns(e.Column).SortIndicator 'ソート条件クラス Dim si(2) As FarPoint.Win.Spread.SortInfo 'ソートの指示値 Dim fSortInfo As Boolean 'ソートキーを「指定列」「指定列以外の左から2番目の列」「指定列以外の左から3番目の列」の順で設定します If Indicator = Model.SortIndicator.None Or Indicator = Model.SortIndicator.Descending Then 'インジケータ：昇順 FpSpread1.ActiveSheet.Columns(e.Column).SortIndicator = Model.SortIndicator.Ascending fSortInfo = True Else 'インジケータ：降順 FpSpread1.ActiveSheet.Columns(e.Column).SortIndicator = Model.SortIndicator.Descending fSortInfo = False End If 'ソート条件の最初は現在のカラム si(0) = New FarPoint.Win.Spread.SortInfo(e.Column, fSortInfo) Dim j As Integer = 1 For i As Integer = 0 To 2 '現在のカラム以外?? If i <> e.Column Then '現在のカラム以外のソート条件を設定 si(j) = New FarPoint.Win.Spread.SortInfo(i, fSortInfo) j += 1 End If Next 'ソート実行 FpSpread1.ActiveSheet.SortRows(0, FpSpread1.ActiveSheet.RowCount, si) End Sub
このイベント処理をソースに追加すると下図の様な表示になります。

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

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

前回は、SPREADを使ってデータの一覧を表示し、セルダブルクリック(CellDoubleClick)もしくはキーダウン(KeyDown)イベント時にメッセージボックスを表示するという簡単な処理を行いました。

今回は少し進んで、セルダブルクリック及びキーダウンイベント時に、別フォームを作成し表示させてみます。別フォームには3個のラベルを貼って、データ一覧の各カラムの内容を表示します。

フォームロード時にSPREADの初期化などは前回までと同様ですが、データ表示用の関数(DisplayOneData)を新規に作成し行番号を引数で渡すことで別フォーム(Form2)を生成後、その行番号の各カラム値を3個のラベルに設定しています。別フォームは「Show」メソッドで表示しています。

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 'Spreadダブルクリック時処理 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 'データ表示 Call DisplayOneData(e.Row) End If End Sub 'Spread KeyDown時処理 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 'データ表示 Call DisplayOneData(Me.FpSpread1.ActiveSheet.ActiveRowIndex) End If End Sub 'データ表示 Private Sub DisplayOneData(ByVal nRow As Integer) Dim form2 As New Form2 With form2 .Label1.Text = Me.FpSpread1.ActiveSheet.GetValue(nRow, 0) .Label2.Text = Me.FpSpread1.ActiveSheet.GetValue(nRow, 1) .Label3.Text = Me.FpSpread1.ActiveSheet.GetValue(nRow, 2) .Show() End With End Sub End Class
下図は、フォーム表示後、2行目をダブルクリックしてForm2を表示した時の表示です。
しかし、実際の動作としては、Form1でダブルクリック後、Form2が表示されるのですが、フォーカスは依然としてForm1にあり、Form2はForm1の下に表示されます。（キーダウン時の方は、Form2はForm1の上に表示されます）

この現象を避けるには、ダブルクリック時処理を以下の様にし、データ表示のフォーム表示メソッドを「ShowDialog」に変更することです。
'Spreadダブルクリック時処理 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 'デフォルト処理のキャンセル e.Cancel = True 'データ表示 Call DisplayOneData(e.Row) End If End Sub 'データ表示 Private Sub DisplayOneData(ByVal nRow As Integer) Dim form2 As New Form2 With form2 .Label1.Text = Me.FpSpread1.ActiveSheet.GetValue(nRow, 0) .Label2.Text = Me.FpSpread1.ActiveSheet.GetValue(nRow, 1) .Label3.Text = Me.FpSpread1.ActiveSheet.GetValue(nRow, 2) .ShowDialog() End With End Sub

もう一つ解決策がありまして、フォームの表示メソッドを「Show」のままで行う方法です。
ダブルクリック時にダブルクリックが在った証拠フラグをONし、マウスアップ時にダブルクリックフラグがONならば、データ表示を行う様にすることです。（マウスアップ時には、Form1からフォーカスが無くなる様です。）

一覧データ表示移行の部分を、以下のソースの様にします。
'ダブルクリックフラグ Private isSpdCellDoubleClick As Boolean = False 'Spreadダブルクリック時処理 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 'デフォルト処理のキャンセル e.Cancel = True 'ダブルクリックフラグON isSpdCellDoubleClick = True End If End Sub 'Spreadマウスアップ時処理 Private Sub FpSpread1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles FpSpread1.MouseUp If Me.isSpdCellDoubleClick = True Then 'データ表示 Call DisplayOneData(Me.FpSpread1.ActiveSheet.ActiveRowIndex) End If 'ダブルクリックフラグOFF Me.isSpdCellDoubleClick = False End Sub 'Spread KeyDown時処理 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 'データ表示 Call DisplayOneData(Me.FpSpread1.ActiveSheet.ActiveRowIndex) End If End Sub 'データ表示 Private Sub DisplayOneData(ByVal nRow As Integer) Dim form2 As New Form2 With form2 .Label1.Text = Me.FpSpread1.ActiveSheet.GetValue(nRow, 0) .Label2.Text = Me.FpSpread1.ActiveSheet.GetValue(nRow, 1) .Label3.Text = Me.FpSpread1.ActiveSheet.GetValue(nRow, 2) .Show() End With End Sub

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

おやじプログラマー日記

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

おすすめ本

最近の記事

最近のトラックバック

Ranking

最近のコメント

アーカイブ

AccRanking

Ad

カテゴリ「Spread」の20件の記事

2016年11月24日 (木)

Windows10(x64)に「VisualBasic6.0」をインストール

2016年3月23日 (水)

VB.NET:Spreadのチェックボックス型セルにはCheckChangedイベントを、ボタン型セルにはClickイベントの発生方法

2016年3月19日 (土)

VB.NET:Spreadのテキストセルでバイト数入力制限を掛ける方法

2016年3月18日 (金)

VB.NET：Spreadの数値セルタイプを使ってデータメンテナンスのプログラムに使う方法

2016年3月13日 (日)

VB.NET：2個のSpread間での[Enter]キー、矢印キーなどでフォーカス移動を行う方法

2016年3月 7日 (月)

VB.NET：SpreadシートのPDF出力と表示を行う方法

2016年3月 5日 (土)

VB.NET：SpreadでのCSV出力とCSV入力を使って、異なるSPREADコントロール間でシートデータのコピーを行う方法

VB.NET：Spreadで異なるSPREADコントロール間でシートデータのコピーを行う方法

2016年3月 4日 (金)

VB.NET：Spreadデータ一覧表示での自動ソート実行時に複数のソート条件を指定する方法について

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

検索

admax

カテゴリ

リンク

LSF

LPOP