Winamp Style Resize
Winamp 2.80 and below had a resizing feature on it's playlist that resized the form in blocks of pixels instead of per pixel. The reason for it was because they didn't know how to stretch the playlist skins (i hope not), so instead they kept resizing it a certain amount of pixels and then painting the image block after it's last one. This does get you better quality on your skinning cause stretching would degrade the quality unless it wasn't made to be stretched. I am using this in an XP Control i'm working on right now because the vb Image control flickers when the stretch property is set to true and you want to resize it with a form. I figured resizing it per chunck of pixels rather than per pixel, it would reduce flickering and save resources on old computers. I havn't testing my theory, but this method still looks appealing to me. I think this would work great on borderless forms or unsizable forms for customizing. It's kinda sloppy but efficient ;)
KI-Zusammenfassung: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
'Just paste it into a brand new form 'or a old one and it will add cursor 'resizers based on coordinates which 'is really nice i think. There was no 'point in zipping such a simple feature. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim iTwipX, iTwipY Dim iScale As Integer On Error Resume Next iScale = Me.ScaleMode iTwipX = Screen.TwipsPerPixelX iTwipY = Screen.TwipsPerPixelY Me.ScaleMode = 3 If Button = 1 Then If MousePointer = 0 Then GoTo Fix_Scale If MousePointer = 7 Then GoTo NS_Resize If X / iTwipX > ScaleWidth + iTwipX Then Width = Width + iTwipX ^ 2 * 2 ElseIf X / iTwipX < ScaleWidth - iTwipX Then Width = Width - iTwipX ^ 2 * 2 End If If MousePointer = 9 Then GoTo Fix_Scale NS_Resize: If Y / iTwipY > ScaleHeight + iTwipY Then Height = Height + iTwipY ^ 2 * 2 ElseIf Y / iTwipY < ScaleHeight - iTwipY Then Height = Height - iTwipY ^ 2 * 2 End If Else If X / iTwipX > ScaleWidth - 12 _ And Y / iTwipY > ScaleHeight - 10 Then MousePointer = 8 ElseIf X / iTwipX > ScaleWidth - 12 _ And Y / iTwipY < ScaleHeight - 10 Then MousePointer = 9 ElseIf X / iTwipX < ScaleWidth - 12 _ And Y / iTwipY > ScaleHeight - 10 Then MousePointer = 7 Else MousePointer = 0 End If End If Fix_Scale: Me.ScaleMode = iScale% End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) MousePointer = 0 End Sub