test de ma source www.vbfrance.com/code.aspx?ID=41455

Question

'# LE programme de démo


Public
Sub Main()
   MsgBox "Hello world!"
EndSub


By Renfield






Renfield





Admin CodeS-SourceS

- MVP Visual Basic

Renfield · Answer

'# LE programme de démo


Public
Sub Main()
   MsgBox "Hello world!"
EndSub


By Renfield








Renfield





Admin CodeS-SourceS

- MVP Visual Basic

Renfield · Answer

'# LE programme de démo

Public
Sub Main()
   MsgBox "Hello world!"
EndSub
,

----

By Renfield






Renfield





Admin CodeS-SourceS

- MVP Visual Basic

Renfield · Answer

'# LE programme de démo

Public
Sub Main()
   MsgBox "Hello world!"
EndSub,

----

By Renfield








Renfield





Admin CodeS-SourceS

- MVP Visual Basic

jmfmarques · Answer

Et zut ! je voulais mettre 10, j'ai cliqué trop vite... ça a marqué 8 ! et je ne peux corriger !
Un admin pour supprimer ma note, afin que je puisse recommercer et mettre un 10, s'il vous plait ?

Nix · Answer

Visiblement ta note a été supprimée par un admin suite a ta demande, tu peux de nouveau renoter ;-)

A++

Nix 

[MVP VB, VB .NET ASP .NET]
Membre fondateur de Developers Association

jmfmarques · Answer

Ben non...
J'obtiens maintenant le message :
"Il y a eu une erreur dans la notation.Veuillez réessayer"
Ce que je réessayte... mais en vain : toujours le même message !

Renfield · Answer

'# LE programme de démo

Public
Sub Main()
   MsgBox "Hello world!"
EndSub
,

----

By Renfield

Renfield · Answer

bon, ben ca m'a l'air de fonctionner sur le forum, ce coup ci...
le site ou la freetextbox supprime l'attribut style des div... obligé donc de passer par un tableau, et les attributs HTML 'classiques'

Renfield
Admin CodeS-SourceS- MVP Visual Basic

jrivet · Answer

Lut,

Je refait donc le test avec le même code que ce matin:

PrivateSub CommandButton1_Click()
Dim Ctrl As Control
ForEach Ctrl In Me.Controls
    IfTypeOf Ctrl Is MSForms.TextBox Then Ctrl.Value = vbNullString
Next
EndSub

[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

Re,
Heu....
Bon alors je me suis dit que j'avais peu être la polio alors j'ai effacer toute trace de ta dll.
Je viens de la retélécharger.
Et donc voici maintenant mon premier test avec FireFox (=> je suis avec un IE)

PrivateSub CommandButton1_Click()
Dim Ctrl As Control
    ForEach Ctrl In Me.Controls
        IfTypeOf Ctrl Is MSForms.TextBox Then Ctrl.Value = vbNullString
    Next
EndSub
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

Test avec Internet Exploreur

PrivateSub CommandButton1_Click()
Dim Ctrl As Control
   ForEach Ctrl In Me.Controls
       IfTypeOf Ctrl Is MSForms.TextBox Then Ctrl.Value = vbNullString
   Next
   Set Ctrl = Nothing
EndSub
By Renfield

@+: Ju£i?n
Pensez: Réponse acceptée

Renfield · Answer

étrange...(IE6)

'# LE programme de démo
PublicSub Main()
   MsgBox "Hello world!"
EndSub, ----
By Renfield

Renfield
Admin CodeS-SourceS- MVP Visual Basic

jrivet · Answer

re
Et bien oui étrange....
Quelle est la derniere modif que tu es faite dans le code.. peu être que l'Upload n'a pas réussi.

C'est dommage... 
Pour info je suis sous Windows 2000 Service Pack 4
J'utilise VB6 SP6
Et FireFox 2.0.0.1... 

Si quelqu un à la même config, ce serait cool qu'il fasse un test, pour voir si je suit vraiment un NeuNeuh....
@+: Ju£i?n
Pensez: Réponse acceptée

Renfield · Answer

j'ai changé tout en bas du ficguer CSyntax... j'ai modifié le code HTML de l'entete/pied de document, 
l'idée c'est de ne plus utiliser des div style='...'  mais des table, avec des attributs HTML 'classiques'

L'upload a fonctionné : tu a conservé l'indentation cette fois-ci

par contre, je vois un soucis dans l'export... je n'utilise plus  pour conserver les blancs, etc... et les mots apparaissent collés :S

ma source va finir par devenir la source la plus régulièrement mise a jour :(

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Renfield · Answer

'# LE programme de démo

Public Sub Main()
   MsgBox "Hello world!"
End Sub,

----

By Renfield






Renfield





Admin CodeS-SourceS

- MVP Visual Basic

violent_ken · Answer

Violent Ken

Test IE 7






'-------------------------------------------------------
'//APIs
'-------------------------------------------------------
'conversions de système de temps
Public
Declare
Function FileTimeToSystemTime Lib"kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As LongPublicDeclareFunction FileTimeToLocalFileTime Lib"kernel32" (lpFileTime As FILETIME, lpLocalFileTime As FILETIME) As LongPublicDeclareFunction SystemTimeToFileTime Lib"kernel32" (lpSystemTime As SYSTEMTIME, lpFileTime As FILETIME) As LongPublicDeclareFunction LocalFileTimeToFileTime Lib"kernel32" (lpLocalFileTime As FILETIME, lpFileTime As FILETIME) As Long'APIS pour les menus dynamiquesPublicDeclareFunction CreatePopupMenu Lib"user32" () As LongPublicDeclareFunction InsertMenuItem Lib"user32.dll"Alias"InsertMenuItemA" (ByVal hMenu As Long, ByVal uItem As Long, ByVal fByPosition As Long, lpmii As MENUITEMINFO) As LongPublicDeclareFunction TrackPopupMenuEx Lib"user32" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal hwnd As Long, ByVal lptpm As Any) As LongPublicDeclareFunction GetCursorPos Lib"user32" (lpPoint As POINTAPI) As LongPublicDeclareFunction DestroyMenu Lib"user32" (ByVal hMenu As Long) As Long





By Renfield

violent_ken · Answer

Violent Ken
Test FireFox 2

'-------------------------------------------------------
'//APIs
'-------------------------------------------------------

'conversions de système de temps
PublicDeclareFunction FileTimeToSystemTime Lib"kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long
PublicDeclareFunction FileTimeToLocalFileTime Lib"kernel32" (lpFileTime As FILETIME, lpLocalFileTime As FILETIME) As Long
PublicDeclareFunction SystemTimeToFileTime Lib"kernel32" (lpSystemTime As SYSTEMTIME, lpFileTime As FILETIME) As Long
PublicDeclareFunction LocalFileTimeToFileTime Lib"kernel32" (lpLocalFileTime As FILETIME, lpFileTime As FILETIME) As Long

'APIS pour les menus dynamiques
PublicDeclareFunction CreatePopupMenu Lib"user32" () As Long
PublicDeclareFunction InsertMenuItem Lib"user32.dll"Alias"InsertMenuItemA" (ByVal hMenu As Long, ByVal uItem As Long, ByVal fByPosition As Long, lpmii As MENUITEMINFO) As Long
PublicDeclareFunction TrackPopupMenuEx Lib"user32" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal hwnd As Long, ByVal lptpm As Any) As Long
PublicDeclareFunction GetCursorPos Lib"user32" (lpPoint As POINTAPI) As Long
PublicDeclareFunction DestroyMenu Lib"user32" (ByVal hMenu As Long) As Long
[code.aspx?ID=41455 By Renfield]

violent_ken · Answer

Violent Ken
Hum, bug sous IE7 (désolé d'avoir déformé la page au passage ^^)
@+

Renfield · Answer

peux tu tester avec une fonction, ou autre chose que des declarations APIs ?  
(les declarations d'api ont une spécificité)

merci d'avance violent_ken

Renfield
Admin CodeS-SourceS- MVP Visual Basic

violent_ken · Answer

Violent Ken

TEST IE7






'//LANCE LE DECOUPAGE
If tMethode.tMethode = [Taille fixe] Then'alors on découpe en fixant la taille'calcule le nombre de fichiers nécessaire et la taille du dernier
        lFileCount Int(curSize / tMethode.lParam) + IIf((curSize Mod tMethode.lParam) 0, 0, 1)
        lLastFileSize = curSize - (lFileCount - 1) * tMethode.lParam 'taille du dernier fichier'lance la découpe'utilisation de l'API ReadFile pour plus d'efficacité'prend des buffers de 5Mo maximumIf tMethode.lParam <= 5242880 Then'alors tout rentre dans un seul bufferFor i = 1 To lFileCount - 1 'pas le dernier qui est fait à part'fichier résultat i
                sFic = sFolderOut & "" & sFileStr & "." & Trim$(Str$(i))
                
                'créé le fichier résultat
                cFile.CreateEmptyFile sFic, True'récupère le buffer
                sBuf = GetBytesFromFile(sFile, CCur(tMethode.lParam), CCur((i - 1) * tMethode.lParam))
                
                'on écrit dans le fichier résultat
                WriteBytesToFile sFic, sBuf, 0
                
                DoEvents
            Next i
            
            'maintenant le dernier fichier
            sFic = sFolderOut & "" & sFileStr & "." & Trim$(Str$(lFileCount))
            
            'créé le fichier résultat
            cFile.CreateEmptyFile sFic, True'récupère le buffer
            sBuf = GetBytesFromFile(sFile, lLastFileSize, CCur((lFileCount - 1) * tMethode.lParam))
            
            'on écrit dans le fichier résultat
            WriteBytesToFile sFic, sBuf, 0

        Else





By Renfield

violent_ken · Answer

Violent Ken
TEST FIREFOX 2.0

'-------------------------------------------------------
'ajoute une entrée à l'historique, prend en paramètre
'-le rang de la nouvelle entrée (donc supprime tout ce qui est après)
'-l'historique
'-les datas
'-le type de nouvelle entrée
'-------------------------------------------------------
PublicSub AddHisto(ByVal lRang As Long, ByVal Undo As clsUndoItem, ByRef Histo() As clsUndoSubItem, _
ByVal tUndoType As UNDO_TYPE, OptionalByVal sData1 As String, OptionalByVal sData2 As String, _
OptionalByVal curData1 As Currency, OptionalByVal curData2 As Currency, _
OptionalByVal bytData1 As Byte, OptionalByVal bytData2 As Byte, OptionalByVal lngData1 As Long)
Dim x As Long
Dim y As Long
Dim s As String

'procède à la suppression de tout ce qui est après lRang
'lRang=1 ==> pas de suppression
If lRang <> -1 Then
ReDim Preserve Histo(lRang)
EndIf

'ajoute à la fin de l'historique le nouvel élément
ReDim Preserve Histo(UBound(Histo()) + 1)
Set Histo(UBound(Histo())) = New clsUndoSubItem
With Histo(UBound(Histo()))
        .tUndoType = tUndoType
        .sData1 = sData1
        .sData2 = sData2
        .curData2 = curData2
        .curData1 = curData1
        .bytData2 = bytData2
        .bytData1 = bytData1
        .lngData1 = lngData1
EndWith

'ajoute au lv un nouvel item
    Undo.lvHisto.Visible = False
With Undo.lvHisto.ListItems
If Undo.tEditType = edtFile Then
'alors c'est un fichier
If tUndoType = actByteWritten Then
                s = "o=[" & LTrim$(Str$(curData1)) & "]c=[" & LTrim$(Str$(bytData1)) & "]s=[" & Formated16String(sData2) & "]"
EndIf
ElseIf Undo.tEditType = edtDisk Then
'alors c'est un disque
If tUndoType = actByteWritten Then
                s = "o=[" & LTrim$(Str$(curData1)) & "]c=[" & LTrim$(Str$(bytData1)) & "]s=[" & Formated16String(sData2) & "]"
EndIf
Else
'alors c'est un processus
If tUndoType = actByteWritten Then
                s = "o=[" & LTrim$(Str$(curData1)) & "]c=[" & LTrim$(Str$(bytData1)) & "]s=[" & Formated1String(sData2) & "]"
EndIf
EndIf

        .Add Text:=s
        .Item(Undo.lvHisto.ListItems.Count).SubItems(1) = Str$(Undo.lvHisto.ListItems.Count)
EndWith
    Undo.lvHisto.Visible = True

EndSub
[code.aspx?ID=41455 By Renfield]

Renfield · Answer

Pour info, j'ai corrigé la chose qui fait que la FreeTextBox "fusionne" les mots clés...(décidement, elle m'en fait voir, cette FreeTextBox)

j'attend de voir la chose progresser avant d'uploader de nouveau

Renfield
Admin CodeS-SourceS- MVP Visual Basic

jrivet · Answer

Re,
Bon est ce que cela marche mieux...

PrivateSub CommandButton1_Click()
Dim Ctrl As Control
    ForEach Ctrl In Me.Controls
        IfTypeOf Ctrl Is MSForms.TextBox Then Ctrl.Value = vbNullString
    Next
    Set Ctrl = Nothing
EndSub
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

Renfield · Answer

violent_ken, dsl de ne pas t'avoir dit cela plus tôt ...
tu n'a pas la version actuellement en ligne (les balises utilisées ne sont pas a jour dans ce que je vois de la source HTML de la page)

Renfield
Admin CodeS-SourceS- MVP Visual Basic

jrivet · Answer

Re test j 'ai modifier qqch.

PrivateSub CommandButton1_Click()
Dim Ctrl As Control
   ForEach Ctrl In Me.Controls
       IfTypeOf Ctrl Is MSForms.TextBox Then Ctrl.Value = vbNullString
   Next
   Set Ctrl = Nothing
EndSub, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

Bon ben voila. 

>En fait vu que j'avais eu la premiere version de l'ADD in j'avais déjà mes HTML_Header et HTML_Footer qui avait des valeurs dans la base de registre.

Donc la modification de la valeur par défaut ne prenait jamais effet.
Il m'a donc fallu nettoyer ma base de registre pour retrouver les bonnes valeurs par défaut.

Peut être une amélioration possible. 
En tout cas Bravo il ne me quittera plus. je vais aller mettre 10 de pas.
@+: Ju£i?n
Pensez: Réponse acceptée

Renfield · Answer

jrivet non plus....

ai-je bien pu uploader ???

Renfield
Admin CodeS-SourceS- MVP Visual Basic

violent_ken · Answer

Violent Ken

Renfield ==> j'ai pourtant re-dl la source quelques minutes avant de poster ?

Renfield · Answer

lol, je revenais justement vous prevenir que les settings se trouvaient dans :

HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Renfield's Addins

je RE-RE-RE-RE-RE-Upload , pour éviter la fusion des mots clés

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_casy · Answer

Julien, c'est ou qu'il faut faire le ménage ?????

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

cs_casy · Answer

arff le temps de poster.... merci renfield

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

Test de ma source www.vbfrance.com/code.aspx?ID=41455

31 réponses

Votre réponse

Discussions similaires