Aller au contenu

Rechercher dans la communauté

Affichage des résultats pour les étiquettes 'alpha'.

  • Rechercher par étiquettes

    Saisir les étiquettes en les séparant par une virgule.
  • Rechercher par auteur

Type du contenu


Forums

  • Discussions communautaires
    • Annonces importantes
    • Suggestions
    • Postulation
    • Présentation des membres
    • Discussions générales
    • Multimédias
    • Jeux vidéos
    • Actualités
    • Aide / Support
    • Études
    • Archives
  • Informatique
    • Projets des membres
    • Autres / Divers / Découvertes
    • Crypto-monnaie(s)
    • Hardware / Electronique
    • Réseaux
    • Gestion de serveur
    • Système d'exploitation : Smartphone
    • Système d'exploitation : Ordinateur
  • Programmation
    • Projets des membres
    • Développement web
    • Développement de logiciels
    • Développement d'applications pour smartphones
    • Outils du développeur
    • Aide / Support
  • Emulation
    • Aion
    • Arma III
    • Dofus
    • Dragonica
    • Emulateurs consoles
    • S4 League
    • FlyFF
    • Grand Theft Auto
    • Minecraft
    • Tera
  • Partenariats
    • <b>WoW Emu - La communauté émulation WoW</b>
    • <b>ActuGaming</b>
    • <b>H-Wars</b>
    • <b>EasyChat - Solution gratuite de chat client et serveur (anciennement Melichat)</b>
    • <b>Le Monde des Lunes</b>
    • <b>DansTonCode</b>

Rechercher les résultats dans…

Rechercher les résultats qui…


Date de création

  • Début

    Fin


Dernière mise à jour

  • Début

    Fin


Filtrer par nombre de…

Inscription

  • Début

    Fin


Groupe


Skype


Site web


AIM


MSN


ICQ


Yahoo


Jabber


Tox


Centres d'interêts


Localisation


Niveau d'étude

1 résultat trouvé

  1. Salut all, Je encore faire un tuto à l'arrache. Donc je vais vous expliquer comment faire pour faire un splashScreen, c'était l'image de présentation ou de chargement que l'on peu voir parfois avec certains programmes. je vais prendre comme exemple: il y a un dégradé de transparence et donc si j'utilise "tranparencyColor" ça va juste me retirer la couleur pure... alors dans ce cas il faut rien mettre dans transparency et mette un code kikoolong, enfin un peu long /!\Les contrôles (outils) ne sont pas visible après la manipulation !/!\ Le code à mettre après "Public Class [Votreforme]" #Region "full_decla" Public Structure BLENDFUNCTION Public BlendOp As Byte Public BlendFlags As Byte Public SourceConstantAlpha As Byte Public AlphaFormat As Byte End Structure Public Const ULW_COLORKEY As Integer = 1 Public Const ULW_ALPHA As Integer = 2 Public Const ULW_OPAQUE As Integer = 4 Public Const AC_SRC_OVER As Byte = 0 Public Const AC_SRC_ALPHA As Byte = 1 Public Const GWL_EXSTYLE = (-20) Public Declare Function UpdateLayeredWindow Lib "user32.dll" (ByVal hwnd As IntPtr, ByVal hdcDst As IntPtr, ByRef pptDst As Point, ByRef psize As Size, ByVal hdcSrc As IntPtr, ByRef pprSrc As Point, ByVal crKey As Integer, ByRef pblend As BLENDFUNCTION, ByVal dwFlags As Integer) As Boolean Private Declare Auto Function SetWindowLong Lib "User32.Dll" (ByVal hWnd As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer Private Declare Auto Function GetWindowLong Lib "User32.Dll" (ByVal hWnd As IntPtr, ByVal nIndex As Integer) As Integer Public Declare Function GetDC Lib "user32.dll" (ByVal hWnd As IntPtr) As IntPtr Public Declare Function ReleaseDC Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal hDC As IntPtr) As Integer Public Declare Function CreateCompatibleDC Lib "gdi32.dll" (ByVal hDC As IntPtr) As IntPtr Public Declare Function DeleteDC Lib "gdi32.dll" (ByVal hdc As IntPtr) As Boolean Public Declare Function SelectObject Lib "gdi32.dll" (ByVal hDC As IntPtr, ByVal hObject As IntPtr) As IntPtr Public Declare Function DeleteObject Lib "gdi32.dll" (ByVal hObject As IntPtr) As Boolean Public Sub SetBitmap(ByVal PNG As Bitmap, ByVal opacity As Byte) If Not (PNG.PixelFormat = Imaging.PixelFormat.Format32bppArgb) Then Throw New ApplicationException("The bitmap must be 32ppp with alpha-channel.") End If Dim screenDc As IntPtr = GetDC(IntPtr.Zero) Dim memDc As IntPtr = CreateCompatibleDC(screenDc) Dim hBitmap As IntPtr = IntPtr.Zero Dim oldBitmap As IntPtr = IntPtr.Zero Try hBitmap = PNG.GetHbitmap(Color.FromArgb(0)) oldBitmap = SelectObject(memDc, hBitmap) Dim size As Size = New Size(PNG.Width, PNG.Height) Dim pointSource As Point = New Point(0, 0) Dim topPos As Point = New Point(Left, Top) Dim blend As BLENDFUNCTION = New BLENDFUNCTION blend.BlendOp = AC_SRC_OVER blend.BlendFlags = 0 blend.SourceConstantAlpha = opacity blend.AlphaFormat = AC_SRC_ALPHA UpdateLayeredWindow(Handle, screenDc, topPos, size, memDc, pointSource, 0, blend, ULW_ALPHA) Finally ReleaseDC(IntPtr.Zero, screenDc) If Not (hBitmap.Equals(IntPtr.Zero)) Then SelectObject(memDc, oldBitmap) DeleteObject(hBitmap) End If DeleteDC(memDc) End Try End Sub #End Region Puis dans Form.load: Dim Param As Long Param = GetWindowLong(Me.Handle, GWL_EXSTYLE) Call SetWindowLong(Me.Handle, GWL_EXSTYLE, Param Or (524288)) Call SetBitmap(Me.BackgroundImage, 255) ___________ Tuto part2, un petit bonus Comment faire une animation et faire en sorte que le splash se ferme un jour xD Il suffit de mettre un timer avec un interval de 1000ms (1sec.) et d'ajouter 2variales de type byte que on va appeler "Anim" et "Loader" (pense bête: faire un tuto sur les variables) Donc vous mettez le code suivant entre de sub (si on le met dedans la variable va toujours se redéclarer et remettre la valeur de base. Dim anim As Byte = 0 Dim loader As Byte = 0 Puis dans le Timer.tick (double clique sur le timer pour le voir) et dedans on va mettre: anim += 1 If anim = 1 Then Me.BackgroundImage = My.Resources.trame1 'la première image de l'animation ElseIf anim = 10 Then Me.BackgroundImage = My.Resources.trame2 ' la seconde ElseIf anim = 11 Then Me.BackgroundImage = My.Resources.trame2 ' la quatrième ou troisième je sais pu loading += 1 anim = 0 End If Dim Param As Long Param = GetWindowLong(Me.Handle, GWL_EXSTYLE) Call SetWindowLong(Me.Handle, GWL_EXSTYLE, Param Or (524288)) Call SetBitmap(Me.BackgroundImage, 255) If loader = 3 Then ' Pensez à mettre la forme suivante à ouvrir et aller dans les préférences de votre projet et changer le style de fermeture par fermeture du dernier formulaire Me.Close() End If Voilà maintenant vous savez faire des SplashScreen stylé le code de base et pas de moi j'ai oublié la source mais je l'ai bcp édité de toute façon Bonne programmation à tous! Cordialement, Mars073
×
×
  • Créer...