Bonjour,
Autant pour moi, mais comme je valide la propriété "Masquer automatiquement la barre des tâches" je n'ai pas remarqué la différence.
A+

Bonjour,
Un projet VB6 sortit de mes archives :-)
http://www.archive-host.com/link/5bc49ff690ffe9dfda36025252525ba8be58a35b.zip
Contient d'autre fonctions comme..
Tester si l'User dispose de droit suffisant.
Autoriser/interdire les différents modes de mise en veilles.
Passer à l'écran de veille.
Éteindre ou de redémarer le PC.
A+

Bonjour,
Je pense que tu cherche un peu midi à quatorze heure :-)

    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        If Me.WindowState = FormWindowState.Maximized Then
            Me.WindowState = FormWindowState.Normal
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
        Else
            Me.WindowState = FormWindowState.Maximized
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        End If
    End Sub

Fait la même chose.
A+

Re tous,
Pour info, en .Net trouver le séparateur décimale du PC

dim Sep As Char
Sep = Application.CurrentCulture.NumberFormat.NumberDecimalSeparator
A+

Re,
Beh oui, j'ai peut-être été un peu heuuu... mais ta façon de répondre m'a un peu "frictionner les oreilles".
Mais comme tu dis, soyons plus constructif.
En VB6 Option explicit était une condition obligatoire si l'ont voulait un code optimum (autant que faire se peu), par contre et à ta décharge, cette 'option' n'est plus aussi impérative en VB.Net, la page "Liste d'erreurs" donne bien plus de renseignements que VB6 n'en donnaient.
Une remarque quand même...
Tu a certainement fait un projet pour tester ta dll ?
En postant uniquement le code de la dll, un débutant devra drôlement chercher pour la comprendre.
Il serait préférable de poster les deux projets, celui du test et celui de la dll, en les regroupant dans un 'Groupe de projet'.
Ainsi, il sera possible de suivre les actions en mode Debug.
Sinon, je n'ai pas trouvés que ton code était aussi brouillon que ça et j'ai tester ta fonction Pâques et elle est juste.
Tu pourrais aussi mettre dans le poste le mode d'emploi pour compiler la dll.
A+

Bonjour,
Je n'ai pas regardé le code et de ce fait, pas analyser, mais pour le fait d'avoir poster un code qui à été composer "à l'arrache" je pointerai ton code à ZERO. (Un puisque zéro y à pas)
Tu dis.. C'est le tout premier code que je poste !! je pense que tu ferais bien de voir comment les autres code sont "bidouillés" avant de poster à nouveau et je pense aussi que tu devrais être un peu plus réceptif aux conseiles qui te sont donnés.
A+

Bonjour,
Ce que je cherchais depuis...
Malgré tout, j'ai eu quelques problème pour faire fonctionner cette source et je les expliques pour éventuellement d'autre utilisateur.
Au premier lancement, la dll ijl11 introuvable, j'ai suivis la remarque plus haut mais pas de résultat.
Etant sous Vista j'ai voulu enrégistré la dll avec RegSvr32, mais l'erreur "Point entrée introuvable" est retournée.
Idem si je met la dll en référence.
Enfin, j'ai trouvé, il faut ouvrir VB6 en tant qu'administrateur, charger le projet, et enfin ajouter ChDir App.path
Et Yooups c'est parfait.
Merci pour cette source.
A+

Re,
Pas de réponse !! donc je m'y suis remis et finalement cela n'a pas été difficile.
A toutes fins utiles.. la fonction qui calcul le rectangle pour inscrire l'image.
w = la largeur de l'image et h la hauteur.
Private Type LaHa
    L As Integer
    H As Integer
End Type
Dim Retour As LaHa


Sub Rapport(ByVal w As Long, ByVal H As Long, Angle As Single)
Dim nAngle As Single
Dim rAngle As Single
Const Pi = 3.141593
Const Rad = Pi / 180
    'Réduit l'angle à 90° si plus grand
    If Angle = 360 Then
        nAngle = 0
    ElseIf Angle > 179 And Angle < 270 Then
        nAngle = 90 - (270 - Angle)
    Else
        nAngle = IIf(Angle < 91, Angle, 90 - (Angle - (Int(Angle / 90) * 90)))
    End If
    'Traduit degrés en radiant
    rAngle = Rad * nAngle
    'retourne la largeur à donner au conteneur
    Retour.L = Arrondi(((w * Cos(rAngle)) + (H * Sin(rAngle))), 0)
    'retourne la hauteur à donner au conteneur
    Retour.H = Arrondi(((H * Cos(rAngle)) + (w * Sin(rAngle))), 0)
End Sub

Public Function Arrondi(ByVal Nombre, ByVal Decimales)
      Arrondi = Int(Nombre * 10 ^ Decimales + 1 / 2) / 10 ^ Decimales
End Function
A+

Bonjour tous,
> Mistern : voir ce snippet http://www.codyx.org/snippet_conversion-images-bmp-jpg-png-avec-gdi_160.aspx
> misterN : tu écrit, au début de ta modif..
'-- pour information un peu de trigo basique...
N'y aurait-il pas moyen de supprimer le "basique...", je m'explique, dans ton approche le calcul se fait pour avoir la possibilité d'inscrire l'image dans le "Gabarit" quel que soit l'angle de rotation.
J'ai étudié la trigono mais il y a tellement longtemps et je ne retrouve plus mes bouquins et j'aimerais faire en sorte que...
En un : l'image s'inscrire entièrement (le plus grand possible) dans le gabarit.
En deux : le gabarit s'adapterait à l'image en modifiant soit la hauteur soit la largeur pour qu'en finale les 4 coins de l'image touche les 4 côtés du gabarit.
Je sais qu'il faut employer Sinus et Cosinus mais je ne sais plus comment.
A l'occasion.. !
Merci d'avance.
A+
(10)

Bonjour,
Tu tape Alt+F11 pour ouvrir l'éditeur.
A+