Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Visual Basic for Applications je malý skriptovací jazyk špeciálne pre použitie v aplikáciách Microsoft . Slúži ako základ pre automatizáciu určité úlohy v softvéru spoločnosti Microsoft , ako je Word alebo Excel , VBA ponúka jednoduchý a účinný spôsob , ako automatizovať úlohy a zahrnúť interaktívnych prvkov do dokumentov , cez ručne písaný kód . VBA podobá Visual Basic a VB.NET v jeho syntax a štruktúru , takže základná znalosť jazyka Visual Basic syntaxe vie prekladať do chápania jazyka VBA .
Modulu a triedy Access VBA
VBA , ale nemusí nutne mať prístup k externej knižnice modulov , ako je Visual Basic . Skôr , VBA skripty prístup k objektom v aplikácii , z ktorej ste sa systémom . Takže skript VBA pre aplikáciu Word pristupuje k objektom pre Word a Word dokumentov , zatiaľ čo VBA v programe Excel pristupuje objektov špecifických pre Excel . Môžete aj naďalej používať pokročilé objektovo orientované programovacie techniky v skriptoch , rovnako ako vytvoriť špecifické funkcie pre špecifické úlohy .
Základné kryptografia Trieda
Vytvoriť trieda implementovať šifrovací algoritmus cez rozhranie VBA . Najprv vytvorte triedu kliknutím na tlačidlo " Vložiť " v editore jazyka Visual Basic . Potom kliknite na tlačidlo " Modul triedy " a definovať triedu . V tomto prípade , trieda obsahuje jednu dátové polia a reťazec na zašifrovanie , spolu s " nechať " funkciu a šifrovacie funkcie :
súkromné pMessage As String
Public Property Let správy ( V ako String ) ako StringpName = predávať nehnuteľnosti
verejnej funkcie šifrovanie ( ) As StringEnd funkcie
kryptografické algoritmy
Nakoniec definovať šifrovací algoritmus vnútri triedy vytvoriť modul , ktorý šifruje reťazec správy . Rôzne šifrovacie metódy sú k dispozícii . Tento príklad používa základné šifru pre ilustráciu , ako by sa šifrovanie vyzerať v triede :
Public Function šifrovanie ( ) As StringDim šifry As String = String.EmptyDim cipherchars ( pMessage.Length ) Ako CharFor i As Integer = 0 Ak chcete pMessage.Length - 1cipherchars ( i ) = _Convert.ToChar ( ( Convert.ToInt32 ( Convert.ToChar ( pMessage ( i ) ) ) + Me.ShiftCount ) ) Nextcipher = new String ( cipherchars ) Späť cipherEnd Funkcia