Les Snippets

Nouveaux snippets
Snippets les plus consultés
Proposer un snippet

 Abonnez vous à ce fil d'information Les rss

Rechercher :

Par langages :

Par Catégorie

Compteurs


Nombre de sujets : 713
Nombre de snippets : 2181
Connexion

Savoir si un tableau existe (dimension)

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 18/09/2006 02:24:43 et initié par PCPT [Liste]
Date de mise à jour : 25/10/2008 04:48:21
Vue : 12279
Catégorie(s) : Trucs & Astuces, Divers
Langages dispo pour ce code :
- VB6, VBA
- Windev
- VB6, VBA
Proposer ce code dans un autre langage



Langage : VB6 , VBA
Date ajout : 18/09/2006
Posté par PCPT [Liste]
DateMAJ : 21/06/2008 
Function IsArrayNull(ByRef aArray() As String) As Boolean 
'   permet de savoir si un tableau existe (dimension 0)
    IsArrayNull = ((Not (Not aArray)) = 0) 
End Function 


' EXEMPLE D'UTILISATION
Private Sub Command1_Click() 
    Dim MonTableau() As String 
    MsgBox IsArrayNull(MonTableau()) 

    ReDim MonTableau(10) 
    MsgBox IsArrayNull(MonTableau()) 
End Sub
Remarque :
le tableau doit obligatoirement être typé. (dériver la fonction selon les besoins)
code original de 'Gobillot' : http://www.vbfrance.com/infomsg_TEST-INITIALISATION-TABLEAU-DYNAMIQUE_740388.aspx
Langage : Windev
Date ajout : 18/09/2006
Posté par fabienlaps [Liste]
MonTableau est un tableau de 5 chaines
info(TableauInfo(MonTableau,tiNombreTotal))
Langage : VB6 , VBA
Date ajout : 25/10/2008
Posté par PCPT [Liste]
DateMAJ : 25/10/2008 
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Private Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Ptr() As Any) As Long
'
Function IsArrayNull(ByRef aArray() As Byte) As Boolean
    Dim lVarPtr As Long, lRet As Long
    lVarPtr = VarPtrArray(aArray)
    Call CopyMemory(lRet, ByVal lVarPtr, 4&)
    IsArrayNull = (lRet = 0)
End Function
Remarque :
le précédent code fonctionne, mais provoque "parfois" une erreur 16 (expression trop complexe), surtout si la compilation est en p-code

cette méthode est plus sûre, explication à cette adresse :
http://support.microsoft.com/kb/199824

Snippets en rapport avec : Tableau, Dimension, Ubound

05/08/2011 - [OOBASIC] DIRLIST - FONCTION LISTE DES FICHIERS / RÉPERTOIRES

04/08/2011 - [OOBasic] Rechercher dans un Array: fonction InArray()

02/03/2011 - insérer des données dans un fichier

19/01/2010 - Tableau de byte vers structure

08/09/2009 - Remplir une GRID depuis un tableau de string

15/01/2009 - Structure vers tableau de byte

07/07/2008 - Supprimer les doublons d'un tableau de chaines

22/06/2008 - Convertir une chaine en un tableau de chaine (en tenant compte des retours chariot)

02/06/2008 - Enregistrer un tableau à 2 dimensions vers un fichier

03/05/2008 - Découper un tableau (extension & générique)



Codes sources en rapport avec : Tableau, Dimension, Ubound

{Visual Basic, VB6, VB.NET, VB 2005} COMPRESSION
Fonction pour comprimer un tableau de byte...

{JAVA / J2EE} GESTION DE TABLEAUX AVEC TAILLE ET NOMBRE DE DIMENSIONS DYNAMIQUES
Class Matrice qui permet de créer des tableaux avec un nombre de dimensions et une taille par dimens...

{ASP / ASP.NET} RANDOM UBOUND LBOUND ETC...
Ce code permet d'utiliser les arrays un array est un tableau ex: jour=array("lundi","mardi" etc......

{Visual Basic, VB6, VB.NET, VB 2005} SUPPRIMER UN ÉLÉMENT D'UN TABLEAU
Lorsque vous créez des tableaux dynamiques en VB, vous serez peut-être ammenés à avoir besoin de sup...

{Javascript / DHTML} FORMULAIRE TABLEAU
Ce script permet de créer un Quizz sous forme de tableau. Il faut un peu modifier le code pour pouvo...

{Javascript / DHTML} TABLE_SV : TABLEAU DYNAMIQUE, MONTRER/CACHER COLONNE SUR DEMANDE
'table_sv' : qu'est-ce que c'est ? Un script JS-dynamique qui permet à l'utilisateur de sélection...

{Visual Basic, VB6, VB.NET, VB 2005} JEU DE MÉMOIRE CLASSIQUE
C'est un jeu de mémoire ou il faut se souvenir de ce qui se cache derrière les cases. Un Timer est ...

{PHP} PAGINATION JAVASCRIPT PHP MYSQL
bonjour Un script qui s'adresse aux débutants qui veulent une pagination facile. Mélange deux deu...

{PHP} CRYPTAGE REVERSIBLE
Je vous propose une classe que j'ai crée il y a un moment pour crypter des mots de passe. Le but est...

{Visual Basic, VB6, VB.NET, VB 2005} DATATABLE EN MATRICE 2D
Je dépose cette petite source toute simple car je viens de trouver cette astuce pour extraire les ...