Commentaires de NHenry sur tout CodeS-SourceS

286 commentaire(s) de NHenry sur des sources sur tout CodeS-SourceS

Le : 13/05/2008 17:04:31
Source : DICTON DU JOUR

Bonjour,

Petite remarque :
Si ton fichier Dicton n'est pas présent, ton appli se plante lamentablement (pas executé, mais juste regardé le code).

Ensuite, dommage que les dictons soient en Anglais.

Sur ce, bonne continuation.

Le : 07/05/2008 09:34:19
Source : COMPACTER ET RÉPARER UNE BASE DE DONNÉES ACCESS

Bonjour,

MERCI, je n'ai même pas eu besoin de chercher longtemps pour trouver une solution fonctionnelle.

Juste quelques remarques :
- La variable strConnectionString n'est pas utilisée
- La ligne
objJRO.GetType().InvokeMember("CompactDatabase", Reflection.BindingFlags.InvokeMethod, Nothing, oJRO, oParams)
est fausse, ce n'est pas "objJRO" mais "oJRO"
- La ligne
strLdbPath = Mid(pSource, 1, Len(pSource) - 3) & "ldb"
n'est pas très .NET, je lui préfère :
strLdbPath = pSource.Substring(0, pSource.Length - 3) + "ldb"

Et un 10/10 pour m'avoir aidé.

Le : 14/04/2008 14:35:57
Source : HORLOGE A AIGUILLE TOUTE SIMPLE

Bonjour,

En VB6, si ton image clignote c'est que soit tu n'a pas mis AutoRedraw=True au bon controle, soit il y a un pb ailleurs, mais dans ce cas, je ne peux rien sans avoir le code (voir sur le forum pour rechercher une explication).

Le : 11/04/2008 15:41:56
Source : HORLOGE A AIGUILLE TOUTE SIMPLE

Bonjour,

Non, c'est une propriété de la form, PictureBox et autres contrôles pouvant contenir des images.

Le : 11/04/2008 08:43:11
Source : HORLOGE A AIGUILLE TOUTE SIMPLE

Bonjour,

Oui, si tu n'as pas activer le "AutoRedraw" du conteneur de l'image.

Le : 10/04/2008 09:29:27
Source : HORLOGE A AIGUILLE TOUTE SIMPLE

Bonjour,

En effet, une erreur idiote (pas d'autre mot sur le clavier pour la qualifier) :

Dans la procédure du Timer :
DrawAiguille Heures, 24, 30

En clair, l'aiguille des heures fait un tour en 24h et non 12 :/
correction :
DrawAiguille Heures, 12, 30

Le : 09/04/2008 13:59:37
Source : HORLOGE A AIGUILLE TOUTE SIMPLE

Message envoyé en pv :
Merci beaucoup pour la réponse !
J'ai essayé ce code encore ce matin mais je crois qu'il y'a une erreur que je n'arrive pas à gérer.
Il est 7:55 chez moi mais ta source m'affiche 4:55

J'ai modifier :
Const CentreX As Double = 60
Const CentreY As Double = 60
pour centrer les aiguilles, c'était là le truc, mais vois l'erreur qu'il me donne :s

Pourrais tu m'indiquer stp ?

Réponse :

Comment tu appel la fonction (avec le traitement de l'heure) ?

Le : 09/04/2008 11:10:45
Source : CLASS POUR IMPRIMER UNE DATAGRIDVIEW

Bonjour,

Super classe, mais j'ai apporter quelques modifications pour gérer les images (colonnes de type Byte() ) :

Dans la procédure :
DrawRows :
' Printing the cell text
g.DrawString(TheDataGridView.Rows(CurrentRow).Cells(CurrentCell).EditedFormattedValue.ToString(), RowFont, RowForeBrush, CellBounds, CellFormat)

remplacée par :
                    ' Printing the cell text
                    'Modification NH : gestion des images
                    If TypeOf TheDataGridView.Rows(CurrentRow).Cells(CurrentCell).Value Is Byte() Then
                        Dim lLocation As Point = New Point(CInt(CellBounds.Location.X), CInt(CellBounds.Location.Y))
                        g.DrawImageUnscaled(Bitmap.FromStream(ByteArrayToStream(DirectCast(TheDataGridView.Rows(CurrentRow).Cells(CurrentCell).Value, Byte()))), lLocation)
                    Else
                        g.DrawString(TheDataGridView.Rows(CurrentRow).Cells(CurrentCell).EditedFormattedValue.ToString(), RowFont, RowForeBrush, CellBounds, CellFormat)
                    End If

Note : code de la fonction ByteArrayToStream :
    ''' <summary>
    ''' Transforme un tableau d'octet en flux
    ''' </summary>
    ''' <param name="pBytes">Tableau à convertir</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function ByteArrayToStream(ByRef pBytes As Byte()) As IO.Stream
        Dim lMem As New IO.MemoryStream
        lMem.Write(pBytes, 0, pBytes.Length)
        Return lMem
    End Function

Et dans Calculate :
tmpSize = g.MeasureString(TheDataGridView.Rows(j).Cells(i).EditedFormattedValue.ToString(), tmpFont)

remplacé par :

                    'Modification NH : gestion des images
                    If TypeOf TheDataGridView.Rows(j).Cells(i).Value Is Byte() Then
                        tmpSize = Bitmap.FromStream(ByteArrayToStream(DirectCast(TheDataGridView.Rows(j).Cells(i).Value, Byte()))).Size
                    Else
                        tmpSize = g.MeasureString(TheDataGridView.Rows(j).Cells(i).EditedFormattedValue.ToString(), tmpFont)
                    End If

Sinon, j'ai une question, que faut-il modifier pour forcer l'impression sur une seule page en largeur (comme dans Excel) ?

Je note rarement les sources, mais là je fais une exception (9/10, car ne gérait pas les images et pas trouvé la possibilité de mettre sur une seule page).

Le : 09/04/2008 09:07:20
Source : HORLOGE A AIGUILLE TOUTE SIMPLE

Bonjour,

Tu as 2 variables dans :

# Private Sub DrawAiguille(ByVal Value As Double, ByVal Max As Double, ByVal Longu As Double)
# Dim X As Double
# Dim Y As Double
# X = Sin((Value / (Max / 2)) * PI) * Longu + CentreX
# Y = Cos((Value / (Max / 2)) * PI) * (0 - Longu) + CentreY
# Line (CentreX, CentreY)-(X, Y)
# End Sub

CentreX et Centre Y, c'est celles-la qu'il faut modifier.

Enfin je penses, ça fait tellement longtemps que je n'ai pas touché à cette source ;)

Le : 07/03/2008 14:37:00
Source : TACHE PLANIFIÉES (PETITE BLAGUE)

Les # sont issu de la copie du code sources par la visionneuse de code CS, ils remplacent les numéros de ligne, tu peux les ignorés.

"Même les tiens Nhenry" sachant que j'en ai mis (au moment de ta réponse) qu'un, il me semble que le pluriel c'est à partir de deux. :p

Faut bien commencer un jour.