5/5 (53 avis)
Vue 24 254 fois - Téléchargée 4 068 fois
'Il suffit de mettre ce code dans votre feuille : Option Explicit Dim Skin As New cls_Skin Dim frmX As Integer, frmY As Integer Private Sub Form_DblClick() If frmY <= Skin.HeightTitre Then If Me.WindowState = 0 Then Me.WindowState = 2 Else Me.WindowState = 0 End Sub Private Sub Form_Load() Skin.Open_Skin Me, App.Path & "\\skin\\defaut.ini" Skin.Active_LimResize comSkin1.Top = Skin.Menu_PosY comSkin1.Left = Skin.Menu_PosX End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Skin.FormMouseDown Button, X, Y End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Skin.FormMouseMove X, Y frmX = X: frmY = Y End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Skin.FormMouseUp Button, X, Y End Sub Private Sub Form_Resize() Skin.FormResize End Sub Private Sub Form_Unload(Cancel As Integer) Skin.Desactive_LimResize Set Skin = Nothing End Sub
24 févr. 2007 à 20:42
sinon c'est super !
25 déc. 2006 à 05:29
22 oct. 2006 à 15:29
10/10
14 juil. 2006 à 11:25
En fait, disez moi les gas est ce qu'il y a quelque qui aime mirosoft et surtout WINXP.
8 avril 2005 à 12:14
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.