VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2002/10/26(Sat) 12:05 |
| 投稿者 | ： A221 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: リストビューの反転表示について |
えーと。リストのつもりで答えてました。リストビューですね。
リストビューを１つとコマンドを２つ貼ってテストしてみてください。
Option Explicit
Private Chead As ColumnHeader
Private Lstitem As ListItem
Private Lstsubitem As ListSubItem
Private Counter As Long
Private Sub Command1_Click()
Counter = Counter + 1
Set Lstitem = ListView1.ListItems.Add(, , "項目" & Counter)
Set Lstsubitem = ListView1.ListItems(Counter).ListSubItems.Add(, , "内容")
ListView1.View = lvwReport
End Sub
Private Sub Command2_Click()
ListView1.SelectedItem.Selected = False
End Sub
Private Sub Form_Load()
Set Chead = ListView1.ColumnHeaders.Add(, , "Head1", ListView1.Width \ 5)
Set Chead = ListView1.ColumnHeaders.Add(, , "Head2", ListView1.Width \ 5)
Set Chead = ListView1.ColumnHeaders.Add(, , "Head3", ListView1.Width \ 5)
ListView1.View = lvwReport
End Sub
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）