Donc HTTP File Upload

Problème, c'est je trouve pas les source sur internet.

Je recherche, plutôt un truc comment sa là ---> ICI

A vrai dire, sa mais pas pour du asp mais plutôt php ---> 

Source de

Problème, je suis pas un programmeur, donc un petit coup de main, c'est sympa ....:)

Merci de votre réponse

Signé amicalement Unpacker

Me revoici avec mon ami Vb.Net :siffle:

Je souhaite mettre en place un filtrage sur un textBox pour ne saisir que des valeurs décimales.

Visiblement, on ne peut pas définir un format qui permettrait de faire ça simplement. Donc j'ai codé une 'tite méthode pour faire mon filtrage. Elle fonctionne...à ceci près qu'il reste un problème avec la touche '.' du pavé numérique qui est en étroite relation avec les paramètres régionaux de la machine...toujours le même problème.

Le problème est le suivant : impossible d'obtenir la virgule depuis le pavé numérique (j'ai vérifié, je suis bien en format ',' pour le séparateur décimal sur ma machine).

Pour voir, j'ai fait un test : nouveau projet, nouvelle fenêtre, un unique textBox dans la fenêtre, compilation, [s]bourrinnage[/s] essai dans le champ de la touche point du pavé numérique : résultat, le '.' s'affiche et non la ','. Génial...

Donc si jamais quelqu'un à une solution, je suis preneur !

Pour info, voici ma gestion de filtrage :

Private Const K_FILTRE_DOUBLE As String = "1234567890,"


' L'événement exécuter sur les frappes claviers dans mon champ
Private Sub txtDimLong_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtDimLong.KeyPress
    filtrerFrappe(sender, e, K_FILTRE_DOUBLE)
End Sub


'
' Filtre la frappe dans un champ selon les éléments autorisés.
'
' @param    [TextBox]                txtCourant    Champ concerné par le filtrage.
' @param    [KeyPressEventArgs]        e            L'objet qui permet de contrôler la frappe clavier.
' @param    [String]                sFiltre        Chaîne qui contient la liste des caractères autorisés.
' @return    [Boolean]                            True si caractère autorisé, False sinon.
'
Private Sub filtrerFrappe(ByRef txtCourant As TextBox, ByRef e As System.Windows.Forms.KeyPressEventArgs, ByVal sFiltre As String)
    Dim bFiltrer As Boolean = False
    Dim cFrappe As String = e.KeyChar

    ' Vérification que le caractère saisi est autorisé
    bFiltrer = (sFiltre.IndexOf(cFrappe) = -1)

    ' On vérifie que le caractère "," n'a été saisi qu'une seule fois et pas en début de frappe
    If cFrappe = "," Then
        If txtCourant.Text.IndexOf(cFrappe) <> -1 Then
            bFiltrer = True
        Else
            bFiltrer = (txtCourant.Text.Length = 0)
        End If
    End If

    ' Touche backspace autorisée
    If cFrappe = ControlChars.Back Then bFiltrer = False

    ' Autorisation ou interdiction de la frappe
    e.Handled = bFiltrer
End Sub

Je n'attends pas de solution ici. J'ouvre cette discussion uniquement pour signaler un problème sur lequel je suis tombé et qui m'a causé une sacrée de perte de temps.

Ce problème concerne l'utilisation du champ NumericUpDown lorsqu'il est branché sur un champ d'une base de données.

L'environnement est le suivant : WinXp Home SP2, Visual Basic .Net 2003, FW 1.1 SP1.

Prenons un contexte d'exemple pour illustrer le problème : une fenêtre est composée d'une listBox et de champs (TextBox, NumericUpDown, ComboBox, etc...). La listBox contient une liste d'enregistrements d'une table. Les champs sont tous branchés sur des champs de la table grâce à la propriété DataBinding. Le fonctionnement est simple : si l'on sélectionne un élément dans la listBox, tous les champs se mettent à jour tous seul avec les valeurs de l'enregistrement courant. Je précise que les propriétés des champs ont leurs valeurs par défaut, mise à part la propriété DataBinding.

Vous en conviendrez, ce que je viens de décrire est un fonctionnement ultra classique et largement utilisé dans bon nombre d'applications.

Maintenant, je prends un NumericUpDown présent parmi les objets que j'ai placé dans la fenêtre. Sa propriété Minimum qui définit la valeur minimum qu'il peut prendre vaut 0. Je change cette valeur pour la mettre à 1 parce que je ne veux pas que mon utilisateur puisse mettre 0 pour ce champ. Je recompile. J'ouvre la fenêtre concernée : les données ne s'affichent plus dans la listBox !. C'est à n'y rien comprendre...et d'ailleurs je n'y comprends rien ...

Le constat est le suivant : si l'on définit une valeur minimale > 0 d'un NumericUpDown qui est branché sur un champ de base de données, il se produit un événement dont je ne connais pas la cause qui plante le chargement des enregistrements. ! Cela m'a valu quelques heures de questionnement intense sur ce que j'avais bien pu écrire dans mon code pour que ce problème se produise. J'en suis arrivé à refaire une fenêtre entièrement et en plaçant chaque objet un par un, en recompilant à chaque modification, pour pouvoir déterminer la source du problème...et croyez-moi, quand on en arrive là, ça bouffe du temps !!

Une autre fois, j'étais tombé sur ce problème mais avec la valeur maximale. Si je chargeais un enregistrement dont la valeur du champ était supérieure à la valeur max définie, il se produisait la même chose. Je trouve moyennement normal que tout se bloque lorsque cela se produit ; bref passons. Mais là, j'ai vérifié, je suis certain que les valeurs que je charge sont bien comprises dans l'intervalle de valeurs de mon NumericUpDown.

Ma solution est simple : je laisse la propriété Minimum à 0 pour ne pas contrarier Vb et je gère moi-même la limite inférieure avec une toute petite procédure appelée à chaque changement de la valeur du champ.

Voilà, vive Vb ! Je serais bien sûr ravi de voir une réponse à ce message pour me montrer que j'ai tord et que je me trompe royalement...

Je suis très énervé...

La situation est la suivante : j'ai une fenêtre. Dans cette fenêtre j'ai une listBox. Cette listBox possède une DataSource et affiche les enregistrements d'une table (TableA). Cette table contient des champs qui sont les identifiants d'élements présents dans une autre table (TableB).

A droite de cette listBox, j'ai autant de comboBox que mes champs identifiants. Chaque comboBox est alimentée par la TableB. Chaque comboBox voit sa propriété DataBinding.SelectedValue branchée sur chaque champ identifiant auquel elle correspond de la TableA.

Le fonctionnement final souhaité est le suivant : je choisi un élément de ma listBox et les combo se mettent à jour en fonction de cette sélection.

Simple, non ?

Maintenant, mon problème : quand j'enregistre l'enregistrement courant, je veux pouvoir remettre mes champs identifiants à 0. Pour ce faire, je vérifie chaque comboBox : si combo.text vaut "", alors c'est que l'utilisateur veut effacer le lien, donc je remet mon id à 0.

Sauf que ! Prenons un cas pratique sur une combo. L'élément sélectionné est "toto"(c'est-à-dire que dans ma TableB, j'ai un champ défini à "toto"). Je sélectionne cette valeur dans le champ texte de ma combo avec ma souris (souffrante vue les misères que je lui inflige en raison de mon énervement ), j'appuie sur la touche Suppr. Le texte s'efface. J'appuie sur mon bouton Enregistrer et je passe en mode pas à pas.

J'arrive sur la ligne suivante :

If maCombo.Text <> "" Then .Item(K_CHAMP) = maCombo.SelectedValue Else .Item(K_CHAMP) = 0

(Je rappelle que j'ai effacé le texte de ma combo). A cet endroit, maCombo.Text vaut toujours "toto" !!

Que dois-je faire ? Comment savoir que j'ai effacé le texte de ma combo ?? Pourquoi .text vaut encore la précédente valeur alors que je l'ai effacée ??

Aidez-moi s'il-vous-plaît...je vais me tirer une balle bientôt...

Je crois que si le projet de recette sur lequel je me prend encore la tête dessus était à refaire je prendrai RealBasic.

C'est par ici que ça se passe

Je dois être vraiment supra débile...mais je n'arrive pas à concaténer une chaîne ! Ca n'est pas la 1ère fois que je me heurte à ce problème (j'ai déjà lutté sur exactement la même chose pendant mes essais avec les conversions base64). Et ça commence à me chauffer !!

Voici le bout de code que j'ai :

Dim manufSerialNum As String = ""

Dim myChar, i As Integer
For i = 0 To 7
    ULStat = GetConfig(2, BoardNum, i, 224, myChar)
    manufSerialNum &= Convert.ToChar(myChar).ToString()
Next i

Explications : manufSerialNum est la chaîne que je veux construire. La méthode GetConfig() est une fonction importée d'une dll dont la seule chose à savoir est que le dernier paramètre, myChar, est un entier passé par référence. Cet entier représente un caractère qui est converti à la ligne suivante.

En mode pas à pas, Convert.ToChar(myChar) me renvoie des choses comme "6"c. J'ai donc bien un résultat pour chaque caractère.

Pourquoi alors ma chaine manufSerialNum reste vide ??? Pouuuuuurquoiiii ?? :'( :'( :'(

PS : ca me gave Vb.Net !!!!!!!!!!

Tout est dans la question : je cherche le moyen de décoder une chaine qui est en base 64.
J'avais trouvé une fonction qui fait ça mais elle est écrite en VB or il me faut ça en VB.Net et je n'ai pas su l'adapter.
---
J'ai donc poursuivi mes recherches jusqu'à trouver le namespace pour Vb.Net qui permet de gérer le format base 64 :

System.Security.Cryptography

Les classes qui permettent l'encodage et le décodage sont les suivantes :

FromBase64Transform
ToBase64Transform

J'ai trouvé dans ces pages un exemple qui permet de décoder un fichier en base64 et de mettre de résultat dans un nouveau fichier. J'ai donc essayé d'adapter cet exemple avec le peu de connaissances que j'ai en Vb.Net pour convertir une chaine en base64 vers une chaine décodée et voici ce que j'ai obtenu :

'
' Fonction de décodage de chaine encodée au format base64
'
' @param    [String]    base64String    La chaine à décoder.
' @return   [String]                    La chaine décodée.
'
Public Function Base64Decode(ByVal base64String As String) As String
        
    Dim myTransform As New FromBase64Transform(FromBase64TransformMode.IgnoreWhiteSpaces)
    Dim myOutputBytes(myTransform.OutputBlockSize - 1) As Byte
    Dim sChaineDecodee As String = ""

    Dim myInputBytes(base64String.Length - 1) As Byte
    myInputBytes = System.Text.Encoding.ASCII.GetBytes(base64String)

    'Transform the data in chunks the size of InputBlockSize.
    Dim i As Integer = 0
    While myInputBytes.Length - i > 4 'myTransform.InputBlockSize
        myTransform.TransformBlock(myInputBytes, i, 4, myOutputBytes, 0) 'myTransform.InputBlockSize
        i += 4 'myTransform.InputBlockSize

        sChaineDecodee &= System.Text.Encoding.Default.GetString(myOutputBytes)
    End While

    'Transform the final block of data.
    myOutputBytes = myTransform.TransformFinalBlock(myInputBytes, i, myInputBytes.Length - i)
    sChaineDecodee &= System.Text.Encoding.Default.GetString(myOutputBytes)

    'Free up any used resources.
    myTransform.Clear()

    Return sChaineDecodee

End Function

L'ennui c'est que la chaine retournée est vide et que je ne sais pas comment résoudre ce problème.

sChaineDecodee &= System.Text.Encoding.Default.GetString(myOutputBytes)

C'est ici le coeur du problème : sChaineDecodee vaut toujours vide. Quelle solution dois-je utiliser pour passer du tableau d'octets à la chaine ?

Merci pour vos réponses.

Cette fois-ci je souhaite décharger une feuille à son chargement  :blink:  :wacko:  :blink:

Je m'explique : je traite chaque feuille à peu près comme un module, c'est-à-dire que toute les opérations concernant la feuillle et son affichage se trouve dans la feuille.
Mon problème est que sur le form_load()  j'initialise toute ma feuille, surtout les grilles qui sont le résultat de requêtes.
Seulement si il n'y a aucun tuple à afficher, j'aimerais afficher un MsgBox et décharger la feuille car il n'y aura aucune opération possible dessus.

J'espère avoir été clair.

Le setFocus() ne fonctionne pas non plus sur un form_load(), mais bon ça c'est "normal" vu que la page n'est pas chargée.

Si vous avez une idée...

Bon j'ai créer un état grâce à un DataReport avec plein de jolie choses dedans mais quand je fait :

DataReport1.Show

j'obtiens une page blanche !! Pourquoi ???

Bon cette fois ci je souhaiterai avoir une ToolBar présente dans toute mon application mais qui contiendrait autre chose que des boutons. Par exemple : un label ! Je sais c'est idiot mais je n'y arrive pas. Il est transparent. Je pense qu'il doit se trouver derrière la ToolBar mais je ne sais pas comment le mettre en premier plan. J'ai essayé de mettre la ToolBar en arrière plan mais rien y change... 

Donc pour résumer, il me faudrait : des label, textbox, et bouton (pi p'tet un pictureBox ). En fait je m'en servirais comme un mini formulaire de recherche. Le resultat de cette recherche sera utilisée dans plusieurs feuilles de l'application.

A défaut de mieux, pour l'instant je peux utiliser une StatusBar pour afficher des infos et utiliser une feuille à part pour la recherche mais bon ...  c'est pas terrible.

Si vous savez comment faire ou avez une solution alternative je suis prenneur !

Les principales nouveautés de VB.net

    * Tout est objet et hérite de Object
    * Support de l’héritage.
    * Gestion d’ erreurs avec Try…Catch…Finally.
    * Surchage.
    * Redéfinission.
    * Constructeurs et destructeurs.
    * Définition d’interface.
    * Délégation.
    * Multi-Threading.
    * Tableaux et collections de base 0. Option Base disparaît.
    * True = 1.
    * Affectation d’une valeur à une variable pendant sa définition (Dim I as Integer = 4)
    * Les Long deviennent (enfin) des Integer (32bits) et les Integer des Short (16bits). Les Long sont des 64 bits.
    * Currency, Variant disparaissent.
    * DefInt, DefLng, etc. disparaissent.
    * On ne peut plus définir la taille d’un String (Dim sM as String * 10 ne marche pas).
    * Les opérations sur les bits se font avec les nouveaux mots clés BitAnd, BitOr, BitNot et BitXor.
    * Les propriétés par défaut disparaissent (TextBox1 = « toto » ne marche pas alors que TextBox1.Text = « toto » oui)
    * La syntaxe pour les propriétés change.
    * Set disparaît.
    * Il n’y a plus de variable Static.
    * Le passage de paramètre par défaut est ByVal au lieu de ByRef.
    * While…Wend est au cimetière.
    * Avec While…Wend, vous trouverez également les tombes de :
                     As Any, Atn, Circle, Line, Date, Debug.Assert, Debug.Print, DoEvents, Empty, Eqv, Initialize,
                     Terminate, IsEmpty, IsMissing, IsNull, IsObject, Null, MsgBox, Round, Rnd, Sqr, Sgn, Time, etc.

Source : www.c2i.fr

Très bon article sur l'histoire du Basic et son devenir.

Au fait tu développe sur quoi Rupert ??

envoi de mail

Public Function mail(adresse As String, sujet As String, message As String, origine As String, MonFichier As String)
' Fonction de mail

Set objmail = CreateObject("CDONTS.NewMail")
        objmail.From = origine
        objmail.To = adresse
        objmail.Subject = sujet
        objmail.Body = message
        objmail.AttachFile MonFichier
        objmail.Send

End Function

Cette fonction nécessite l'utilisation de la dll CDONTS qui est par défaut avec un serveur IIS, si vous ne l'avez pas, telechargez la et executer ensuite la ligne suivante

regsvr32 cdonts.dll

cela aura pour effet de l'enregistrer aupres de votre os

Bon alors mon problème c'est que j'ai créé une application multi-documents (qui peut donc contenir plusieurs feuilles) mais elle n'ont pas de scrollbar ! Il m'arrive donc de ne pas pouvoir accéder au informations qui se trouve en bas de page.    Surtout lorsque quelqu'un se trouve en 800x600 !

Comment je dois faire pour l'activer ou même la forcer ??

Bonne journée ...

Declare function maFonction Lib "maDll" Alias "nomDeLaFonctionDansLaDll" (ByVal I As Integer) As Long

maFonction : nom de la fonction qu'on lui affecte pour le code VB
lib : indique une liaison avec la DLL
Alias : nom réel de la fonction dans la DLL

NB : l'alias n'est pas utile si on utilise le même nom

Ensuite, on l'utilise normalement :

ret = maFonction(154)

Attention, si la DLL a été écrite en C les types ne sont pas identique.
Voici le tableau d'équivalence :

VB 6   ---> C / C++ 

====================

Integer---> bool, short 
Long   ---> int, long 
N/A    ---> unsigned short, unsigned int, unsigned long 
Single ---> float 
Double ---> double 

Voili voilou !