VBNet - Форум - Новое сообщение без темы

Вопрос: Новое сообщение без темы Добавлено: 08.08.02 22:47

Автор вопроса: Rebel | Web-сайт: rebel.bos.ru

LIS, я ето прекрасно знаю, но вот код который выдает index out of bounds не последнем проходе: лист с тремя колонками,,,,,,
Private Sub Command1_Click()
    ListView1.ListItems.Clear
    For i = 1 To 10
        Set itm = ListView1.ListItems.Add(, , "text")
        itm.SubItems(1) = "text again"
        itm.SubItems(2) = "more text"
    Next i
End Sub
Private Sub Command2_Click()
    ListView1.SelectedItem.ForeColor = RGB(500, 0, 0)

    For j = 1 To ListView1.ColumnHeaders.Count
        ListView1.SelectedItem.ListSubItems(j).ForeColor = RGB(50, 0, 750)
    Next j
End Sub

Ответить

Ответы Всего ответов: 10

Номер ответа: 1
Автор ответа:

MAGNUS

Вопросов: 12
Ответов: 430

Профиль | | #1

Добавлено: 08.08.02 20:02

Scrollbar perematiwat mojno ustanawliwaja ego swojstwo VertScrollBar.Value a Esli tebe nujno poluchit element iz ListView to wot tak: Set ListView1.SelectedItem = ListView1.ListItems.Item(ListView1.ListItems.Count) Eto budet poslednij element Po powodu bacjgraunda...,nikogda ne interesowalsa, a wot dla sformatirowanija strok slujit LabelWrap. Ili mojesh rubat wrushnuju , wstroennoj konstantoj vbCrLf

Ответить

Номер ответа: 2
Автор ответа:

Rebel

Вопросов: 32
Ответов: 50

Web-сайт: rebel.bos.ru
Профиль | | #2

Добавлено: 08.08.02 20:19

работа с простым скроллбаром мне никчему, а set selecteditem - да, и в самом деле выделяет последний элемент, толкл если он не видим (ниже видимой области листвью) - то так и не станет видимым, а просто станет выделенным -- надо чтоб элемент становился выделенным, те переезжл скроллбар на листвью в самый низ. а про LabeWrap - бесполезно хоть true хоть false все равно весь текст в одну строчку а когда к нему VbCrLf приписать то вместо перехода строки получается пара черточек - листвью в виде Report а не иконс.... вот

Ответить

Номер ответа: 3 Автор ответа: Иван Администратор ICQ: 147688925 Вопросов: 24 Ответов: 708	Web-сайт: www.vbnet.ru Профиль \| \| #3	Добавлено: 08.08.02 20:38
	1. есть метод EnsureVisible... попробуй его Me.lvTable.ListItems(номерпоследнегоэлемента).Selected = True Me.lvTable.ListItems(номерпоследнегоэлемента).EnsureVisible Ответить

Номер ответа: 4
Автор ответа:

LIS

Вопросов: 7
Ответов: 256

Профиль | | #4

Добавлено: 08.08.02 21:35

1) Set imtx = clrView.ListItems(clrview.listitems.count)

itmx.EnsureVisible

itmx.Selected = True

2) clrView.ListItems(selRow).ForeColor = RGB(500, 0, 0)

Set itmx = clrView.ListItems(selrow)

itmx.Selected = True

for j=1 to qtyColumns

clrView.SelectedItem.ListSubItems(j).ForeColor = RGB(50, 0, 750)

3) LabelWrap is working for Icon view ONLY !!!

Ответить

Номер ответа: 5
Автор ответа:

Rebel

Вопросов: 32
Ответов: 50

Web-сайт: rebel.bos.ru
Профиль | | #5

Добавлено: 08.08.02 22:07

LIS, здороо на тему 2), толькл есть проблема - Index out of Bounds" в цикле по Subitems на последнем проходе. И еще как всеже поменять не ForeColor а BackColor у строки????? ведь наверняка это тоже возможно, ведь можно же менять backgroundColor у всего листа.......

Ответить

Номер ответа: 6
Автор ответа:

LIS

Вопросов: 7
Ответов: 256

Профиль | | #6

Добавлено: 08.08.02 22:28

do I need to tell you that YOU have to check qty of lines inside viewList before to run any procedures ?

......

Ответить

Номер ответа: 7 Автор ответа: LIS Вопросов: 7 Ответов: 256	Профиль \| \| #7	Добавлено: 08.08.02 22:30
	qtyColumns -1 ,because first column is item , from 1 to ... subItems ... Ответить

Номер ответа: 8
Автор ответа:

Rebel

Вопросов: 32
Ответов: 50

Web-сайт: rebel.bos.ru
Профиль | | #8

Добавлено: 08.08.02 22:47

LIS, я ето прекрасно знаю, но вот код который выдает index out of bounds не последнем проходе: лист с тремя колонками,,,,,,

Private Sub Command1_Click()
    ListView1.ListItems.Clear
    For i = 1 To 10
        Set itm = ListView1.ListItems.Add(, , "text")
        itm.SubItems(1) = "text again"
        itm.SubItems(2) = "more text"
    Next i
End Sub

Private Sub Command2_Click()
    ListView1.SelectedItem.ForeColor = RGB(500, 0, 0)

    For j = 1 To ListView1.ColumnHeaders.Count
        ListView1.SelectedItem.ListSubItems(j).ForeColor = RGB(50, 0, 750)
    Next j
End Sub

Ответить

Номер ответа: 9
Автор ответа:

LIS

Вопросов: 7
Ответов: 256

Профиль | | #9

Добавлено: 08.08.02 23:03

ListView1.ColumnHeaders.Count - 1

Ответить

Номер ответа: 10
Автор ответа:

LIS

Вопросов: 7
Ответов: 256

Профиль | | #10