VPF::Миганте объектов при их добавлении

koket

Дата 29.11.2007, 23:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 26.10.2006

Репутация: нет
Всего: нет

Подскажите как избавиться от мигания объектов при их добавлении на форму? Есть 10 элементов типа labels когда запускаешь то на форме они по очереди выстраиваются друг за другом . Из за этого виден эффект мигания от которого хотелось бы избавиться.

thomas

Дата 30.11.2007, 00:16 (ссылка)

(нет голосов)

Загрузка ...

Доцент... почти

Профиль
Группа: Завсегдатай
Сообщений: 1385
Регистрация: 3.10.2006
Где: " Сказочное королевство"

Репутация: 3
Всего: 65

koket,
выстави в свойствах формы двойную буферизацию.

--------------------

Крепко жму горло, искренне ваш Thomas. (С)vingrad
Некоторые сорта флоры буквально за одно мгновение превращают нас в фауну!
Проблемы негров шерифа не волнуют.

koket

Дата 30.11.2007, 00:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 26.10.2006

Репутация: нет
Всего: нет

thomas,
не помагло :(

Это сообщение отредактировал(а) koket - 30.11.2007, 00:40

Experimenter

Дата 30.11.2007, 07:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 430
Регистрация: 8.5.2007
Где: Уфа

Репутация: нет
Всего: 17

koket, код в студию

--------------------

public Zlo FromTwoEvilsChooseSmaller(Zlo zlo1, Zlo zlo2){
    if(zlo1 < zlo2) return zlo1;
    else if(zlo1 > zlo2) return zlo2;
    else throw new Exception("Kill yourself by the wall"); }

koket

Дата 30.11.2007, 12:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 26.10.2006

Репутация: нет
Всего: нет

Experimenter,

Я создаю элементы (20 лейблов) в цикле вот так:

на onLoad формы пишем:

Цитата

        'Задаем Размер формы на весь экран
        Dim ScreenW As Integer = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width
        Dim ScreenH As Integer = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
        Me.Size = New Size(ScreenW, ScreenH)
        Me.Location = New Point(0, 0)

        'Строим 15 элементов типа Label в цикле
        Dim i As Integer
        For i = 1 To 15

            Dim lbl As New Label
            lbl.Name = String.Format("{0}", "name" & i)
            Me.Controls.Add(lbl)

            With lbl
                .Text = "Label" & i
                .Location = New Point(i * 60, i * 60)
                .Size = New Size(110, 50)
                .BackColor = Color.Aqua
            End With

        Next

Experimenter

Дата 4.12.2007, 08:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 430
Регистрация: 8.5.2007
Где: Уфа

Репутация: нет
Всего: 17

koket, я бы сделал так:

Код


        Dim lbl As Label
        Dim i As Integer
        For i = 1 To 15

            lbl = New Label
            lbl.Name = String.Format("{0}", "name" & i)

            With lbl
                .Text = "Label" & i
                .Location = New Point(i * 60, i * 60)
                .Size = New Size(110, 50)
                .BackColor = Color.Aqua
            End With
            Me.Controls.Add(lbl)

в общем-то ничего криминального в твоем коде нет, конструктор как конструктор.

--------------------

public Zlo FromTwoEvilsChooseSmaller(Zlo zlo1, Zlo zlo2){
    if(zlo1 < zlo2) return zlo1;
    else if(zlo1 > zlo2) return zlo2;
    else throw new Exception("Kill yourself by the wall"); }

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »