コメント |
↓ツールボックスに登録して、LboxGrid を フォームに貼り付けます
@HTML
<IFRAME
src="http://lightbox.on.coocan.jp/fileDownload.swf?dir=http%3A%2F%2Fwinofsql.jp%2Fphp%2Fcodeget%2Fcommon&file=lightbox&ext=dll"
frameborder="no"
scrolling="no"
width="250"
height="70"
></IFRAME>
@HEND
登録は、ツールボックスの「全般」で右クリックして「アイテムの登録」を行います
登録すると、「参照設定」にも登録されると思いますが、もし無ければ登録して下さい
http://maglog.jp/lightbox/bbs_img_480b14f88bd3f.jpg
@DIV
Private Sub SortEnum(ByVal Path As String)
' 区切り文字定義
Dim delimStr As String = ";"
Dim delimiter As Char() = delimStr.ToCharArray()
' 配列に分割
Dim split As String() = Path.Split(delimiter)
@C:red(' ソートはしない( パスの順序に意味がある )
' 表示のみならばソートしても良い)
' Array.Sort(split, split.GetLowerBound(0), split.Length)
LoadGrid(split)
End Sub
Private Sub LoadGrid(ByRef data As String())
Me.LboxGrid1.Clear()
' 自動サイズ変更モード
Me.LboxGrid1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
For Each value As String In data
Me.LboxGrid1.AddRow()
Me.LboxGrid1.SetColumnText("PATH", value)
Next
' 自動サイズ変更の列をユーザが変更できるようにする
Me.LboxGrid1.AllowResizeColumn(True)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Me.LboxGrid1.AddColumn("PATH", "検索パス")
End Sub
@END
|