Modules: CodeWriter 2.0	Author(s) Arvin Meyer

---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 facilement fournir du code générique pour  Access Basic (avec une modification mineure après avoir copier 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 conventions de  VB/VBA. De plus, si vous fournissez un argument optionnel, les arguments subséquents seront également marqués optionnels.

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 traitement d'erreur, 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, rapports de bug, suggestions, n'hésitez pas à me contacter à: onsite@esinet.net