Form effet vista ou media player

Soyez le premier à donner votre avis sur cette source.

Vue 18 536 fois - Téléchargée 1 803 fois

Description

Bonjour à tous

Je me suis developper une application simple d'une seul page, et j'avais envie de changer l'apparence de mon appli, car j'ai toujours tendance à faire des applis assez basic.

Je vous propose ma presentation, si cela peut donnée des idées à d'autres.

Conclusion :


J'ai eu du mal pour faire deplacer ma page, l'effet est zéro.
Si quelqu'un peut me donner un coup de pouce pour déplacer ma page plus fluidement.

Merci à tous

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

ManuAntibes
Messages postés
487
Date d'inscription
mardi 24 octobre 2000
Statut
Membre
Dernière intervention
23 mars 2019
3
Salut DJMCG

Moi aussi je suis débutant(depuis 3ans).

Ne par pas de mon appli pour ton projet, car c'est l'erreur que j'ai faite pour vous donnez mon appli, une fois mon appli fini je me suis dis tien si je la mettais sur VBFrance.
Du coup j'ai supprimé se que je ne voulais pas laisser, mais du coup il reste des references de DLL que j'ai oublier de supprimer comme celle d'Excel.

Utilise plus les images ou le principe avec les panels en haut, en bas, à droite et à gauche.

D'ailleur aujourd'hui je prefere travailler sur une form non redimensionnable d'ailleur je n'y suis pas arrivé avec le code de Charlie (ça devient trop dur pour moi), et je suis content de pouvoir la déplacer.

A+
Profil bloqué
Bonjour,
Je suis trop débutant ou trop nasse pour tous comprendre. Dommage pour les commentaires.
Voici la liste des avertissement que mon system affiche.
Pourtant l'aplication semble fonctionner et les effet à l'écran sont EXTRAS. C'est exactement ça que je veux dans mes appli.
Par contre au niveau de la note je met 7 parce que le centrage de la fenêtre m'interresse au plus au niveau. (très égoïste, je sais :-))
Je vais aussi voir les lien proposé.
Je dis un très grand merci parce-que même si cela me parrait compliqué, cela constitue une bonne documentation. Du moins pour moi. (égoïste va... :-))
Bonne journée a tous.


1.Impossible de trouver l'assembly de wrappers pour la bibliothèque de types "VBIDE". MouvApplication
2.Impossible d'appliquer les propriétés de publication pour l'élément "microsoft.office.interop.excel". MouvApplication
3.Impossible d'appliquer les propriétés de publication pour l'élément "microsoft.vbe.interop". MouvApplication
4.Impossible d'appliquer les propriétés de publication pour l'élément "office". MouvApplication
5.Le composant référencé 'VBIDE' est introuvable.
Charles Racaud
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
27
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
ManuAntibes
Messages postés
487
Date d'inscription
mardi 24 octobre 2000
Statut
Membre
Dernière intervention
23 mars 2019
3
Salut à tous

Je viens de faire une première mise à jour sur le déplacement et les boutons reduire, agrandir et diminuer comme m'a proposer guiguidu25.
Pour le redimensionnement, j'ai pas reussi, un masque Bleu se mets sur ma form.

A+
ManuAntibes
Charles Racaud
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
27
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.