Cool Form. Poll!!

[JasonLpz]

Tell me what you think of this form im thinkng of using it as my about box. Hope you like it.

[RobIII]

The text is very unreadable, and really oozes "Photoshop...".

[JasonLpz]

i can read the textwell and my friends can also. and what do you mean oozes

[veryjonny]

Cant seem to open the zip file - says file corrupted.

[JasonLpz]

here try this

[veryjonny]

still the same error

[RobIII]

"Oozes" - like it "shouts out" or "says" photoshop. You can see it's some default effects of photoshop (not to insult you...).

And for people having bad sight, you might want to use a higher contrast and no "glow" effects etc.

[RobIII]

Attached you'll find a screenshot of the form where I've marked places wich I (and my girlfriend) think are very unreadable....

[richsmith]

i aggree with RobIII

but how did you make that anyway

[mendhak]

You should consider changing the background to something lighter, so the text is more readable, and it might be better if the "exit" button is an "x"... then it oozes semi-oomph.

And since I don't have a girlfriend, I'm not pointing out anything else.

[wrack]

I agree with RobIII as well...

By the way it will be great if you can post the code to make it...

[Wokawidget]

The code is some great API )
Here's how to do it...

'In form...You need a picture box with a picture in it which will represent the shape of your form...
'In Form
Private Sub Form_Load() 
  Call Set_Region(Me.hWnd, Make_Region(picMainSkin))
End Sub
 
'In Module
Option Explicit
 
Private Const HWND_BOTTOM = 1
Private Const HWND_NOTOPMOST = -2
Private Const HWND_TOP = 0
Private Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const RGN_OR = 2
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
 
Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject 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
 
 
Public Function Set_Region(hWnd As Long, lngWindowRegion As Long)
    SetWindowRgn hWnd, lngWindowRegion, True
End Function
 
Public Function Make_Region(picSkin As PictureBox) As Long
Dim X As Long, Y As Long
Dim lngStartLineX As Long
Dim lngFullRegion As Long
Dim lngLineRegion As Long
Dim lngTransparentColor As Long
Dim blnInFirstRegion As Boolean
Dim blnInLine As Boolean
Dim hDC As Long
Dim lngPicWidth As Long
Dim lngPicHeight As Long
    hDC = picSkin.hDC
    lngPicWidth = picSkin.ScaleWidth
    lngPicHeight = picSkin.ScaleHeight
    blnInFirstRegion = True
    blnInLine = False
    X = Y = lngStartLineX = 0
    lngTransparentColor = GetPixel(hDC, 0, 0)
    For Y = 0 To lngPicHeight - 1
        For X = 0 To lngPicWidth - 1
            If GetPixel(hDC, X, Y) = lngTransparentColor Or X = lngPicWidth Then
                If blnInLine Then
                    blnInLine = False
                    lngLineRegion = CreateRectRgn(lngStartLineX, Y, X, Y + 1)
                    If blnInFirstRegion Then
                        lngFullRegion = lngLineRegion
                        blnInFirstRegion = False
                    Else
                        CombineRgn lngFullRegion, lngFullRegion, lngLineRegion, RGN_OR
                        DeleteObject lngLineRegion
                    End If
                End If
            Else
                If Not blnInLine Then
                    blnInLine = True
                    lngStartLineX = X
                End If
            End If
        Next X
    Next Y
    Make_Region = lngFullRegion
End Function

Hope this helps...
Bad background colors on your about box.