L'Ordinateur Individuel n°128 mai 2001
L'Ordinateur Individuel n°128 mai 2001
  • Prix facial : 25 F

  • Parution : n°128 de mai 2001

  • Périodicité : mensuel

  • Editeur : Groupe Tests

  • Format : (202 x 278) mm

  • Nombre de pages : 274

  • Taille du fichier PDF : 236 Mo

  • Dans ce numéro : peut-on se passer de Microsoft Office ?

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 248 - 249  |  Aller à la page   OK
Pages suivantes >
248 249
Pratique Trucs et astuces PROGRAMMATION Visual Basic 6.0 Créer des contrôles identiques pendant l'exécution du programme >Comment en réalisant un tableau de contrôles. Avec Visual Basic 6.0, des contrôles de même type, possédant le même nom et dotés des mêmes procédures, peuvent être rassemblés dans un tableau. L'intérêt d'un tel tableau est de vous permettre d'ajouter d'autres contrôles de façon dynamique, c'est-à-dire pendant l'exécution du programme. De plus, chaque nouveau contrôle hérite des procédures des autres compris dans le tableau. Enfin, les contrôles se partagent le code, ce qui simplifie la programmation. Il existe plusieurs façons de réaliser un tableau de contrôles. Vous pouvez donner le même nom aux contrôles, ou bien procéder par copier-coller. C'est cette deuxième méthode que nous allons utiliser ici. Ouvrez un nouvel exécutable et, sur le formulaire Forml, créé par défaut, placez un contrôle de type Command en haut et à droite. Sélectionnez-le, copiez-le et collez-le dans le formulaire. Visual Basic vous prévient alors qu'un tel contrôle existe déjà et vous demande si vous désirez élaborer un groupe de contrôles. Répondez par [oui]. Placez alors le nouveau contrôle sous le premier. Modifiez les propriétés Caption des deux contrôles en saisissant Créer un contrôle Texte pour le premier et Supprimer un contrôle il> Private Sub Commandl_Click(Index As Integer) Dim nextVal As Integer, topindex As Integer Select Case Index Case 0 nextVal = txtCtrl().Count Load txtCtrl(nextVal) txtCtrl(nextVal).Top = txtCtrl(nextVal - 1).Top + 500 txtCtrl(nextVal).Visible = True Case 1 topindex = txtCtrIO.Count - 1 Unload txtCtrl(topindex) End Select End Sub Texte pour le deuxième. Placez ensuite un contrôle Texte en haut et à gauche du formulaire. Dans sa fenêtre de Propriétés, attribuez la valeur 0 à sa propriété Index et la valeur txtCtrl à sa propriété Name. Recopiez enfin le listing ci-dessus dans la page de code ouverte par le menu Affichage/Code et lancez l'exécution par . Chaque fois que vous cliquez sur [créer un contrôle texte], un nouveau contrôle apparaît avec les mêmes propriétés que le précédent. A l'inverse, l'autre bouton supprime le dernier contrôle créé. Les deux boutons possédant le même nom, le programme utilise leur valeur d'index pour les différencier à l'aide de la commande Select Case. A savoir Annuler les entrées d'un formulaire JavaScript Lorsqu'un formulaire contient des éléments , il est possible de tous les réinitialiser à l'aide du bouton Reset. Pour le créer, tapez l'instruction suivante : . Cette ligne ajoute le bouton sur le formulaire. Lorsque l'utilisateur clique sur ce bouton, toutes les entrées de type situées à l'intérieur de ce formulaire reprennent leurs valeurs initiales. L'utilisation de ce bouton est bien plus pratique que la réinitialisation individuelle de chaque entrée. Visual Basic 4 à 6 Signaler les erreurs de saisie Comment. en émettant un bip sonore. Lorsque vous saisissez des données, vous n'avez pas obligatoirement le regard posé sur l'écran. Si vous vous trompez, il faut que vous soyez averti par un bip sonore, puis que le type d'erreur vous soit indiqué visuellement. Pour cela, sur le formulaire d'un nouvel exécutable, placez un bouton de commande et un contrôle tex- te. Cliquez deux fois sur le bouton [commandl] et tapez le listing ci-dessous dans la fenêtre de code. Lancez l'exécution en appuyant sur . Si les données que vous saisissez dans le champ Texte ne sont pas numériques, un bip retentit, un message s'affiche et le champ Texte est automatiquement sélectionné pour que vous puissiez y apporter vos corrections. Private Sub Command1 Click() If Not IsNumeric(Text1.Text)Then Beep MsgBox ("La valeur doit être numérique") Text1.SetFocus End If End Sub www.01net.com JavaScript Faire défiler du texte comme dans un générique de film Comment en utilisant la balise . Parmi les nombreux effets qu'il est possible d'appliquer à du texte, le défilement vertical, comme dans un générique de film, est un des plus spectaculaires. Cet effet est très facile à créer en exploitant la balise . Cette dernière contient toutes les commandes nécessaires au paramétrage de l'affichage. Par exemple, la commande Direction définit le sens de défilement du texte. Elle peut prendre les valeursup, down, right et left, qui l'Ordinateur individuel -248 -N°128 - Mai 2001 correspondent respectivement aux sens haut, bas, droite et gauche. La commande Loop définit le nombre de fois que le texte doit défiler. Pour une boucle sans fin comme dans notre exemple, il faut lui donner la valeur —1 ou en- 1=-1 core Infinite. Saisissez le listing ci-dessous dans le Bloc-notes puis sauvegardez-le sous le nom de générique.htm. Lancez-le dans Internet Explorer, car en principe cette balise n'est pas reconnue par les autres navigateurs.

Un générique comme au cinéma