Ne fonctionne pas sous Visual Studio 2010 Express, alors que le code de JAKNIGHT007 fonctionne bien. Difficile donc pour moi d'effectuer une bonne évaluation.

Par contre coté "écriture", les fonctions GetRelativeValueFromValue et GetRelativeValueFromI sont considérées comme ne renvoyant pas systématiquement une valeur :

Avertissement 1 La fonction 'GetRelativeValueFromValue' ne retourne pas une valeur pour tous les chemins de code. Une instruction 'Return' est-elle manquante ?


En clair, il est préférable d'initialiser avant tout Return, du genre GetRelativeValueFromValue = 0 et GetRelativeValueFromI = 0 en début de fonction.

Il y a encore certains points sur le Thread qui m'échappent pour mon niveau de débutant, mais je me suis inspiré de ce code pour faire un passage de multiples arguments à une fonction exécutée en Thread. Merci donc pour cet exemple qui mériterait tout de même plus de détails en explication.

Il y a par exemple l'appel : Dim result As InfoThread = tmp.EndInvoke("tmp", ar)
Je comprend que la première variable corresponde à la fonction TestDelegateSimple, mais "tmp" semble ne servir à rien ?
C'est une bonne interrogation dans mon cas, car ma fonction Delegate utilise plusieurs paramètres et dans mon programme l'équivalent ne nécessite que : Dim result As InfoThread = tmp.EndInvoke(ar)
Si je supprime "tmp" dans ton code, j'ai bien évidement une erreur. Il y a donc un point qui m'a échappé dans mon code qui ne génère pas d'erreur...

Dernier point, dans mon cas VB Express 2010, la fonction plante en fin de traitement sur :
Me.Label1.Text += vbCrLf + "IsCompleted : " ...

Label1 n'est pas accessible et ne fait pas partie du Thread. Pourquoi ?... Mes connaissances ne sont pas assez bonnes pour y répondre, mais ce n'est pas l'essentiel, si on souhaite juste appréhender le lancement du Thread avec paramètres.


Il me reste à trouver le moyen de faire attendre un Thread à la libération d'une ressource commune... J'aurais surtout besoin d'un bon Tuto dans ce domaine. je vais chercher dans les autres sources :-)

Intéressant ce code et la discussion autour du Thread, par contre depuis 2006, le Tuto ne semble pas avoir abouti par une présence sur le site... Dommage !

Excellent pour débutant ! Fonctionne avec VB 2010 Express

Merci, car pour un débutant sur le sujet c'est instructif. A titre d'info, j'ai utilise VB 2010 Express sans souci.

Excellente initiative et de partage d'idée !
Au regard des premiers commentaires, chacun est libre de faire ce qu'il veut avec ses clients, mais je rejoins parfaitement le fait de pouvoir mettre un terme à une utilisation abusive.
C'est une source qui montre des capacités d'utilisation de VB. Le contributeur n'a pas à trouver une utilité à un code partagé et, chacun, à son niveau (le mien est faible, mais curieux), peut apprécier d'apprendre et de comprendre.
A mon niveau, j'en mesure bien l'utilité pour un besoin personnel de "nettoyage" automatique, ce bout de code est bien approprié.
Donc une bonne note, merci pour ce code et au plaisir de parcourir une prochaine contribution.

Testé sous VB Express 2010 et W7 64bits : je ne peux pas sélectionner les jours, du moins les boutons options n'apparaissent pas comme dans la copie d'écran.

Je n'ai pas cherché beaucoup... Mais il y a un dysfonctionnement quelque part. Car après ouvert le fichier Semaine.vb [Design], j'ai eu une erreur dans Semaine.Designer.vb sur la ligne Me.S = New Calendrier.DataGridViewNotSelection() Ce qui n'est pas normal. Bref, soit il y a un truc qui ne va pas dans mon install de VB Express (une ressource manquante disponible uniquement dans les éditions non Express), soit j'ai loupé un truc... Mais je n'ai fait qu'ouvrir le fichier .sln

A noter qu'à la première ouverture, l'exécution n'a posé aucun souci, sauf que les jours ne pouvaient être sélectionnés.

En tout cas, l'affichage du calendrier est sympa !

Je rejoins le premier commentaire. Une version en VB.net serait fortement plus intéressante et éducative. Bravo pour ce travail.

Ouvert sans souci avec Visual Studio 2010 Express. Très bon soft !

Juste pour essayer de mettre tout le mon de d'accord et faire un bon copier/coller pour ceux que cela intéressera :


    Function strBefore(ByVal thisStr As String, ByVal inThiStr As String) As String
        strBefore = vbNullString

        Try
            strBefore = Left(inThiStr, InStr(inThiStr, thisStr) - 1)

        Catch Err As Exception
            Call MsgBox("Unable to get before String: " & thisStr & vbCrlf & Err.Message)

        End Try
    End Function

    Function strAfter(ByVal thisStr As String, ByVal inThiStr As String) As String
        strAfter = vbNullString

        Try
            strAfter = Right(inThiStr, Len(inThiStr) - InStr(inThiStr, thisStr) - Len(thisStr) + 1)

        Catch Err As Exception
            Call MsgBox("Unable to get after String: " & thisStr & vbCrlf & Err.Message)

        End Try
    End Function

    Function strBetween(ByVal thisStr As String, ByVal thisSecondStr As String, ByVal inThiStr As String) As String
        strBetween = vbNullString

        Try
            strBetween = strAfter(thisStr, strBefore(thisSecondStr, inThiStr))

        Catch Err As Exception
            Call MsgBox("Unable to get between String: " & thisStr & " - " & thisSecondStr & vbCrlf & Err.Message)

        End Try
    End Function