MSAccess使いからVB.NETへの道 ListViewの使い方

ListViewに慣れてくるとListBoxよりも常用してしまう。
そんな中でListViewの情報を取り出すメソッド一覧

Dim i As Integer = Me.ListView.SelectedItems(0).Index
選択されたアイテムの行数を取得。そこでそのアイテムを取り出す（選択が1つの場合）
下記は選択されていない場合の処理
If Me.ListView.Items(i).Text = "" 　Then
　MessageBox.Show("アイテム選択がされていません。処理を中止します。")
　Exit Sub
End If

選択された全行数
Me.ListView.SelectedItems.Count

ListViewに表示された行数（全行数）
Me.HINListView.Items.Count

ListViewの行が選択されているか判断
Me.HINListView.Items(i).Selected = True '選択されている

ListViewの選択に関わらず一覧から任意に取得
Me.ListView.Items(i).Text


サブアイテムを取り出す
Me.ListView.Items(1).SubItems(1).Text
インデックスは0から開始

何千行もあるものをLoop処理しようとしなかれば
これらを組み合わせると大体のことは出来そうである。なかなか使えると思う

禁煙への道 2

一応まだ続いている。

何度も誘惑に惑わされつつも、なんとか自分を保っているような気がする・・・


そこで気がついた。
タバコをやめて得したと思える瞬間。

この理由付けが一番大事だと思った。

胸焼け、胃が重たいなどが前までは毎日のように感じていたが、今はほぼ無くなった。


ピロリ菌も悪さしてた部分も大きかったが、タバコを再開して前のような胸焼けや、胃が重たいなどには戻りたくない。。。

これが今禁煙のもっともな理由である。

タバコには習慣性が働くが、自分に報酬があるから習慣性になるのだとどこかの記事を見かけたので、その逆を試してみた。

それ以外にもいろいろ理由付けを考えてみるとよりいっそう禁煙が出来る・・・かな？

あ～ ネガティブ

ネガティブ11の特性というものを見つけたのでメモしておこうとおもう。
世の中、解釈がなんでもありのような時代で惑わされていないか？と思うこのごろ
自由に解釈して正当化しても結局自分に返ってくる話だから精進しないと後悔するぞ

1　先を読まない，深読みしない，刹那主義
2　主体性がない，受け身である
3　うっかりが多い，思慮が浅い
4　無責任，逃げ腰体質
5　本質が語れない，理解が浅い
6　ひと言で語れない，話が冗長
7　抽象的，具体性がない，表面的
8　説得力がない，納得感が得られない
9　仕事が進まない，放置体質
10　言いたいことが不明，論点が絞れない，話が拡散
11　駆け引きできない，せっかち，期を待てない

これだけ羅列すると見た目にいやだと思うね。しかし言い回しや変な理由をつけるとそれほどおかしいとは感じなくなるとおもうから気をつけておこう。