2017年5月26日金曜日

VB.NETでDataGridViewを使用する時 必ず行っていること

DataGridViewとは?


DataGridViewコントロールはさまざまな種類のデータ ソースのデータを表形式で表示したり編集したりできる
又、データ ソースをバインドせずに動作させることもできる
拡張性に優れていてカスタマイズに柔軟なコントロールである


DataGridViewはエンドユーザーが形状等を操作できる


エンドユーザーがDataGridViewを装備したプログラムを実行した場合、表の幅や高さ、並び替え等の形状等の変更が可能である
時には便利だがプログラムの仕様上、そのような動作を制限しる必要が出てくる

ここでは、エンドユーザーによる操作の制限といくつかの機能、カスタマイズの一部を紹介します


ヘッダーの幅・高さの変更禁止する


Me.DataGridView.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.DataGridView.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing


セルの幅や高さを変更を禁止する


Me.DataGridView.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.DataGridView.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing


並び替え(ソート)を禁止する


For Each c As DataGridViewColumn In Me.DataGridView.Columns
    c.SortMode = DataGridViewColumnSortMode.NotSortable
Next c


複数行の選択を禁止する


Me.DataGridView.MultiSelect = False


列ヘッダーの文字列設定


Me.DataGridView.Columns(0).HeaderText = "コード"
Me.DataGridView.Columns(1).HeaderText = "名称"


列ヘッダーのスタイル設定


Me.DataGridView.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
Me.DataGridView.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter


行ヘッダー幅設定


Me.DataGridView.RowHeadersWidth = 20


列幅設定


Me.DataGridView.Columns(0).Width = 40
Me.DataGridView.Columns(1).Width = 140


セルの書式設定


Me.DataGridView.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
Me.DataGridView.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight


データソースの列名割り付け


Me.DataGridView.Columns(0).DataPropertyName = "CODE"
Me.DataGridView.Columns(1).DataPropertyName = "NAME"


DataGridViewにテーブルを表示


Dim ad As New SqlClient.SqlDataAdapter
Dim ds As New DataSet
Dim sql As String

sql = ""
sql &= "SELECT"
Sql &= "        列名1,"
sql &= "        列名2"
sql &= "    FROM"
sql &= "        テーブル名"
ad = New SqlClient.SqlDataAdapter(sql, cnSring)
ad.Fill(ds)
Me.DataGridView.DataSource = ds.Tables(0)
ds.Dispose()
ad.Dispose()


DataGridViewでEnterキー


DataGridViewでEnterキーを押したらTabキーと同様の動作、次のフィールドにフォーカスを移す方法です
クラスを作成して、ビルド、又はリイルドしたらルールボックスにカスタムDataGridViewとして現れ、通常のDataGridViewのように使用できます
Public Class MyDataGridView
    Inherits DataGridView

    Protected Overrides Function ProcessDialogKey(ByVal keyData As Keys) As Boolean
        If (keyData And Keys.KeyCode) = Keys.Enter Then
            Return Me.ProcessTabKey(keyData)
        Else
            Return MyBase.ProcessDialogKey(keyData)
        End If

    End Function

    Protected Overrides Function ProcessDataGridViewKey(ByVal e As KeyEventArgs) As Boolean
        If e.KeyCode = Keys.Enter Then
            Return Me.ProcessTabKey(e.KeyCode)
        Else
            Return MyBase.ProcessDataGridViewKey(e)
        End If
    End Function
End Class
ツールボックスに「MyDataGridView」コントロールが表示される

2017年5月24日水曜日

ベイファーム笠岡 広大な花畑まるで花のジュータン

ベイファーム笠岡の紹介


毎年、四季を通して様々な花で覆いつくされ、その広大な花畑の中をを散策できます
敷地内には道の駅が併設されており、地元でとれた新鮮な魚介や野菜を販売しています
レストランやファストフード店もあり食事もできます

私が行った時は、ポピーが満開を迎えた時でした



ベイファーム笠岡の花畑を散策中に開花前のつぼみを発見


写真、ボケてます すみません


ベイファーム笠岡の四季の花


春 ポピー

夏 ひまわり

秋 コスモス

冬 菜の花




ベイファーム笠岡のレストラン「四季彩」


笠岡の海の幸、山の幸を中心としたメニューをリーズナブルに提供


ベイファーム笠岡の場所


岡山県笠岡市カブト南町245-5
電話 0865-67-6755
FAX 0865-67-6711

☞ベイファーム笠岡の公式サイトはこちら

2017年5月23日火曜日

焼肉「玉貴」岡山市南区古新田の焼き肉屋 コスパ最高 

以前から気になっていた焼肉「玉貴」


岡山市南区古新田2号バイパスの上り車線側にある焼肉屋さん、TSUTAYAの対面、なんせ幹線道路に面した店舗なので嫌でも目に付く
交通量の多い道路、しかも、交差点付近でアプローチしにくいにもかかわらず
とにかく、入り難いし出にくい場所
日中でも夜でも、いつでも駐車場がいっぱいで、以前から気になっていた
安い?美味い?ボリューム?等、何かないと何時でも大入りはないはず

数年間、気にするだけだったが、行って来た

帰るときには、何時でもお客さんが「いっぱい」なのは当然と納得した

セレブで、何時も高級でオシャレなところに行かれている方には不向きかな?

他店と同様に「とりあえず」の注文


追加注文する気、満々で、「とりあえず」の最初の注文

テーブルに「お肉さん」がなればられて固まった
私の知っている範囲で、他焼肉屋の1人前の1.5倍ほどの量(@_@)

見た目は美しい肉、半信半疑で焼きはじめた

カルビ、ハラミ、大腸、旨い
たれも、濃いけど美味い

注文の品を半分程、胃袋に収めた時・・・・・??
「食いきれる???」
追加する気「まんまん」だった気分が、衰退モード
他店と比較して、やっぱり多い

なんとか完食!!
追加していたら「おじさん」のお腹はデジャブー状態、間違いなし

美味しくお腹いっぱい、体中が肉って気分です

何時でも大入りの原因、納得しまくりでした

焼肉「玉貴」の感想


安くてうまい、コスパ最高
とにかく美味くて、お腹いっぱいになれる

他店と同様に注文したらボリュームに後悔するかも?

カップルは勿論、ご家族でのご食事等、お財布に優しいと思います

焼肉「玉貴」の在りか案内


岡山県岡山市南区古新田1207-4
TEL 086-282-4961



焼肉「玉貴」の公式サイト☟
http://www.yakinikutamaki.info/#top/