FORM EFFET VISTA OU MEDIA PLAYER

Commentaire de guiguidu25 le 21/06/2007 11:44:53

Allez je met 10 mais c'est en étant gentil j'aurai du mettre 8. Pas mal du tout je trouve. Mais il manque en effet quelques petites choses à faire comme mettre une image comme si les boutons étaient enfoncé parce que là, on n'a que le bouton réduire normal et le bouton réduire pointé mais pas le bouton réduire quand il est enfoncé... Utilise l'évenement "MouseDown". Je te suggère d'aller voir l'interface de mon logiciel perso qui n'est pas mauvaise du tout. L'adresse : http://www.vbfrance.com/code.aspx?ID=43193.

Sinon pour le déplacement de la fenêtre je n'ai pas encore trouvé mais je m'approche du but je te redirai sa ;)

Commentaire de ManuAntibes le 21/06/2007 17:08:29

Salut

Merci à toi GUIGUIDU25 tu es trop brave (lol).

Mais oui je bloque sur ces points que tu as nommer Charles, je vais allé voir les url que vous proposés.

En effet lors de l'agrandissement en plein ecran ou lors de déplacement les images sautent, j'ai cru que le problème venait de mon pc, mais tu penses que c'est les transparents des angles qui fon ça.

En fait j'aimerais faire un truc comme Spyware Doctor.
Pouvoir déplacer aisement et redimentionner.
Mais je n'y arrive pas, c'est pour cela que j'ai posté mon travail, pour avoir vos critiques et votre aide.
Merci A+

Commentaire de guiguidu25 le 22/06/2007 10:27:59

Merci pour l'url charles elle est très efficace ;)

Commentaire de Charles Racaud le 22/06/2007 11:37:54

Tiens, un exemple pour le redimensionnement :

<System.Runtime.InteropServices.DllImport("user32.dll")> _
Private Shared Function GetWindowDC(ByVal hwnd As System.IntPtr) As System.IntPtr
End Function

Public Sub New()

  ' This call is required by the Windows Form Designer.
  InitializeComponent()

  ' Add any initialization after the InitializeComponent() call.
  MyClass.SetStyle(System.Windows.Forms.ControlStyles.AllPaintingInWmPaint, True)
  MyClass.SetStyle(System.Windows.Forms.ControlStyles.OptimizedDoubleBuffer, True)
  MyClass.UpdateStyles()
End Sub

Private Const WS_EX_STATICEDGE As Integer = &H20000
Private Const WS_SIZEBOX As Integer = &H40000
Private Const WM_PAINT As Long = &HF
Private Const WM_NCHITTEST As Integer = &H84
Private Const HTCLIENT As Integer = &H1
Private Const HTCAPTION As Integer = &H2
Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
  Get
    Dim CP As System.Windows.Forms.CreateParams = MyBase.CreateParams
    CP.ExStyle = WS_EX_STATICEDGE
    CP.Style = WS_SIZEBOX
    Return CP
  End Get
End Property
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
  If m.Msg = WM_PAINT Then
    Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromHdc(GetWindowDC(MyBase.Handle))
    Call OnFormPaint(New System.Windows.Forms.PaintEventArgs(g, New System.Drawing.Rectangle(System.Drawing.Point.Empty, MyBase.Size)))
    g.Dispose()
  Else
    MyBase.WndProc(m)
    If m.Msg = WM_NCHITTEST Then
      If m.Result = CType(HTCLIENT, System.IntPtr) Then
        m.Result = CType(HTCAPTION, System.IntPtr)
      End If
    End If
  End If
End Sub
Private Sub OnFormPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
  e.Graphics.FillRectangle(System.Drawing.SystemBrushes.ActiveCaption, e.ClipRectangle)
End Sub

__
Kenji

Commentaire de Charles Racaud le 22/06/2007 17:11:07

Oui, le rectangle bleu c'est normal.
Il faut que tu le remplace par le dessin de ta form.
Dans la sub OnFormPaint. Il faudra bien sur se passer des picturebox et créer des regions.
__
Kenji