Scrolling массива лейблов в пикчербоксе.

[tsaMolotoff]

Здраствуйте!
Возникла такая проблема: при скроллинге массива лейблов в пикчербоксе возникает flickering(не знаю как по русски)
Никто не знает как это избежать?

Код: Выделить всё


Private Sub MoveURLS(Optional XValue = 0, Optional YValue As Integer = 0)
Dim iTmp As Integer
Select Case XValue
Case Is <> 0
   For iTmp = 0 To Label2.Count - 1
        Label2(iTmp).Left = XValue
   Next iTmp
Case Else
   Label2(0).Top = YValue
   For iTmp = 1 To Label2.Count - 1
       Label2(iTmp).Top = Label2(iTmp - 1).Top + Label2(iTmp - 1).Height
   Next iTmp

End Select
End Sub


Изменеие AutoRedraw не помогает.

[Efiop]

tsaMolotoff,

flickering(не знаю как по русски)

ты не русский что ли?
Переводчик говорит, что flickering - мерцание
Но че-то каког-либо мерцания не заметил с 10-ю элементами.
Может примерчик.

[IIIypuk]

Мож я неправильно понял, но.....

Обычно в PictureBox суют второй PictureBox и двигают его, чтоб не двигать все контролы по циклу и т.д. Производительность, опять же, больше.

[tsaMolotoff]

Я не русский , а русско-татарин.
Так сказал, потому что не могу выразить все состояние этого!!!
pic->pic нельзя, т.к. рисунок должен оставаться неподвижным.
Мерцание есть, если контролы на каком либо фоне.
Попробую сделать свой контрол

[IIIypuk]

Ну извини, про рисунок ты ничего не говорил.

[tsaMolotoff]

Никто не подскажет как считать значения left/top UserControl'a внутри него? А то Extend и GetWindowRect не помогают- воротят СТАРОЕ значение контрола(бывшее при запуске проги)

[GSerg]

Да нет, extender.left правильно...

[Twister]

tsaMolotoff
Какая информация находится в лейблах? Просто лучшим решением будет не создавать сто лейблов для ста выводимых информационных значений, а создать всего десять и при псевдо-скроллинге просто менять надписи на лейблах.

[Efiop]

Просто лучшим решением будет не создавать сто лейблов для ста выводимых информационных значений, а создать всего десять и при псевдо-скроллинге просто менять надписи на лейблах.

это наверное будет лучшим решением, если нет никаких но...

[Twister]

Каких но? Этот метод не подойдет только если прокручивать нужно картинку...

[Efiop]

Twister,

Каких но?

...если прокручивать нужно картинку...

Вот только автор почему-то молчит.
tsaMolotoff лучше бы написал для чего ему это нужно, тогда можно было делать выводы, а так мне (нам) не известно, что именно
tsaMolotoff'у нужно.

[Twister]

[offtop]
Efiop
Что значит Откуда: РК?
[/offtop]

[tsaMolotoff]

Это -список ссылок в моем проекте.
Менять надписи я уже делал, но это некрасиво!
Нужен нормальный скроллинг, а не псевдо!
А свойства left/right extender'a не меняются, если перемещать userControl любыми методами, как же узнать их положение???
Если это будет известно - проблема решена:
1. ПУСТОЙ UC - В методе Paint рисует на Parente надпись согласно своему положению(через TextOut) - таким образом мерцание может быть устранено, и нужен будет только 1 контрол.

ЗЫ Если кого то интересует, то все можно узнать на http://www.tsa-molotoff.jino-net.ru

[Efiop]

tsaMolotoff, максимум сколько записей необходимо тебе скролить?
Возможно тебе подойдет ListView. Там и фоновую картинку можно вставить, скролить и картинки(иконки) в записи тоже всавляются, так что возможно он те подойдет.

[Andrey Fedorov]

1. А нафига вообще Label-ы - просто рисовать на PictureBox что ли нельзя или дюже сложно?
2. Посмотри описание функции LockWindowUpdate

[tsaMolotoff]

To Andrey Fedorov:
Вот Ёменно !

Не нужны лабелы, а надо, как я писал выше, нормальные коорды юзерконтрола! Если буду знать, сразу сделаю все нормально - с помощью печати на девайсе окна-хозяина(просто будут меняться координаты печати).

[tsaMolotoff]

Efiop
Лист Вью нету апишного ! Тем более уже и без сабклассинга у меня проект сильно нагружен, не хочу чтобы вылетало.

[Efiop]

tsaMolotoff а че mscom твой проект сильно нагрузит?
Не хочешь лишние компоненты таскать?
Какие проблемы, есть, пользуй.
А вообще твой проект, решать тебе.

[Twister]

Efiop
Лист Вью нету апишного !

А чем отличается АПИшный от НЕАПИшного?

[Antonariy]

To Andrey Fedorov:
Вот Ёменно !

Не нужны лабелы, а надо, как я писал выше, нормальные коорды юзерконтрола! Если буду знать, сразу сделаю все нормально - с помощью печати на девайсе окна-хозяина(просто будут меняться координаты печати).

Дык в чем проблема-то? И координаты тебе не нужны.

[tsaMolotoff]

Twister:
Я имел в виду OCX-ный, мне не надо левых COM-компонентов, только внутренние или нормальные библиотеки(без регистрации).

Antonariy:
Как это не нужны - а картинку с парента каким образом считывать???
или печатать в нужном месте???

[tsaMolotoff]

Не подскажите почему событие Paint(любое положение AutoRedraw) не происходит???
код такой:

Код: Выделить всё

Dim i&
Dim tRes&
Dim cc As POINTAPI
Me.CurrentX = tX
Me.CurrentY = tY
Me.Cls
GetRC
tRes& = GetCursorPos(cc)
Label1.Caption = CStr(cc.x) + " " + CStr(cc.y)
cc.x = cc.x - rc.Left
cc.y = cc.y - rc.Top
Dim mX&, mY&
mX = Int(cc.x / Me.TextHeight(strings(0)))
If mX >= 0 And mX <= UBound(strings) Then
        mY = cc.y - Me.TextWidth(strings(mX))
            If mY <= 0 Then
                cNum = mX
                    Else
                        cNum = -1
                End If
            Else
    cNum = -1
End If
Debug.Print CStr(cNum)
For i = 0 To UBound(strings)
With Me
If i = cNum Then .ForeColor = vbRed Else .ForeColor = vbBlack
.CurrentY = tY + i * .TextHeight(strings(i))
Print strings(i)
End With
Next i
Debug.Print cNum



[Хакер]

[offtop]
Efiop
Что значит Откуда: РК?
[/offtop]

Значит МЫ, я уже справшивал

[Antonariy]

Antonariy:
Как это не нужны - а картинку с парента каким образом считывать???
или печатать в нужном месте???

Какую еще картинку?

[tsaMolotoff]

Вот какую

в пикчербоксе

Выкладываю пофиксенную версию вашего контрола.

[Antonariy]

Ну дык... ты же уже это сделал...

[tsaMolotoff]

Вот для пикчера нужны были координаты контрола - просто если его перемещать по форме картинка не меняется! По не понятным мне причинам в VB WM_PAINT(т.е при отключенном AutoRedraw) присходит только при загрузке формы(ненавижу это слово!! )



Поэтому то и мне нужны были координаты окна, которые даже АПИшными методами не вылавливаются нормально.

[tyomitch]

По не понятным мне причинам в VB WM_PAINT(т.е при отключенном AutoRedraw) присходит только при загрузке формы

А вызывать Refresh (или, что то же самое, InvalidateRect) не пробовал?
Только с отключенным AutoRedraw, увы, мелькания не избежать: VB затирает всю картинку цветом фона раньше, чем начинает выполняться _Paint.

[tsaMolotoff]

Мда, вот !@#$%^!!!!
Было бы удобнее без редрава - ну совсем Си !

Ну ладно, я и так уже все сделал, и клики, и маус мув и другой garbage.
Присобачу все к проекту http://www.tsa-molotoff.jino-net.ru/
продолжу...
Большое спасибо всем!