おやじプログラマー日記

ADO.NET を使用した SQL-Server のテーブルをCSVファイルに出力する簡単な関数を作成してみました。

CSVファイルを作成する関数への引数は、データベース名とデータソース名と、SQL文、それとCSVファイル名とCSV内のカラムヘッダを 出力するかのフラグになります。

CSV出力処理関数内では SQL-Server への接続をオープンし、指定されたSELECT文を実行します。 SELECT文の結果の行が在れば、1行づつデータを取得します。 初回の行の処理の場合には、リーダーオブジェクトからカラム名を取得しヘッダ行を書き込みます。 その後、各データ行をCSVファイルに書き込みます。 CSVの各データは強制的にダブルクォートで囲む様にしていますので、 データ内のダブルクォートはエスケープ処理しています。

Public Class Form1 'フォーム上に張り付けたボタンでの処理 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click SqlToCsv("TEST", ".\SQLEXPRESS12", "SELECT * FROM TEST1 ORDER BY CODE", "TEST.CSV", True) End Sub ''' <summary>指定SQL文のCSVファイル出力</summary> ''' <param name="Database">データベース名</param> ''' <param name="DataSource">データソース名</param> ''' <param name="SQL">SELECT文</param> ''' <param name="CsvFilePath">CSVファイルパス</param> ''' <param name="fHeader">カラムヘッダ出力指示</param> Private Sub SqlToCsv(ByVal Database As String, ByVal DataSource As String, ByVal SQL As String, _ ByVal CsvFilePath As String, ByVal fHeader As Boolean) 'CSVファイル書込Encoding(Shift-JIS) Dim Enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("Shift_JIS") 'CSVファイルオープン Dim SWrt As New System.IO.StreamWriter(CsvFilePath, False, Enc) 'SQL-Server接続文字列 Dim DBConnection As String = "Persist Security Info=false;Integrated Security=SSPI;" & _ "Database=" & Database & ";Data Source=" & DataSource & ";" 'SQLコネクションクラス Dim Conn As New System.Data.SqlClient.SqlConnection(DBConnection) Conn.Open() 'コマンドオブジェクト Dim Cmd As New System.Data.SqlClient.SqlCommand(SQL, Conn) 'TESTデータ取得(リーダーオブジェクト) Dim Reader As System.Data.SqlClient.SqlDataReader = Nothing Reader = Cmd.ExecuteReader() '読込行数が存在?? If Reader.HasRows Then Dim fFirst As Boolean = True '読込 While Reader.Read() = True If fHeader = True And fFirst = True Then fFirst = False Dim ColName As String = "" 'カラム数分の処理 For i As Integer = 0 To Reader.FieldCount - 1 'カラム名取得し、ダブルクォートで囲む ColName = SuroundDblQuotes(Reader.GetName(i)) 'カラム名書込 SWrt.Write(ColName) 'カンマ書込 If i < Reader.FieldCount - 1 Then SWrt.Write(","c) End If Next '改行書込 SWrt.Write(vbCrLf) End If Dim ColData As String = "" For i As Integer = 0 To Reader.FieldCount - 1 'データ取得し、ダブルクォートで囲む ColData = SuroundDblQuotes(Reader.GetValue(i).ToString()) 'データ書込 SWrt.Write(ColData) 'カンマ書込 If i < Reader.FieldCount - 1 Then SWrt.Write(","c) End If Next '改行書込 SWrt.Write(vbCrLf) End While End If 'CSVファイルクローズ SWrt.Close() 'クローズ Conn.Close() End Sub ''' <summary>文字列をダブルクォートで囲む</summary> Private Function SuroundDblQuotes(ByVal str As String) As String If str.IndexOf(""""c) > -1 Then '文字列をダブルクォートをダブルクォートでエスケープ str = str.Replace("""", """""") End If Return """" & str & """" End Function
尚、今回のテーブルは以下の生成文で生成しました。
CREATE TABLE TEST1 ( CODE VARCHAR(8) NOT NULL ,DATA1 VARCHAR(16) ,DATA2 VARCHAR(16) ,DATA3 VARCHAR(16) ,CONSTRAINT TEST1_PKC PRIMARY KEY (CODE) ); INSERT INTO TEST1 VALUES('00000001', 'A000001', 'BBBBBB1', 'C001'); INSERT INTO TEST1 VALUES('00000002', 'A000002', 'BBBBBB2', 'C002'); INSERT INTO TEST1 VALUES('00000003', 'A000003', 'BBBBBB3', 'C003'); INSERT INTO TEST1 VALUES('00000004', 'A000004', 'BBBBBB4', 'C004');
結果的にCSVファイル内容は以下の様になります。
"CODE","DATA1","DATA2","DATA3" "00000001","A000001","BBBBBB1","C001" "00000002","A000002","BBBBBB2","C002" "00000003","A000003","BBBBBB3","C003" "00000004","A000004","BBBBBB4","C004"

■関連記事
⇒BCPコマンドでUnicode文字形式を使用したデータのインポート及びエクスポート(SQL Server)について
⇒ADO.NET での DataReader の入れ子エラー
⇒ADO.NET を使用した SQL-Server へのアクセス・クラス
⇒SQL-Serverの自動採番(IDENTITY値)の取得・リセット
⇒SQL-Serverのストアド・ファンクションではUPDATEなどが実行できない
⇒SQL-Serverのユーティリティ(BCPコマンド)を利用したテーブルへのインポート・エキスポート
⇒SQL-Serverのプロシージャ生成のバッチ実行
⇒SQL-Serverの関数・プロシージャのVB.NETでの実行

エクセルでCSVファイルを読込む場合、先頭がゼロのデータが消されてしまい左寄せの様な表示になります。 例えば電場番号や商品コードなどでは、先頭にゼロが存在することは自然なことなので、 ゼロがサプレスされてしまうと不都合が在ります。

以下の様なCSVファイルをエクセルに読込んでみます。

エクセルの結果はやはり先頭ゼロが在りません。

そこで先頭ゼロのカラムデータは値をダブルコーテーションで囲んで先頭に = （イコール）を 置いてやります。 以下の様にCSVファイルを変更してやります。

エクセルの結果は先頭ゼロが表示される様になりました。

上図のセルの値からも分かるように、値が ="0012345" とCSVファイルの値そのものになるので 注意が必要です。これをそのまま印刷しても 0012345 とちゃんと表示されます。

たった1日で即戦力になるExcelの教科書【電子書籍】[ 吉田拳 ] 価格： 1,922円 （2016/09/29 14:06時点 ） 感想：0件

以前の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上のボタンをクリックした結果が以下の図です。

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

■関連記事
⇒VB.NET：SpreadでのEnter時にセルを右移動させる方法
⇒VB.NET：Spreadでフォーカスを持っていない時にセル枠を表示しない設定
⇒VB.NET：Spreadのヘッダカラム及び、通常のカラムの連結
⇒VB.NET：Spreadのシートへの簡単な一覧データの設定について
⇒VB.NET：Spreadのシートのセルにボタン、テキスト、チェックボックスのセルタイプの設定
⇒VB.NET：Spreadのセルのボタンクリック時のイベント処理
⇒VB.NET：Spreadのセルへのデータ設定の描画速度アップ
⇒VB.NET：Spreadのセルのチップウインドウで別に設定された文字列を表示する
⇒VB.NET：Spreadでデータ一覧表示を簡単に行う方法について
⇒VB.NET：Spreadデータ一覧表示での行選択処理(CellDoubleClickイベント , KeyDownイベント)
⇒VB.NET：Spreadデータ一覧表示での行選択処理(CellDoubleClickイベント , KeyDownイベント)その２
⇒VB.NET：Spreadデータ一覧表示での自動ソート実行時に複数のソート条件を指定する方法について
⇒VB.NET：Spreadで異なるSPREADコントロール間でシートデータのコピーを行う方法
⇒VB.NET：SpreadでのCSV出力とCSV入力を使って、異なるSPREADコントロール間でシートデータのコピーを行う方法
⇒VB.NET：SpreadシートのPDF出力と表示を行う方法
⇒VB.NET：2個のSpread間での[Enter]キー、矢印キーなどでフォーカス移動を行う方法
⇒VB.NET：Spreadの数値セルタイプを使ってデータメンテナンスのプログラムに使う方法
⇒VB.NET:Spreadのテキストセルでバイト数入力制限を掛ける方法

Visual Basic 2013逆引き大全 555の極意【電子書籍】[ 増田智明 ] 価格： 2,527円 （2016/09/29 14:32時点 ） 感想：0件

標準コントロールのコンボボックス(ComboBox)ですが、このコントロールへの設定値は Items で行います。 フォームのデザイナ上でプロパティウインドウの中から設定してもいいのですが、 今回は Items に設定する項目をクラスとして定義し、 それを指定のコンボボックスに設定するクラスを作成してみました。

 Items に設定できるデータ型は Object 型の配列として宣言されていますので、 クラスの値の配列を設定が可能です。

以下のソースでは、全体のクラス名を ClsCombo として宣言し、 コンボの Items に設定されるデータを ComboItem として宣言しています。
このクラスを使用する場合は、 ComboItem で項目値を配列として宣言し、  ClsCombo のコンストラクタに渡す様にします。

■プロパティ

プロパティ名	内容
ComboDivision	選択区分値(数値)を取得
ComboDivString	選択区分値(文字列)を取得
ComboText	選択区分名(Text)を取得

■メソッド

メソッド名	引数	内容
SetComboSeletedIndex	区分値(Long)	区分値を選択状態に設定
SetComboSeletedIndex	区分値(文字列)	区分値を選択状態に設定

Public Class ClsCombo ''' <summary>コンボボックスのItemsに設定されるクラス</summary> Public Class ComboItem Public Text As String Public Number As Long Public NumberStr As String 'ComboBoxには、ToString()メソッドの内容が表示される Public Overrides Function ToString() As String Return Text End Function 'コンストラクタ(区分値が数値) Public Sub New(ByVal setText As String, ByVal setNumber As Long) Text = setText Number = setNumber End Sub 'コンストラクタ(区分値が文字列) Public Sub New(ByVal setText As String, ByVal setNumber As String) Text = setText NumberStr = setNumber End Sub End Class 'コンボボックス退避 Private _Combo As ComboBox ''' <summary>コンストラクタ</summary> ''' <param name="Combo">コンボボックス</param> ''' <param name="ComboItems">ComboItemクラスの配列</param> Sub New(ByRef Combo As ComboBox, ByVal ComboItems() As ComboItem) Me._Combo = Combo With _Combo .DropDownStyle = ComboBoxStyle.DropDownList .Items.Clear() .Items.AddRange(ComboItems) .SelectedIndex = -1 .Font = New Font("ＭＳ ゴシック", 12) End With End Sub ''' <summary>コンボボックスの選択区分値(Number)を取得</summary> Public ReadOnly Property ComboDivision As Long Get '戻り値初期化 ComboDivision = -1 If Me._Combo.SelectedIndex >= 0 Then '項目のNumberを返す ComboDivision = DirectCast(Me._Combo.SelectedItem, ComboItem).Number End If End Get End Property ''' <summary>コンボボックスの選択区分値(String)を取得</summary> Public ReadOnly Property ComboDivString As String Get '戻り値初期化 ComboDivString = "" If Me._Combo.SelectedIndex >= 0 Then '項目のNumberStrを返す ComboDivString = DirectCast(Me._Combo.SelectedItem, ComboItem).NumberStr End If End Get End Property ''' <summary>コンボボックスの選択区分名(Text)を取得</summary> ''' <returns>区分名(Text)</returns> Public ReadOnly Property ComboText As String Get '戻り値初期化 ComboText = "" If Me._Combo.SelectedIndex >= 0 Then '項目のStringを返す ComboText = DirectCast(Me._Combo.SelectedItem, ComboItem).Text End If End Get End Property ''' <summary>指定された区分値を選択状態に設定</summary> ''' <param name="number">区分値(Long)</param> Public Sub SetComboSeletedIndex(ByVal number As Long) With Me._Combo 'コンボに設定済Items分処理する For i As Integer = 0 To .Items.Count - 1 If number = DirectCast(.Items(i), ComboItem).Number Then '指定の値がコンボのNumberと等しい場合、選択済み設定 .SelectedIndex = i Exit For End If Next End With End Sub ''' <summary>指定された区分値を選択状態に設定</summary> ''' <param name="numberStr">区分値(String)</param> Public Sub SetComboSeletedIndex(ByVal numberStr As String) With Me._Combo 'コンボに設定済Items分処理する For i As Integer = 0 To .Items.Count - 1 If numberStr = DirectCast(.Items(i), ComboItem).NumberStr Then '指定の値がコンボのNumberStrと等しい場合、選択済み設定 .SelectedIndex = i Exit For End If Next End With End Sub End Class
このクラスを使う例として以下のソースを示します。
Public Class Form1 'コンボボックス１の為のクラスと設定値 Private Cbo1 As ClsCombo Private Cbo1Items() As ClsCombo.ComboItem = _ {New ClsCombo.ComboItem("0:無効", 0), New ClsCombo.ComboItem("1:有効", 1)} 'コンボボックス２の為のクラスと設定値 Private Cbo2 As ClsCombo Private Cbo2Items() As ClsCombo.ComboItem = _ {New ClsCombo.ComboItem("区分１", "001"), New ClsCombo.ComboItem("区分２", "002"), _ New ClsCombo.ComboItem("区分３", "003")} 'フォームロード時イベント処理 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Cbo1 = New ClsCombo(Me.ComboBox1, Cbo1Items) Cbo1.SetComboSeletedIndex(0) Cbo2 = New ClsCombo(Me.ComboBox2, Cbo2Items) Cbo2.SetComboSeletedIndex("002") End Sub 'ボタンクリック時イベント処理 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim str As String = "" str &= "コンボ1: Division = " & Cbo1.ComboDivision & " , Text = " & Cbo1.ComboText & vbCrLf str &= "コンボ2: Division = " & Cbo2.ComboDivString & " , Text = " & Cbo2.ComboText MsgBox(str, MsgBoxStyle.OkOnly, "コンボテスト") End Sub End Class
プライベート変数で今回のクラスの変数と、コンボに設定する項目値の配列を宣言します。 その後、フォームロード時イベントでクラス変数の生成を行い、初期選択値を設定します。

ボタンクリック時イベントで選択されている区分値とコンボボックスに表示されているテキスト文字列を クラスより取得し表示しています。

Visual Basic 2013逆引き大全 555の極意【電子書籍】[ 増田智明 ] 価格： 2,527円 （2016/09/29 14:32時点 ） 感想：0件

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

最後の「漢字の泣き別れ」処理関数ですが、 上の例で既入力が"あいうえ1"でさらに漢字で"お"と入力した場合は、 2行目の str は"あいうえ1・"となり、 最後の文字が漢字の中点になってしまいます。

結果 GetByteCount すると1バイト増えて  nLen よりも必ず大きい値になります。 それでこの場合に、最初にバイト配列化した長さを nLen-1 にして文字列化することで "あいうえ1"となります。

■関連記事
.NET開発テクノロジ入門2016年版Visual Studio 2015対応版
⇒VB.NET：SpreadでのEnter時にセルを右移動させる方法
⇒VB.NET：Spreadでフォーカスを持っていない時にセル枠を表示しない設定
⇒VB.NET：Spreadのヘッダカラム及び、通常のカラムの連結
⇒VB.NET：Spreadのシートへの簡単な一覧データの設定について
⇒VB.NET：Spreadのシートのセルにボタン、テキスト、チェックボックスのセルタイプの設定
⇒VB.NET：Spreadのセルのボタンクリック時のイベント処理
⇒VB.NET：Spreadのセルへのデータ設定の描画速度アップ
⇒VB.NET：Spreadのセルのチップウインドウで別に設定された文字列を表示する
⇒VB.NET：Spreadでデータ一覧表示を簡単に行う方法について
⇒VB.NET：Spreadデータ一覧表示での行選択処理(CellDoubleClickイベント , KeyDownイベント)
⇒VB.NET：Spreadデータ一覧表示での行選択処理(CellDoubleClickイベント , KeyDownイベント)その２
⇒VB.NET：Spreadデータ一覧表示での自動ソート実行時に複数のソート条件を指定する方法について
⇒VB.NET：Spreadで異なるSPREADコントロール間でシートデータのコピーを行う方法
⇒VB.NET：SpreadでのCSV出力とCSV入力を使って、異なるSPREADコントロール間でシートデータのコピーを行う方法
⇒VB.NET：SpreadシートのPDF出力と表示を行う方法
⇒VB.NET：2個のSpread間での[Enter]キー、矢印キーなどでフォーカス移動を行う方法
⇒VB.NET：Spreadの数値セルタイプを使ってデータメンテナンスのプログラムに使う方法
⇒VB.NET:Spreadのチェックボックス型セルにはCheckChangedイベントを、ボタン型セルにはClickイベントの発生方法

今回の記事は、パソコンの画面上で、タスクバーを除いた部分でどの位置に表示するかを制御する簡単なTIPSです。
通常パソコンのディスプレイは１台なのでプライマリディスプレイと言えば表示画面そのものですが、 System.Windows.Forms.Screenクラスのプロパティ PrimaryScreen から画面の情報を取得できます。
 PrimaryScreen プロパティはSystem.Windows.Forms.Screenクラスで以下の様なプロパティを持っています。

プロパティ	内容
BitsPerPixel	1 ピクセルのデータに関連付けられているメモリのビット数を取得
Bounds	ディスプレイの範囲を取得
WorkingArea	ディスプレイの作業領域を取得。作業領域とは、ディスプレイのデスクトップ領域からタスクバー、ドッキングされたウィンドウ、およびドッキングされたツール バーを除いた部分

画面の表示は以下の様になります。
以下の今回のソースを示しますが、画面中央、左上、右上、左下、右下のラジオボタンをクリックし ボタンをクリックすると、指定位置にフォームが移動します。
タスクバーの領域を除いた部分での画面位置ですので、 WorkingArea プロパティを使います。
Public Class Form1 'ボタンクリックでフォーム位置移動 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim Pos As EnmFrmPosition = EnmFrmPosition.None If Me.RadioButton1.Checked Then Pos = EnmFrmPosition.Center End If If Me.RadioButton2.Checked Then Pos = EnmFrmPosition.TopLeft End If If Me.RadioButton3.Checked Then Pos = EnmFrmPosition.TopRight End If If Me.RadioButton4.Checked Then Pos = EnmFrmPosition.BottomLeft End If If Me.RadioButton5.Checked Then Pos = EnmFrmPosition.BottomRight ' End If SetFormPosition(Me, Pos) End Sub End Class Module TestPos 'フォーム位置宣言 Public Enum EnmFrmPosition None = 0 '無し Center '中央 TopRight '右上 TopLeft '左上 BottomRight '右下 BottomLeft '左下 End Enum 'フォーム位置設定 Public Sub SetFormPosition(ByVal Frm As Form, ByVal EnmWinPos As EnmFrmPosition) With System.Windows.Forms.Screen.PrimaryScreen.WorkingArea Select Case EnmWinPos Case EnmFrmPosition.Center '中央 Frm.Left = CInt(.Width / 2) - CInt(Frm.Width / 2) + .Left Frm.Top = CInt(.Height / 2) - CInt(Frm.Height / 2) + .Top Case EnmFrmPosition.TopRight '右上 Frm.Left = .Width - Frm.Width Frm.Top = 0 Case EnmFrmPosition.TopLeft '左上 Frm.Left = 0 Frm.Top = 0 Case EnmFrmPosition.BottomRight '右下 Frm.Left = .Width - Frm.Width Frm.Top = .Height - Frm.Height Case EnmFrmPosition.BottomLeft '左下 Frm.Left = 0 Frm.Top = .Height - Frm.Height End Select End With End Sub End Module
この例の関数ですが、仕事で普通に使う場合は、画面中央に表示する場合がほとんどでした。
基礎Visual Basic 2015 基礎シリーズ

マスタのメンテテンス用プログラムとしては、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」をクリックした時の表示です。

■SPREADをコントロールを何個も設置

SPREADの表形式が気に入らないのであれば、テキストボックスを何個も設置する様に1セルしかないSPREADを個別に設置し、 それぞれのSPREADのセルにCellTypeを設定してやれば テキストボックス的に使えます。
この方法だと、SPREADコントロールを何個も設置するのでプログラムの動きが重くなるかも しれませんが、意外と使える方法だと思いますが、如何でしょうか？

■関連記事
⇒VB.NET：SpreadでのEnter時にセルを右移動させる方法
⇒VB.NET：Spreadでフォーカスを持っていない時にセル枠を表示しない設定
⇒VB.NET：Spreadのヘッダカラム及び、通常のカラムの連結
⇒VB.NET：Spreadのシートへの簡単な一覧データの設定について
⇒VB.NET：Spreadのシートのセルにボタン、テキスト、チェックボックスのセルタイプの設定
⇒VB.NET：Spreadのセルのボタンクリック時のイベント処理
⇒VB.NET：Spreadのセルへのデータ設定の描画速度アップ
⇒VB.NET：Spreadのセルのチップウインドウで別に設定された文字列を表示する
⇒VB.NET：Spreadでデータ一覧表示を簡単に行う方法について
⇒VB.NET：Spreadデータ一覧表示での行選択処理(CellDoubleClickイベント , KeyDownイベント)
⇒VB.NET：Spreadデータ一覧表示での行選択処理(CellDoubleClickイベント , KeyDownイベント)その２
⇒VB.NET：Spreadデータ一覧表示での自動ソート実行時に複数のソート条件を指定する方法について
⇒VB.NET：Spreadで異なるSPREADコントロール間でシートデータのコピーを行う方法
⇒VB.NET：SpreadでのCSV出力とCSV入力を使って、異なるSPREADコントロール間でシートデータのコピーを行う方法
⇒VB.NET：SpreadシートのPDF出力と表示を行う方法
⇒VB.NET：2個のSpread間での[Enter]キー、矢印キーなどでフォーカス移動を行う方法
⇒VB.NET:Spreadのテキストセルでバイト数入力制限を掛ける方法
⇒VB.NET:Spreadのチェックボックス型セルにはCheckChangedイベントを、ボタン型セルにはClickイベントの発生方法

以前のWindowsXPでは、クイック起動バーに「デスクトップの表示」アイコンが在ったのですが、 Windows7では無いのかなと思い、今まで探してもみませんでした。

WindowsXPでは、クイック起動バーに「デスクトップの表示」アイコンが無い場合には、 以下のフォルダの中にある、「デスクトップの表示」アイコンをコピーして貼り付けたりしていました。
C:\Documents and Settings\Default User\Application Data\Microsoft\Internet Explorer\Quick Launch

Windows7では画面の右隅の小さいボタンの様なものが「デスクトップの表示」アイコンに該当します。 下の図の赤い枠で囲った部分です。

この部分をクリックすれば、開いているウインドウは全て最小化されて、デスクトップ画面が表示されます。 今まで知らずにいたことが恥ずかしい限りです。

VB.NETの ComboBox には枠線(ボーダー)を表示するプロパティが標準ではありません。
 ComboBox の FlatStyle を Flat に設定すると、 枠線が白色になりよく見えなくなります。 そこで、 ComboBox の拡張クラスを、 枠線の色、枠線の種類、枠線の幅を追加のプロパティとして作成しました。 クラス名は名前は ComboBoxFrm とします。

以下に ComboBoxFrm クラスのソースを示します。

ウインドウメッセージの処理の中で、 WM_PAINT のタイミングで コンボボックスコントロールの枠を描画しています。
描画にはControlPaintクラスの静的メンバとして用意されている DrawBorder メソッドを使います。
尚、枠線の幅は大きすぎても変な表示になりますので、３までに抑えてあります。

Imports System.ComponentModel Imports System.Windows.Forms Public Class ComboBoxFrm Inherits System.Windows.Forms.ComboBox Private Const WM_PAINT As Integer = &HF Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) MyBase.WndProc(m) Select Case m.Msg Case WM_PAINT Call DrawRectangle() End Select End Sub Private Sub DrawRectangle() Try 'ボタンスタイルコントロールの輪郭の描画(線の幅指定有り) ControlPaint.DrawBorder(Me.CreateGraphics(), Me.ClientRectangle, _ Me.BorderColor, Me.BorderWidth, Me.BorderStyle, _ Me.BorderColor, Me.BorderWidth, Me.BorderStyle, _ Me.BorderColor, Me.BorderWidth, Me.BorderStyle, _ Me.BorderColor, Me.BorderWidth, Me.BorderStyle) Catch End Try End Sub Private _BorderColor As Color = System.Drawing.SystemColors.ControlText <Category("表示")> Public Property BorderColor() As Color Get Return Me._BorderColor End Get Set(ByVal value As Color) Me._BorderColor = value End Set End Property Private _BorderStyle As ButtonBorderStyle = ButtonBorderStyle.None <Category("表示")> Public Property BorderStyle() As ButtonBorderStyle Get Return Me._BorderStyle End Get Set(ByVal value As ButtonBorderStyle) Me._BorderStyle = value End Set End Property Private _BorderWidth As Integer = 1 <Category("表示")> Public Property BorderWidth() As Integer Get Return Me._BorderWidth End Get Set(ByVal value As Integer) If value < 0 Then value = 1 If value > 3 Then value = 3 Me._BorderWidth = value End Set End Property End Class このクラスをフォームに張り付けた時のプロパティのウインドウは以下の様な表示になります。
このクラスをフォームに張り付けたプログラムを実行すると以下の様な表示になります。
世界でいちばん簡単なVisualBasicのe本[最新第4版] VisualBasicの基本と考え方がわかる本
基礎Visual Basic 2015 基礎シリーズ

最近のニュースで昨年金沢まで開通した北陸新幹線の影響で、福井県への観光客が増えていて、 福井市の一乗谷朝倉遺跡、勝山市の県立恐竜博物館、坂井市の東尋坊、永平寺のでは前年比１０％～５０％増だそうです。
今まで知名度の低かった福井県も、北陸新幹線による良い効果があったようで、 多くのお客さんが福井を訪れて頂けることはうれしい限りです。

さて、観光に来られた方が福井のお店でどこがいいのか、美味しいのか、迷うのではないでしょうか。 そこで福井の中で私が美味しいと思う「和菓子屋」さん4店舗ほど紹介したいと思います。

■金花堂はや川

　http://habutaekurumi.com/

・お店：
　　福井駅高架下プリズム店
　　（福井駅から帰る時はここで買えますが、非常に混んでいます）
　　勝山大仏店の2カ所
　　（国道157号の勝山大仏入口の「旭町」交差点角）

・お勧め：
　　「羽二重くるみ」これが有名です
　　「笹寿司」（菓子ではありませんが、これもおいしいです）

■親玉菓舗

　親玉菓舗facebook

・お店：
　　福井市順化2－20－15（福井の歓楽街・片町の中心通にあります）

・お勧め：
　　「碌寶焼（ろっぽうやき）」これが有名です。

■甘福

　甘福の地図

・お店：
　　福井市二の宮5丁目11-20（えちせん鉄道・八ツ島駅すぐ近く）

・お勧め：
　　「あべかわ餅」きな粉の量が非常に多いので開封時は気をつけてください。
　　（作っている量が少ないので前もって電話で連絡してみてください）

■八田屋

　越前おおの観光ガイド・八田屋

・お店：
　　福井県大野市元町8-4
　　（四番通り：七間朝市すぐ近く、大野市観光の折に立ち寄ってみては）

・お勧め：
　　「カステラ」「おやき」「でっちようかん」「越の奥」
　　和菓子一般ほぼすべて美味しいです。
　　春は「おやき」夏は「くず餅」秋は「クルミようかん」冬は「でっちようかん」と季節ごとにいろいろあります。


私の独断と偏見で選びましたので、お口に合わない場合はすみません。 和菓子は賞味期限が３～５日、ものによってはその１日のみのものもありますので気を付けて下さい。