---Soumis par Arvin Meyer---
CodeWriter 2.0
CodeWriter est un utilitaire qui permet de réduire les tâches répétitives tel que de remplir le bloc de commentaire d'entête ou de code un message box. Originalement écrit en VB5, peut facilemetn fournir du code générique pour Access Basic (avec une modification mineure après avoir vopier le code), VB 4, 5 & 6, et VBA.
Télécharger CodeWriter 2.0
Note: CodeWriter utilise tabctl32.ocx; version: 5.01.4319 .
Un exemple de code générique copiée ici du Clipboard:
Function TestFunction(var1 As Integer, Optional str1 As String) As String '-------------------------------------------------------------------- ' Name: TestFunction ' Purpose: ' ' Inputs: ' ' Returns: ' ' Author: Arvin Meyer ' Date: February 15, 1999 ' Comment: This is a test comment ' '-------------------------------------------------------------------- On Error GoTo Err_TestFunction Exit_TestFunction: Exit Function Err_TestFunction: Select Case Err Case 0 Case Else MsgBox Err.Description Resume Exit_TestFunction End Select End Function
--------------------
Noter que le nom fut correctement ajouté aux procédures sur le traitement
d'erreur et sur les étiquettes. Un combo box permet un choix d'objet (non
limité à la liste présenté). Le traitement d'erreur s'assure d'être
compatible avec les coventions de VB/VBA. De plus, si vous fournissez un
argument optionnel, les arguments subséquents seront également marqués
optionels.
Le "lignes" peuvent être formées d'un des quatre symboles (* - . =).
Le traitement d'erreur est optionnellement ajouté selon votre choix sur une case à cocher. Sous Access 2.0, Err.Description est automatiquement modifié pour Error$. Le Case 0, dans le traitemetn d'erruer, peut être modifié pour tout autre case, bien évidemment, ou tout simplement effacé.
Le bouton Clear efface tous les contrôles en préparation pour la prochaine utilisation.
Après avoir cliqué sur "Generate Code to Clipboard", l'application se minimise sur le taskbar (barre des tâches) en attente d'une nouvelle utilisation.
Un exemple d'utilisation pour générer du code de MsgBox ressemble à:
--------
MsgBox "This is line one" & vbCrLf & "This is line two" & vbCrLf & "This is line three", 323, "Application Error"
--------
ou, lorsqu'en utilisant une variable:
--------
Dim RetVar As Integer ' MsgBox response
RetVar = MsgBox("This is line one" & vbCrLf & "This is line two" & vbCrLf & "This is line three", 67, "Application Error")
--------
Si aucun titre n'est fourni, la valeur "Access Error" (I am an Access programmer <g>) est utilisée. Vous pouvez inclure jusqu'à trois lignes dans votre MsgBox. Vous pouvez également choisir l'icône, au aucun, ainsi que le style de bouton de même que le bouton par défaut. Un prévisionnement est même disponible.
Cette application est en copyright et est distribuée en freeware. Vous ne pouvez pas la distribuer comme partie d'un shareware vendu, ni sans mon consentement. Dans des versions futures (probablement en shareware), je prévois inclure la génération de code pour DAO, ADO et RDO . Si vous avez des commentaires, raports de bug, suggestions, n'hésitez pas à me contacter à: onsite@esinet.net