Search Tools Links Login

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 ;)

Original Author: Michael L. Canejo

Code

'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

About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 99 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.