[VB6] Form resizen zonder border

[Verwijderd]

He, ik ben bezig met een form aan het maken in VB6 die geen border heeft. Deze zit namelijk helemaal vol gestuffed met images. Ik heb nu al uitgevonden hoe je een form kan verplaatsen, maar nu nog het resizen. Heeft iemand tips hoe je dit het beste voor elkaar krijgt?

PS: Stomme vraag, maar in Java kon je % gebruiken om de rest van een deling te bepalen. Hoe doe je dit in VB?

[Verwijderd]

Ik heb je in dat andere topic al een link gegeven

http://www.vbcity.com/forums/faq.asp?fid=6&cat=Forms

[Verwijderd]

Maar daarin staat alleen moven. Die heb ik al Ik snap dat voorbeeld wel, je kan wel resizen, maar dan mag je window geen caption hebben en dat is bagger, want dan krijg je onderin je taakbalk alleen zo'n leeg vakje. Je krijgt dan trouwens ook een border.

[SWINX]

Resizen doe je toch gewoon:

Me.Width = 3000
Me.Height = 3000

[ Voor 0% gewijzigd door SWINX op 06-10-2002 19:23 . Reden: klote typo's :( ]

[Verwijderd]

Dat vat ik, maar dan met de muis he

[DukeMan]

je maakt vb. linksonder in je venster een knop met drie diagonale streepjes, zoals je bij sommige apps bijvoorbeeld ziet. Wanneer hier op geklikt wordt zet je de huidige muis posities en huidige grootte van het venster in een variabele. Wanneer de muis verplaatst bereken je op basis van de nieuwe en de oude muisposities, samen met de oude venstergroottes de nieuwe grootte.

[Verwijderd]

PS: Stomme vraag, maar in Java kon je % gebruiken om de rest van een deling te bepalen. Hoe doe je dit in VB?

4 mod 3 = 1

[Verwijderd]

mod, ok, thx Ik heb trouwens zitten goochelen! Hier is de uiteindelijke source:

je plaatst eerst dit bovenaan je form om de integers te declareren:

code:

Dim StretchCornerX As Integer
Dim StretchCornerY As Integer

Dan plaats je de volgende code onder je StretchCorner:

code:

Private Sub StretchCorner_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        StretchCornerX = X
        StretchCornerY = Y
    End If
End Sub

Private Sub StretchCorner_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        If Me.Height + Y - StretchCornerY <= 6000 Then
            Me.Height = 6000
        Else
            Me.Height = Me.Height + Y - StretchCornerY
        End If
        If Me.Width + X - StretchCornerX <= 6000 Then
            Me.Width = 6000
        Else
            Me.Width = Me.Width + X - StretchCornerX
        End If
    End If
End Sub

PS: Dit is met geluk uitgevonden je kan ook de 2 integers weglaten, maar dan looptie niet zo strak. Er zit trouwens ook een beveiliging in dattie niet kleiner wordt als 400x400 pixels

[brammetje]

nu nog verhaaltje met mips (toch?) en pixels uitzoeken

[Verwijderd]

sowwy? didn't quite catch that

[johnwoo]

brammetje: twips

VB drukt coordinaten en afmetingen standaard in twips uit (die 6000 in jouw code). Met standaard instellingen gaan er 15 twips in een pixel, maar dat hoeft dus lang niet overal zo te zijn. Gelukkig wordt dit getalletje ook ergens opgeslagen, en wel hier: Screen.TwipsPerPixelX en Screen.TwipsPerPixelY. Voor een minimale grootte van 400x400 pixels zou jouw MouseMove sub er als volgt uitzien:

code:

Private Sub StretchCorner_MouseMove(Button As Integer, Shift As Integer, _
    X As Single, Y As Single)

    If Button = vbLeftButton Then
        If Me.Height + Y - StretchCornerY <= 400 * Screen.TwipsPerPixelY Then
            Me.Height = 400 * Screen.TwipsPerPixelY
        Else
            Me.Height = Me.Height + Y - StretchCornerY
        End If
        If Me.Width + X - StretchCornerX <= 400 * Screen.TwipsPerPixelX Then
            Me.Width = 400 * Screen.TwipsPerPixelX
        Else
            Me.Width = Me.Width + X - StretchCornerX
        End If
    End If
End Sub

Overigens vind ik dat persoonlijk nogal storend in VB, ik reken liever alles met pixels. Gelukkig kun je de scalemode van client areas op pixels zetten, maar dan nog zijn er twee nadelen: 1) je moet voor iedere client area de scalemode opnieuw op pixels zetten (zou eigenlijk een ambient property moeten zijn imho, dus je stelt het 1 keer op pixels in en vervolgens staat ieder control dat je maakt meteen op pixels), en 2) het werkt alleen in client areas, dus de nonclient afmetingen van je form moet je nog steeds in twips opgeven

[Demo]

Even een kleine opmerking: de mouse-events geven volgens mij de X en Y waarde door als Single, dus ik denk dat je je StretchCornerX en Y als singles moet declareren. (nu werkt het ook wel, maar langzamer en een kans op errors)

[ Voor 0% gewijzigd door Demo op 07-10-2002 14:14 . Reden: typo ]