Visual Basic, Applications è un piccolo linguaggio di scripting specificamente per l'uso in applicazioni Microsoft . Serve come base per l'automazione di alcune operazioni nel software Microsoft , come Word o Excel , VBA offre un modo semplice ed efficace per automatizzare le attività e includere elementi interattivi in documenti attraverso il codice scritto a mano . VBA assomiglia Visual Basic e VB.NET nella sua sintassi e la struttura , in modo da una conoscenza di base della sintassi di Visual Basic può tradursi in una comprensione di VBA .
Modulo e accesso Classe economici con VBA
VBA , tuttavia , non necessariamente hanno accesso a una libreria esterna di moduli come Visual Basic . Piuttosto , script VBA accedono gli oggetti l'applicazione da cui si sta eseguendo . Quindi uno script VBA per Word accede oggetti per Word e documenti di Word , mentre VBA in Excel accede oggetti specifici di Excel . È comunque possibile utilizzare tecniche di programmazione orientate agli oggetti avanzati all'interno degli script , così come creare funzioni specifiche per compiti specifici .
Base Cryptography Classe
Creare un classe per implementare un algoritmo di crittografia attraverso l'interfaccia VBA . In primo luogo , creare una classe facendo clic su " Inserisci" in Visual Basic Editor . Quindi fare clic su " Modulo di classe " e definire una classe . In questo caso , la classe contiene un campo di dati unico e la stringa da cifrare , insieme a una funzione di "lasciare " e una funzione di cifratura :
pmessage privato As String
Public Property Let Messaggio ( V come stringa) come StringpName = vend Proprietà
Public Function encrypt ( ) come StringEnd Funzione
crittografia Algoritmi
Infine , definire l'algoritmo di crittografia all'interno della classe per creare un modulo che crittografa i messaggi di stringa . Una varietà di metodi di crittografia sono disponibili. Questo esempio utilizza un algoritmo di base per illustrare come la crittografia apparirebbe nella classe :
Public Function encrypt ( ) Come StringDim cifra As String = String.EmptyDim cipherchars ( pMessage.Length ) Come CharFor i As Integer = 0 per pMessage.Length - 1cipherchars ( i) = _Convert.ToChar ( ( Convert.ToInt32 ( Convert.ToChar ( pmessage ( i) ) ) + Me.ShiftCount ) ) Nextcipher = new String ( cipherchars ) Ritorna cipherEnd Funzione
Programmazione © www.354353.com