2009年07月13日


LboxGrid : チェックボックス列の使用

セルの編集の不可、可能の設定は行毎、cell 毎に可能です。

Me.LboxGrid1.Rows(0).ReadOnly = True
Me.LboxGrid1.Item(2, 2).ReadOnly = False
( これらの場合は、行を追加してからセットします )

' *****************************************************
' 初期化
' *****************************************************
Private Sub Form1_Load(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles MyBase.Load

	' まず全てのカラムを編者可に変更
	Me.LboxGrid1.ReadOnly = False

	Me.LboxGrid1.AddColumn("CHECK", "削除", lightbox.LboxColumnType.LboxColumnType_CheckBox)
	Me.LboxGrid1.AddColumn("CODE", "社員コード")
	Me.LboxGrid1.AddColumn("NAME", "氏名")
	Me.LboxGrid1.AddColumn("KANA", "フリガナ")

	' 列作成後、必要無いカラムを編集不可にする
	Me.LboxGrid1.Columns(1).ReadOnly = True
	Me.LboxGrid1.Columns(2).ReadOnly = True
	Me.LboxGrid1.Columns(3).ReadOnly = True

	Try
		' SHIFT_JIS 
		Dim ReadFile As StreamReader = _
		 New StreamReader("C:\TMP\社員マスタ.csv", Encoding.GetEncoding(932))

		' SHIFT_JIS で読み込み
		Dim LineText As String
		Dim aData As String()
		Dim sDelimiter As String = ","
		Do While Not ReadFile.EndOfStream
			' 次行読み込み
			LineText = ReadFile.ReadLine()
			aData = LineText.Split(sDelimiter)

			LboxGrid1.AddRow()
			LboxGrid1.SetColumnText("CODE", aData(0))
			LboxGrid1.SetColumnText("NAME", aData(1))
			LboxGrid1.SetColumnText("KANA", aData(2))

		Loop

		' 終了処理
		ReadFile.Close()
		ReadFile.Dispose()

		' ex が必要無ければ e As Exception を書かなくて良い
	Catch ex As Exception
		Console.WriteLine(ex.Message)
	End Try


End Sub

' *****************************************************
' チェクボックス状態の取得
' *****************************************************
Private Sub チェックボックス状態サーチ_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles チェックボックス状態サーチ.Click

	' サーチインデックス初期化
	Me.LboxGrid1.SetCurrentRow()

	' 行がなくなるまでループ
	Do While (Me.LboxGrid1.FindNextRow())

		If CType(Me.LboxGrid1.GetColumnValue("CHECK"), Boolean) Then
			MessageBox.Show(Me.LboxGrid1.GetColumnText("NAME"))

		End If

	Loop


End Sub



posted by at 2009-07-13 16:05 | VB.NET LboxGrid | このブログの読者になる | 更新情報をチェックする
Seesaa の各ページの表示について
Seesaa の 記事がたまに全く表示されない場合があります。その場合は、設定> 詳細設定> ブログ設定 で 最新の情報に更新の『実行ボタン』で記事やアーカイブが最新にビルドされます。

Seesaa のページで、アーカイブとタグページは要注意です。タグページはコンテンツが全く無い状態になりますし、アーカイブページも歯抜けページはコンテンツが存在しないのにページが表示されてしまいます。

また、カテゴリページもそういう意味では完全ではありません。『カテゴリID-番号』というフォーマットで表示されるページですが、実際存在するより大きな番号でも表示されてしまいます。

※ インデックスページのみ、実際の記事数を超えたページを指定しても最後のページが表示されるようです

対処としては、このようなヘルプ的な情報を固定でページの最後に表示するようにするといいでしょう。具体的には、メインの記事コンテンツの下に『自由形式』を追加し、アーカイブとカテゴリページでのみ表示するように設定し、コンテンツを用意するといいと思います。


※ エキスパートモードで表示しています

アーカイブとカテゴリページはこのように簡単に設定できますが、タグページは HTML 設定を直接変更して、以下の『タグページでのみ表示される内容』の記述方法で設定する必要があります

<% if:page_name eq 'archive' -%>
アーカイブページでのみ表示される内容
<% /if %>

<% if:page_name eq 'category' -%>
カテゴリページでのみ表示される内容
<% /if %>

<% if:page_name eq 'tag' -%>
タグページでのみ表示される内容
<% /if %>
この記述は、以下の場所で使用します