Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

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

Автор вопроса:  LIS
qtyColumns -1 ,because first column is item , from 1 to ... subItems ...

Ответить

  Ответы Всего ответов: 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)

next

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 Добавлено: 08.08.02 23:09

for i= 1 to listview1.listitems.count

Set itmx = listView1.ListItems(i)

ListView1.SelectedItem.ForeColor = RGB(500, i, 0)

itmx.Selected = True

For j = 1 To ListView1.ColumnHeaders.Count - 1

ListView1.SelectedItem.ListSubItems(j).ForeColor = RGB(500, i, 0)

Next j

next i

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам