Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=224316&view=findpost&p=1876865 Thu, 21 Feb 2008 23:06:28 +0000 Как у формы сделать кнопку СВЕРТЫВАНИЯ формы https://forum.sources.ru/index.php?showtopic=224316&view=findpost&p=1876865 Pavel55, скорее всего - недогружаете. Попробовал загрузить и разархивировать встроенным виндозовским, RAR, 7-ZIP - все получилось]]> bi-lya VB for Application https://forum.sources.ru/index.php?showtopic=224316&view=findpost&p=1876475 Thu, 21 Feb 2008 15:48:03 +0000 Как у формы сделать кнопку СВЕРТЫВАНИЯ формы https://forum.sources.ru/index.php?showtopic=224316&view=findpost&p=1876475 bi-lya, у меня пишет: "Архив повреждён" (или Неожиданный конец архива)]]> Pavel55 VB for Application https://forum.sources.ru/index.php?showtopic=224316&view=findpost&p=1875652 Thu, 21 Feb 2008 07:56:35 +0000 Как у формы сделать кнопку СВЕРТЫВАНИЯ формы https://forum.sources.ru/index.php?showtopic=224316&view=findpost&p=1875652 НарКот VB for Application https://forum.sources.ru/index.php?showtopic=224316&view=findpost&p=1875477 Thu, 21 Feb 2008 02:03:37 +0000 Как у формы сделать кнопку СВЕРТЫВАНИЯ формы https://forum.sources.ru/index.php?showtopic=224316&view=findpost&p=1875477 Приаттачиваю]]> bi-lya VB for Application https://forum.sources.ru/index.php?showtopic=224316&view=findpost&p=1875261 Wed, 20 Feb 2008 17:47:32 +0000 Как у формы сделать кнопку СВЕРТЫВАНИЯ формы https://forum.sources.ru/index.php?showtopic=224316&view=findpost&p=1875261
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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 Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
    Private Const GWL_STYLE As Long = (-16)
    Private Const WS_SYSMENU As Long = &H80000
    Private Const WS_MINIMIZEBOX As Long = &H20000
    Private Const WS_MAXIMIZEBOX As Long = &H10000
     
    Private Sub UserForm_Activate()
        Dim lngFrmHndl As Long
        Dim lngStyle As Long
        lngFrmHndl = FindWindow(vbNullString, Me.Caption)
        lngStyle = GetWindowLong(lngFrmHndl, GWL_STYLE)
        lngStyle = lngStyle Or WS_SYSMENU
        lngStyle = lngStyle Or WS_MINIMIZEBOX
        lngStyle = lngStyle Or WS_MAXIMIZEBOX
        SetWindowLong lngFrmHndl, GWL_STYLE, (lngStyle)
        DrawMenuBar lngFrmHndl
    End Sub
]]> Pavel55 VB for Application https://forum.sources.ru/index.php?showtopic=224316&view=findpost&p=1875162 Wed, 20 Feb 2008 16:14:41 +0000 Как у формы сделать кнопку СВЕРТЫВАНИЯ формы https://forum.sources.ru/index.php?showtopic=224316&view=findpost&p=1875162 Цитата bi-lya @
Посмотрите здесь

что-то никак не загружу оттуда :(

можешь здесь написать о чем там?]]> НарКот VB for Application https://forum.sources.ru/index.php?showtopic=224316&view=findpost&p=1874804 Wed, 20 Feb 2008 11:21:37 +0000 Как у формы сделать кнопку СВЕРТЫВАНИЯ формы https://forum.sources.ru/index.php?showtopic=224316&view=findpost&p=1874804 здесь]]> bi-lya VB for Application https://forum.sources.ru/index.php?showtopic=224316&view=findpost&p=1874752 Wed, 20 Feb 2008 10:43:52 +0000 Как у формы сделать кнопку СВЕРТЫВАНИЯ формы https://forum.sources.ru/index.php?showtopic=224316&view=findpost&p=1874752 Krasnaja Shapka VB for Application https://forum.sources.ru/index.php?showtopic=224316&view=findpost&p=1874673 Wed, 20 Feb 2008 09:57:18 +0000 Как у формы сделать кнопку СВЕРТЫВАНИЯ формы https://forum.sources.ru/index.php?showtopic=224316&view=findpost&p=1874673 Krasnaja Shapka, мне нужна в загаловке формы кнопочка СВЕРНУТЬ
неужели у форм ВБА это не предусмотрено?

Сообщения были разделены в тему "Как у формы сделать кнопку СВЕРТЫВАНИЯ формы"

Это сообщение было перенесено сюда или объединено из темы "Проверка типа ячейки перед помещением ее в контрол"]]> НарКот VB for Application https://forum.sources.ru/index.php?showtopic=224316&view=findpost&p=1874582 Wed, 20 Feb 2008 08:43:55 +0000 Как у формы сделать кнопку СВЕРТЫВАНИЯ формы https://forum.sources.ru/index.php?showtopic=224316&view=findpost&p=1874582
    Me.Hide'

закрыть форму
    UnLoad Me


это если в коде формы конечно...]]> Krasnaja Shapka VB for Application https://forum.sources.ru/index.php?showtopic=224316&view=findpost&p=1874576 Wed, 20 Feb 2008 08:30:08 +0000 Как у формы сделать кнопку СВЕРТЫВАНИЯ формы https://forum.sources.ru/index.php?showtopic=224316&view=findpost&p=1874576 СВЕРТЫВАНИЯ формы

а то кнопка для этого мне не подходит :(

    Private Sub CommandButton1_Click()
    If fMin Then
      Me.Height = 361.5
      fMin = 0
     Else
      Me.Height = 44
      fMin = 1
     End If
    End Sub


Эта тема была разделена из темы "Проверка типа ячейки перед помещением ее в контрол"]]> НарКот VB for Application