Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1632710 Thu, 12 Jul 2007 07:10:16 +0000 Изменение размера формы вручную https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1632710 Что не так?]]> SCINER Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1632672 Thu, 12 Jul 2007 06:49:32 +0000 Изменение размера формы вручную https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1632672
Добавлено
Цитата Spectr-7 @
А проверяли вы просто форму? Или подчиненную в MDI?

Проверишь сам и нам скажешь...]]> varzind Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1632666 Thu, 12 Jul 2007 06:47:23 +0000 Изменение размера формы вручную https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1632666 Spectr-7 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1632562 Thu, 12 Jul 2007 05:04:07 +0000 Изменение размера формы вручную https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1632562 2varzind: Если присмотреться, то можно заметить, что это не мои слова. Я же наоборот сказал, что мною глюков замечено не было.
Посмотри еще раз внимательней, кто, где и кого комментировал.]]> SCINER Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1631896 Wed, 11 Jul 2007 12:10:23 +0000 Изменение размера формы вручную https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1631896 Spectr-7 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1631522 Wed, 11 Jul 2007 08:39:46 +0000 Изменение размера формы вручную https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1631522 Цитата Spectr-7 @
Цитата
Будет олично, не сомневайся. Проверенно...

Не совсем... При сворачивании он для этой формы выдает эту панель заголовка - пустую. Допустим я дам ей .Caption
А вот при разворачивании он остается при ней. Сей заголовок. Так что не все работает как хотелось бы.

Ничего не понял, но у меня работает отлично.]]> SCINER Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1631490 Wed, 11 Jul 2007 08:24:45 +0000 Изменение размера формы вручную https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1631490 Цитата
Будет олично, не сомневайся. Проверенно...

Не совсем... При сворачивании он для этой формы выдает эту панель заголовка - пустую. Допустим я дам ей .Caption
А вот при разворачивании он остается при ней. Сей заголовок. Так что не все работает как хотелось бы.]]> Spectr-7 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1631096 Tue, 10 Jul 2007 21:02:57 +0000 Изменение размера формы вручную https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1631096 varzind Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1630113 Tue, 10 Jul 2007 07:06:18 +0000 Изменение размера формы вручную https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1630113 Spectr-7 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1629877 Mon, 09 Jul 2007 22:07:03 +0000 Изменение размера формы вручную https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1629877 BorderStyle = 2
ClipControls = true
ControlBox = true, вобщем обычная форма, так как она создается в самом начале.

Далее создай обычный модуль и впиши в него это:
     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 GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
        Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
        Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
        
            Private Type RECT
            Left As Long
            Top As Long
            Right As Long
            Bottom As Long
            End Type
        
        Private Const GWL_STYLE = (-16)
        Private Const WS_SYSMENU = &H80000
        Private Const WS_MAXIMIZEBOX = &H10000
        Private Const WS_MINIMIZEBOX = &H20000
        Private Const WS_CAPTION = &HC00000
        Private Const SWP_FRAMECHANGED = &H20
        Private Const SWP_NOREPOSITION = &H200
        Private Const SWP_NOZORDER = &H4
     
    Public Function ShowTitleBar(ByVal frmForm As Form, ByVal bState As Boolean)
        'On Error Resume Next
        Dim lStyle As Long
        Dim tR As RECT
        GetWindowRect frmForm.hwnd, tR
        lStyle = GetWindowLong(frmForm.hwnd, GWL_STYLE)
        
        If (bState) Then
                frmForm.Caption = frmForm.Tag
            If frmForm.ControlBox Then
                lStyle = lStyle Or WS_SYSMENU
            End If
            If frmForm.MaxButton Then
                lStyle = lStyle Or WS_MAXIMIZEBOX
            End If
            If frmForm.MinButton Then
                lStyle = lStyle Or WS_MINIMIZEBOX
            End If
            If frmForm.Caption = "" Then
                lStyle = lStyle Or WS_CAPTION
            End If
        Else
            frmForm.Tag = frmForm.Caption
            frmForm.Caption = ""
            lStyle = lStyle And Not WS_SYSMENU
            lStyle = lStyle And Not WS_MAXIMIZEBOX
            lStyle = lStyle And Not WS_MINIMIZEBOX
            lStyle = lStyle And Not WS_CAPTION
        End If
        SetWindowLong frmForm.hwnd, GWL_STYLE, lStyle
        SetWindowPos frmForm.hwnd, 0, tR.Left, tR.Top, tR.Right - tR.Left, tR.Bottom - tR.Top, SWP_NOREPOSITION Or SWP_NOZORDER Or SWP_FRAMECHANGED
        frmForm.Refresh
    End Function
     
    Public Sub HideTaskWindow(frm As Form)
    ShowTitleBar frm, False: ShowTitleBar frm, True
    End Sub

Далее в загрузке формы напиши следующее:
    Private Sub Form_Load()
    HideTaskWindow Me
    End Sub

Думаю такой способ будет лучше, так как у тебя будет при этом видна программа в панели пуск, т.е. ты сможешь сворачивать форму и разворачивать как обычную...]]> varzind Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1629636 Mon, 09 Jul 2007 16:59:22 +0000 Изменение размера формы вручную https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1629636 IMMORTAL_S Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1629454 Mon, 09 Jul 2007 14:05:11 +0000 Изменение размера формы вручную https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1629454 Spectr-7 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1629437 Mon, 09 Jul 2007 13:53:17 +0000 Изменение размера формы вручную https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1629437 SCINER Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1629428 Mon, 09 Jul 2007 13:47:59 +0000 Изменение размера формы вручную https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1629428 Цитата SCINER @
ScaleMode = vbPixels
если не поможет, то скинь проект сюда, поправлю.

Проблема в том, что придется все размеры менять под пикселы. Что бы поставить ScaleMode = vbPixels.
И тогда вопрос, как это может помочь избавится от следа уменьшения формы? Ведь и то(Pixels) и то(Twip) всего лишь единицы измерения.]]> Spectr-7 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1629354 Mon, 09 Jul 2007 13:16:40 +0000 Изменение размера формы вручную https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1629354 если не поможет, то скинь проект сюда, поправлю.]]> SCINER Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1629273 Mon, 09 Jul 2007 12:50:13 +0000 Изменение размера формы вручную https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1629273
    If Button = vbLeftButton Then
        Me.MousePointer = 8
        SngX = X
        SngY = Y
        Call ResizeForm(Me)
    Else
        Me.MousePointer = 1
    End If


    Public Sub ResizeForm(Frm As Form)
    On Local Error Resume Next
     
    With Frm
        .Width = .Width + SngX
        .Height = .Height + SngY
    End With
    End Sub


1. Ресайз работает.
2. Не могу ограничить минимальный размер ФОРМЫ. Если сделаю так
    With Frm
        if .Width>=3000 then
            .Width = .Width + SngX
            .Height = .Height + SngY
        else
            .Width =3000
        endif
    End With

то это не срабатывает. К тому же если я отпущу мышку и размер окажется минимальным, то он даже не даст увеличить размер формы.
3. При уменьшении размера формы остаются следы ее уменьшения. Смотрим скрин. Стираются когда останавливаю мышку.
Как избавится от следов и все таки ограничить минимальные размеры. Просто пока я дежу кнопку мыши нажатой он уменьшит]]> Spectr-7 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1629170 Mon, 09 Jul 2007 12:07:00 +0000 Изменение размера формы вручную https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1629170 Цитата SCINER @
Элементарное действие, наподобии вот этого Как сделать прилипание формы

Спасибо, посмотрю.]]> Spectr-7 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1629160 Mon, 09 Jul 2007 12:01:13 +0000 Изменение размера формы вручную https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1629160 Как сделать прилипание формы
Либо посложнее используя API.]]> SCINER Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1629109 Mon, 09 Jul 2007 11:22:51 +0000 Изменение размера формы вручную https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1629109 Цитата SCINER @
Можно поинтересоваться, для чего это, т.е. какую задачу преследуете ?

Задача самая простая. Сделать ресайз формы. Просто сама форма имеет скин свой собственный, без обычной шапки.]]> Spectr-7 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1629004 Mon, 09 Jul 2007 10:06:47 +0000 Изменение размера формы вручную https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1629004 SCINER Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1628696 Mon, 09 Jul 2007 07:20:23 +0000 Изменение размера формы вручную https://forum.sources.ru/index.php?showtopic=194292&view=findpost&p=1628696 Нужно сделать возможность менять ее размер как при BorderStyle=2
Конекретнее, я не знаю как вычислить текущее расположение курсора относительно frm.Left или frm.Top]]> Spectr-7 Visual Basic: Общие вопросы