Mishel917
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Maximus777 Код: With ListView1.SelectedItem If ListView1.HideColumnHeaders = True Then Caza(1) = .Top - .Height Daza(1) = .Top Else Caza(1) = .Top Daza(1) = .Top + .Height End If End With есть эквивалентом ListView1.ColumnHeaders.Top в его отсутствии. Если заголовка нет, то получаем значение ColumnHeaders.Top, если заголовок есть то получаем значение ListView1.SelectedItem.Top (Top первой опции). Лучше толькл класс, который продлит список ListView1.ColumnHeaders . Add . Clear . Count . Item . Remove до . Top . Height после чего код станет меньше и объектно-ориентированнее. С PNG графикой в окнах сообщений не работал, технологии не знаю. |