Создание Плавно открывающейся формы

@EdMi4 · Регистрация: 12.05.2011

Студворк — интернет-сервис помощи студентам

Лазил по вашему форумо и нашол очень забавный пример кода, программа открывается плавно появляясь можно сказать из воздуха, но пример этого кода меня просто убил! Зачем нужен такой длинный код если можно уложится в три строчки. например:
Добовляем Timer называем его Timer1 ставим Значение Enabled = true
а Interval = 50
далее в саму форму вставляем этот пример кода

VB.NET
1
2
3
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.Opacity <> 1.0 Then Me.Opacity = Me.Opacity + 0.1 Else Timer1.Enabled = False
    End Sub

Готово

Добавлено через 2 минуты
Лучше примера быть неможет

Добавлено через 1 минуту
Буду очень благодарен если кто нибудь дас пример этого кода на C#

@Alex77755 · 13.05.2011, 09:16

Всё было бы хорошо, если бы не было так полохо:
нет в бейсике у формы такого свойства Me.Opacity
Хорошо тем, кто прогит в NET!!(но это другой раздел)

@EdMi4 · 13.05.2011, 09:47 **[ТС]**

Сообщение от Alex77755

Всё было бы хорошо, если бы не было так полохо:
нет в бейсике у формы такого свойства Me.Opacity
Хорошо тем, кто прогит в NET!!(но это другой раздел)

Есть в Visual Basiс 6 это свойство, прежде чем писать проверь так ли это

@Alex77755 · 13.05.2011, 09:52

Уверен?
Думаю ты заблуждаешься!!!
В бейсике нет даже такого:

Visual Basic
1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

Это NET!!!

Добавлено через 1 минуту
Существующие версии VB.NET:
Visual Basic .NET (VB 7.0) — выпущен в 2002 году, вместе с Visual C# и ASP.NET
Visual Basic .NET 2003 (VB 7.1) — выпущена вместе с .NET Framework 1.1; имеется русскоязычная версия с русским MSDN
Visual Basic 2005 (VB 8.0) — выпущена в конце октября 2005 года, в составе Visual Studio 2005
Visual Basic 2005 Express — выпущена в начале ноября 2005 года совместно с другими продуктами линейки Express [1], в том числе SQL Server 2005 Express Edition. Предлагается для бесплатного скачивания и использования. Требует .NET Framework 2.0.
Visual Basic 2008 (VB 9.0)
Visual Basic 2008 Express — бесплатная урезанная версия, выпущенная параллельно с новым продуктом. Предлагается для бесплатного скачивания и использования. Требует .NET Framework 3.5.
Visual Basic 2010 Требует .NET Framework 4.

@EdMi4 · 13.05.2011, 09:57 **[ТС]**

Заблуждаешся ты, и очень сильно.
Я щас сделаю, закину сому программу и исходники, и ты убедишся в моей правоте

@Alex77755 · 13.05.2011, 10:01

На чём программишь?

Добавлено через 2 минуты
В бесике таймер

Visual Basic
1
2
Private Sub Timer1_Timer()
End Sub

В NET таймер

Visual Basic
1
2
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    End Sub

Учи матчасть!

@EdMi4 · 13.05.2011, 10:15 **[ТС]**

У меня Visual Basic 6! он не относится к .Net плотформе!!!
Короче, вот тебе исходники с программой, признай свою неправоту и сам освежи свои знания...

@Alex77755 · 13.05.2011, 10:26

Твои исзодники сделаны на NET!
Учи матчасть!

Добавлено через 55 секунд
В редакторе нажми "справка" О программе

Добавлено через 3 минуты
Но ты не расстраивайся! Ты не первый!

Добавлено через 3 минуты
Почитай хотя бы Википедию:
Эволюция Visual Basic
май 1991 — выпущен Visual Basic 1.0 для Microsoft Windows. За основу языка был взят синтаксис QBasic, а новшеством, принесшим затем языку огромную популярность, явился принцип связи языка и графического интерфейса. Этот принцип был разработан Аланом Купером (Alan Cooper) и реализован в прототипе Tripod (также известном как Ruby). Первый Visual Basic был интерпретатором.
сентябрь 1992 — выпущен Visual Basic 1.0 под DOS. Он не был полностью совместим с Windows-версией VB, поскольку по сути являлся следующей версией QuickBASIC и работал в текстовом режиме экрана.
Интересно отметить, что в составе была специальная утилита, которая конвертировала проекты данной версии в проекты Visual Basic 1.0. Она делала код максимально совместимым с Windows-версией, конвертировала формы (хотя результат получался неудовлетворительным из-за различий текстового и графического режима), а также давала в коде комментарии с подсказками по дальнейшему улучшению.
ноябрь 1992 — выпущен Visual Basic 2.0. Среда разработки стала проще в использовании и работала быстрее.
летом 1993 — вышел в свет Visual Basic 3.0 в версиях Standard и Professional. Ко всему прочему, в состав поставки добавился движок для работы с базами данных Access.
август 1995 — Visual Basic 4.0 — версия, которая могла создавать как 32-х так и 16-разрядные Windows-программы. Кроме того, появилась возможность писать на VB классы, а также Visual Basic наконец-то стал полноценным компилятором, что значительно увеличило скорость выполнения программ.
февраль 1997 — Visual Basic 5.0 — начиная с этой версии, стало возможно, наряду с обычными приложениями, разрабатывать COM-компоненты. Скомпилировав такой компонент в OCX-файл и поставляя его, можно было предоставить свой объект управления не только конечному пользователю, но и другим разработчикам, после чего они могли интегрировать этот объект в свои приложения.
В середине 1998 — вышла Visual Basic 6.0. После этого Microsoft резко изменила политику в отношении языков семейства Basic. Вместо развития Visual Basic, был создан абсолютно новый язык Visual Basic .NET, первая версия которого появилась в 2001. Это принципиально новый язык, имеющий, помимо синтаксиса, очень мало схожего с VB 6.0; и отличаясь от него так же сильно, как в своё время VB отличался от QBASIC. VB.NET сразу же занял место VB в Visual Studio, и на этом развитие классического Visual Basic остановилось.
В 2005 году вышла новая версия Visual Basic, в комплекте Visual Studio. Порадовала она новым интерфейсом и возможностями. Язык основан на Visual Basic.NET. Она не была классической версией VB.
В конце 2007 Microsoft выпустила новую версию Visual Basic — Visual Basic 2008, которая также была основана на Visual Basic.NET.

@EdMi4 · 13.05.2011, 10:30 **[ТС]**

У меня VB6!!! никакого .net там в помине net!!!

@Alex77755 · 13.05.2011, 10:35

Не по теме:

Дело, конечно, твоё
У меня тоже VB6
Ну и NET имеется(2008) Так, что спорить не буду.
Но по синтаксису это NET. Уж поверь.
Хотя не собираюсь разубеждать тебя - буть счастлив в своём заблуждении

@Dzhej-Dzhej · 13.05.2011, 10:39

EdMi4, нажми в меню "Справка"->"О программе" и скинь сюда скриншот
(свою личную информацию зарисуй, если она там есть)

@Alex77755 · 13.05.2011, 10:40

А где твоя?

@Alex77755 · 13.05.2011, 10:45

Вот обе

@Dzhej-Dzhej · 13.05.2011, 10:58

Сообщение от EdMi4

Буду очень благодарен если кто нибудь дас пример этого кода на C#

C#
1
2
3
4
5
6
7
8
9
10
11
12
        Form1()
        {
            InitializeComponent();
            this.Opacity = 0;
        }
        private void timer1_Tick(object sender, EventArgs e)
        {
            if (this.Opacity != 1.0) 
                this.Opacity = this.Opacity + 0.1;
            else 
                timer1.Enabled = false;
        }

Сообщение от Alex77755

А где твоя?

если это мне, то у меня точно такой-же скрин получится

@Alex77755 · 13.05.2011, 10:59

если это мне, то у меня точно такой-же скрин получится

Какой? там два! Покажи свой!

@Dzhej-Dzhej · 13.05.2011, 11:04

вот:

Alex77755, я с тобой полностью согласен по этому вопросу и хотел увидеть скрин ТС

@gaw · 13.05.2011, 18:37

VB 6.0

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Dim t As Integer
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_EXSTYLE = (-20)
 
Private Const LWA_ALPHA = &H2
 
 
 
Private Const WS_EX_LAYERED = &H80000
Public Function MakeTransparent(ByVal hwnd As Long, Perc As Integer) As Long
Dim Msg As Long
On Error Resume Next
    If Perc < 0 Or Perc > 255 Then
      MakeTransparent = 1
    Else
      Msg = GetWindowLong(hwnd, GWL_EXSTYLE)
      Msg = Msg Or WS_EX_LAYERED
      SetWindowLong hwnd, GWL_EXSTYLE, Msg
      SetLayeredWindowAttributes hwnd, 0, Perc, LWA_ALPHA
      MakeTransparent = 0
    End If
    If Err Then
      MakeTransparent = 2
    End If
End Function
 
Private Sub Form_DblClick()
Unload Me
End Sub
 
Private Sub Form_Load()
t = 0
Me.BorderStyle = 0
Me.Visible = False
Timer1.Interval = 10
Timer1.Enabled = True
Print "DblClick"
End Sub
 
Private Sub Timer1_Timer()
If Me.Visible = False Then Me.Visible = True
If t < 254 Then
t = t + 2
MakeTransparent Me.hwnd, t
Else
Timer1.Enabled = False
End If
End Sub

@Alex77755 · 13.05.2011, 23:49

Не по теме:

gaw,
Что-то ТС замолчал!
Я уже начал было сомеваться...

@PB · 14.05.2011, 01:17

Сообщение от Alex77755

Хорошо тем, кто прогит в NET!!(но это другой раздел)

Что-то вы много кода намутили. Все это реализовывается намного проще и без таймера.
Пример, правда, на PureBasic (к .NET отношения не имеет, создает нативный машинный код).

Всего 4 строки и это в месте со строкой создания окна и обработчиком событий программы.

PureBasic
1
2
3
4
OpenWindow(0,0,0,300,200,"Заголовок", #PB_Window_MinimizeGadget|#PB_Window_Invisible|#PB_Window_ScreenCentered)
AnimateWindow_(WindowID(0),1000,#AW_BLEND|#AW_ACTIVATE)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
AnimateWindow_(WindowID(0),800,#AW_BLEND|#AW_HIDE)

Скомпилированная прога (чтоб посмотреть как работает) во вложении.

@gaw · 14.05.2011, 01:31

Сообщение от PB

Что-то вы много кода намутили

не спорю, и буду благодарен короткому на VB 6.0

кстати, попробуйте убрать заголовок - должно исправить начальную засветку

Новые блоги и статьи Все статьи Все блоги /
Дальние перспективы сервера - слоя сети. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	13.05.2011, 09:16
	Всё было бы хорошо, если бы не было так полохо: нет в бейсике у формы такого свойства Me.Opacity Хорошо тем, кто прогит в NET!!(но это другой раздел) 0

@EdMi4 3 / 3 / 1 Регистрация: 12.05.2011 Сообщений: 118
	13.05.2011, 09:57 [ТС]
	Заблуждаешся ты, и очень сильно. Я щас сделаю, закину сому программу и исходники, и ты убедишся в моей правоте 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	13.05.2011, 10:26
	Твои исзодники сделаны на NET! Учи матчасть! Добавлено через 55 секунд В редакторе нажми "справка" О программе Добавлено через 3 минуты Но ты не расстраивайся! Ты не первый! Добавлено через 3 минуты Почитай хотя бы Википедию: Эволюция Visual Basic май 1991 — выпущен Visual Basic 1.0 для Microsoft Windows. За основу языка был взят синтаксис QBasic, а новшеством, принесшим затем языку огромную популярность, явился принцип связи языка и графического интерфейса. Этот принцип был разработан Аланом Купером (Alan Cooper) и реализован в прототипе Tripod (также известном как Ruby). Первый Visual Basic был интерпретатором. сентябрь 1992 — выпущен Visual Basic 1.0 под DOS. Он не был полностью совместим с Windows-версией VB, поскольку по сути являлся следующей версией QuickBASIC и работал в текстовом режиме экрана. Интересно отметить, что в составе была специальная утилита, которая конвертировала проекты данной версии в проекты Visual Basic 1.0. Она делала код максимально совместимым с Windows-версией, конвертировала формы (хотя результат получался неудовлетворительным из-за различий текстового и графического режима), а также давала в коде комментарии с подсказками по дальнейшему улучшению. ноябрь 1992 — выпущен Visual Basic 2.0. Среда разработки стала проще в использовании и работала быстрее. летом 1993 — вышел в свет Visual Basic 3.0 в версиях Standard и Professional. Ко всему прочему, в состав поставки добавился движок для работы с базами данных Access. август 1995 — Visual Basic 4.0 — версия, которая могла создавать как 32-х так и 16-разрядные Windows-программы. Кроме того, появилась возможность писать на VB классы, а также Visual Basic наконец-то стал полноценным компилятором, что значительно увеличило скорость выполнения программ. февраль 1997 — Visual Basic 5.0 — начиная с этой версии, стало возможно, наряду с обычными приложениями, разрабатывать COM-компоненты. Скомпилировав такой компонент в OCX-файл и поставляя его, можно было предоставить свой объект управления не только конечному пользователю, но и другим разработчикам, после чего они могли интегрировать этот объект в свои приложения. В середине 1998 — вышла Visual Basic 6.0. После этого Microsoft резко изменила политику в отношении языков семейства Basic. Вместо развития Visual Basic, был создан абсолютно новый язык Visual Basic .NET, первая версия которого появилась в 2001. Это принципиально новый язык, имеющий, помимо синтаксиса, очень мало схожего с VB 6.0; и отличаясь от него так же сильно, как в своё время VB отличался от QBASIC. VB.NET сразу же занял место VB в Visual Studio, и на этом развитие классического Visual Basic остановилось. В 2005 году вышла новая версия Visual Basic, в комплекте Visual Studio. Порадовала она новым интерфейсом и возможностями. Язык основан на Visual Basic.NET. Она не была классической версией VB. В конце 2007 Microsoft выпустила новую версию Visual Basic — Visual Basic 2008, которая также была основана на Visual Basic.NET. 0

@EdMi4 3 / 3 / 1 Регистрация: 12.05.2011 Сообщений: 118
	13.05.2011, 10:30 [ТС]
	У меня VB6!!! никакого .net там в помине net!!! 0

@Alex77755
	13.05.2011, 10:35
	Не по теме: Дело, конечно, твоё У меня тоже VB6 Ну и NET имеется(2008) Так, что спорить не буду. Но по синтаксису это NET. Уж поверь. Хотя не собираюсь разубеждать тебя - буть счастлив в своём заблуждении 0

@Dzhej-Dzhej Заблокирован
	13.05.2011, 10:39
	EdMi4, нажми в меню "Справка"->"О программе" и скинь сюда скриншот (свою личную информацию зарисуй, если она там есть) 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	13.05.2011, 10:40
	А где твоя? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	13.05.2011, 10:45
	Вот обе Миниатюры 0

@Dzhej-Dzhej Заблокирован
	13.05.2011, 11:04
	вот: Alex77755, я с тобой полностью согласен по этому вопросу и хотел увидеть скрин ТС 0

@Alex77755
	13.05.2011, 23:49
	Не по теме: gaw, Что-то ТС замолчал! Я уже начал было сомеваться... 0