'===================================================================================== ' <MonProgramme> ' frmTips va montrer un commentaire aléatoire lors de son ouverture. ' ' Copyright © 2006 <MaCompagnie>. All rights reserved. '=====================================================================================
'=================================================================== ' Appelle la routine "Decrypt", changera l'extension de "dmE" (encrypté) ' à "dmS" (décrypté) ' ' Parameters ' strFilename : nom de document existant à décrypter [IN][OUT] ' nKey : integer variant de 1 à 9 [IN] Zéro non valide. ' ' Return ' Boolean : TRUE si décrypté, FALSE autrement ' Un document de longueur zéro causera une erreur fatale de ' décryption. '====================================================================
'===================================================================================== ' Crée une archive de type Zip dans le dossier cible. ' Ces archives doivent être de vrai documents et non des raccourcis. ' Ces archives doivent être en un seul endroit. ' L'utilisateur doit être admin de la machine source. ' Les noms de dossiers doivent être unique à chaque niveau. ' Caractères illégaux: _ . , (accentués) ' Cette routine prends 2 sec par Megs de données. ' ' Parameters ' strRoot : path du root d'archive; peut être en réseau [IN][OUT] ' blnFlags : /PIC ;/DOC ;/XML; /OTH [IN] La présence d'un flag indique VRAI ' ' Return ' long : err_NOERROR si succès, sinon err_<cause d'erreur> ' : Vor liste de constantes '====================================================================================
' ============================================================= 'classe activityMAKE API '=============================================================== ' Property InputMaterial ' 'Set' ou 'Get' le materiel de type 'oMatNonDuplicable' ' Note d'usage: ' <objectName>.InputMaterial(aMat) ' Set anotherMat = <objectName>.InputMaterial ' Un materiel 'NULL' créera un materiel par défaut. ' Un materiel avec des champs vide (EMPTY) va créer un materiel ' incohérent. ' -------------------------------------------------------------- ' Property SetCalendar ' Etablira le calendier selon le document XML ou selon défaut. ' La méthode Init de l'object doit avoir mise les valeurs par défaut. ' Note d'usage: ' <objectName>.SetCalendar(XMLfilename) ' <objectName>.SetCalendar("") ' PAS DE METHODE 'Get' ' -------------------------------------------------------------- ' Event MaterialReleased ' Renvoie la date et l'heure sous format 'YYYYMMDD;HHMMSS' ' en String ..... '=============================================================== 'END OF API '===============================================================
'1 --------------------------------------------- If j > 0 Then ' impossible d'enlever le dernier tab d'un TabStrip. tabMaps.Tabs.Remove j ' dernier contrôle d'un array ne peut être enlevé Unload ucPictureSiz1(j) '2 --------------------------------------------- ' Note: La méthode .Line ne supporte pas ' un block "With/End With" '3 --------------------------------------------- 'Pour un document XML chargé dans une ListView For j = 0 To nAttCount - 1 Step 1 ' Select Case aNode.Attributes.Item(j).baseName Case "onmap" strwhichmap = aNode.Attributes.Item(j).Text Case "id" strID = aNode.Attributes.Item(j).Text Case "name" strName = aNode.Attributes.Item(j).Text Case "posx" strposX = aNode.Attributes.Item(j).Text Case "posy" strposY = aNode.Attributes.Item(j).Text Case "icon" strsymbol = aNode.Attributes.Item(j).Text Case Else ' End Select Next j ' now we can start adding to the lists '------------------------------------------------------------------------ ' lsvPlayers ' col# what '------------------------------------------------------------------------ ' 0 playerID ' 1 name ' 2 whichmap map ID ' 3 posX upperleft corner X coord of avatar ' 4 posY upperleft corner X coord of avatar ' 5 symbol key for custom symbol (unused for now) '------------------------------------------------------------------------ Set itm = lsvPlayers.ListItems.Add(, strID, strName) SubItems(1) = strwhichmap SubItems(2) = strposX SubItems(3) = strposY SubItems(4) = strsymbol '4 --------------------------------------------- Input #nfilenum, frm_strLastCampaignDate ' détecter une ancienne version If Err.Number <> 0 Then' 62 Input past end of file ' données n'existent pas: mettre valeur par défaut ' format: YYYY;MM;DD as ####;0#;0# ' "Janvier 1, 2006" serait "2006;01;01" '5 --------------------------------------------- ' format: YYYY;MM;DD as ####;0#;0# ' "Janvier 1, 2006" serait "2006;01;01"
Avis de décès, Carte de voeux, Bricolage, Coloriages, Cinéma, Coiffure, Cuisine, Déco, Dictionnaire, Horoscope, Jeux en ligne, Programme TV, Recettes, Restaurant, SMIC, Test débit, Voyage, Signification prénom