На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS

Дорогие друзья! Поздравляем вас с Новым 2025 годом!

Всем удачи, успеха и благополучия!

msm.ru
! Правила раздела Visual Basic: Общие вопросы
Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image FAQ Сайта user posted image FAQ Раздела user posted image Кладовка user posted image Наши Исходники user posted image API-Guide user posted image Поиск по Разделу user posted image MSDN Library Online user posted image Google

Ваше мнение о модераторах: user posted image SCINER, user posted image B.V.
Модераторы: SCINER, B.V.
  
> форма окна
    Приложение при загрузке производит длительную операцию. Есть картинка. Хочу чтобы она выводилась во время загрузки. Но надо сделать так, чтобы формы, на которой находится картинка, видно не было. т.е. чтобы отображалась только картинка без окна.
      Вырезай регионы. CreateRectRgn...
          Гм..., а не проще еще одну форму создать с рисунком на ней - и выводить?????
            Для начало создадим Демонстрационную версию программы. Создаем проект ставим свойство формы БордерСтеле = 0, вешаем лабел и вписываем ваше имя, цвет лабела не меняем и оставляем черным, копируем этот текст и запускаем.

            ExpandedWrap disabled
              Private Declare Function SetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
              Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
              Const LWA_COLORKEY = &H1
              Const LWA_ALPHA = &H2
              Const GWL_EXSTYLE = (-20)
              Const WS_EX_LAYERED = &H80000
               
              Private Sub Form_Load()
              SetWindowLongA Me.hwnd, GWL_EXSTYLE, WS_EX_LAYERED
              SetLayeredWindowAttributes Me.hwnd, -1, 0, LWA_COLORKEY
              End Sub

            Клёва Да?

            Добавлено
            да забыл сказать :дла того что бы сделать красивую форму рисуем картинку и задний фон закрашиваем определённым цветом которого меньше всего или нет на картинке и все!
            Сообщение отредактировано: Бяка -
            0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
            0 пользователей:


            Рейтинг@Mail.ru
            [ Script execution time: 0,0224 ]   [ 16 queries used ]   [ Generated: 16.01.25, 13:03 GMT ]