Salutare tuturor, in acest articol vreau sa va arat coduri utile pentru programe mici. Pe care le puteți folosi pentru a vă scrie propriile programe mai serioase sau ați căutat exact aceste funcții care sunt descrise aici.
Toate codurile au fost folosite în mediul de programare Microsoft Visual Basic v6.0.
Primul tip de program, sau funcție, este o ieșire cu un mesaj care confirmă ieșirea. În general, deschideți mediul de programare Visual Basic, creați un proiect standard, apoi plasați un buton pe formular, faceți clic pe butonul și se va deschide o fereastră de editare a codului și trebuie să introduceți următorul cod acolo:
Beep Dim mesaj Ca șir Dim butoane și pictograme Ca Integer Dim titlu Ca șir Dim răspuns Ca șir mesaj = "Vrei să ieși?"" buttonasicons = vbYesNo + vbQuestion response = MsgBox(message, buttonasicons, title) If response = vbYes Then End End If !}
Parola pentru a porni programul<>Dim Password, Pword Password = "12345" Pword = InputBox ("Introduceți parola") Dacă Pword
Parola Apoi MsgBox „Parola nu este corectă” Sfârșit Sfârșit dacă
Ieșire mesaj
Dacă doriți doar să afișați un mesaj pentru ceva, atunci lipiți acesta:" buttonasicons = vbOKOnly + vbexciamation MsgBox message, buttonsandicons, title !}
Desen pe formular
Private Sub Form_MouseDown(Button Ca Integer, Shift As Integer, X As Single, Y As Single) Form1.CurrentX = X Form1.CurrentY = Y End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Line (Form1.CurrentX, Form1.CurrentY)-(X, Y), QBColor(0) End If End Sub
Repornirea computerului
Dim strComputer As String strComputer = "."Lansarea unui program într-o singură copie
Următorul exemplu vă va ajuta să faceți ca programul să ruleze o singură dată, de exemplu. dacă este repornit, va afișa un mesaj corespunzător. Introduceți următoarele în codul formularului:
End End If
Oprirea calculatorului
Dim strComputer As String strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "(impersonationLevel=impersonate,(Shutdown))!\\" _ & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery("Select * din Win32_OperatingSystem") Fiecare ObjOperatingSystem din colOperatingSystems ObjOperatingSystem.ShutDown „Pentru a închide Următorul
Încheierea oricărui proces
Shell „Cmd /x/c taskkill /f /im ICQlite.exe”, vbvhite
Unde, în loc de ICQlite.exe, poate exista orice proces.
Cât durează computerul?
Adăugăm 2 câmpuri de text și un buton la formular, numele primului câmp de text este StartText, numele celui de-al doilea câmp de text este OutText. Proprietate multilinie = true, numele butonului = CmdStart
Rulare statică Ca Boolean Dim AllDirs As New Collection Dim next_dir As Integer Dim dir_name As String Dim sub_dir As String Dim i Ca Integer Dim txt As String Dacă rulează Then running = False CmdStart.Enabled = False CmdStart.Caption = "Oprire" Altfel = True MousePointer = vbHourglass CmdStart.Caption = "Stop" OutText.Text = "" DoEvents next_dir = 1 AllDirs.Add StartText.Text Do While next_dir<= AllDirs.Count dir_name = AllDirs(next_dir) next_dir = next_dir + 1 sub_dir = Dir$(dir_name & "\*", vbDirectory) Do While sub_dir <>"" Dacă UCase$(sub_dir)<>„PAGEFILE.SYS” și sub_dir<>"." Și sub_dir<>".." Apoi sub_dir = dir_name & "\" & sub_dir La eroare Reluați Următorul Dacă GetAttr(sub_dir) Și vbDirectory Apoi AllDirs.Add sub_dir Sfârșit Dacă sub_dir = Dir$(, vbDirectory) Buclă DoEvents Dacă nu rulează Apoi Ieșire Do Loop txt = "" Pentru i = 1 To AllDirs.Count txt = txt & AllDirs(i) & vbCrLf Next i OutText.Text = txt MousePointer = vbDefault unning = False End If
Acum lansăm programul, scriem în câmpul text StartText: C:\windows și facem clic pe butonul.
Să presupunem că avem un fișier numit 1.txt în folderul C:\1\ și trebuie să-l copiem în C:\2\ pentru a face acest lucru scriem următorul cod:
Copiați fișierul „C:\1\1.txt","C:\2\1.txt”
Nota! Dacă directorul 2 conține deja un fișier numit 1.txt, acesta va fi înlocuit cu 1.txt din directorul 1.
Private Declare Funcție CopyFile Lib _ "kernel32.dll" Alias "CopyFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long Private Sub Command1_Click() " Copiați fișierul C:\1. la D :\1.txt Dim retval As Long " return value "Copy the file retval = CopyFile("C:\1.txt", "D:\1.txt", 1) If retval = 0 Then "If eroare MsgBox „Nu pot copia” Altfel „Dacă totul este bine MsgBox „Fișier copiat.” End If End Sub
De exemplu, dorim să ștergem fișierul 1.txt din rădăcina unității C:\
Kill("C:\1.txt")
Metoda API
Private Declare Funcție DeleteFile Lib _ „kernel32.dll” Alias „DeleteFileA” (ByVal lpFileName As String) As Long Private Sub Command1_Click() „Șterge fișierul C:\Samples\anyfile.txt Dim retval As Long „Return value retval = DeleteFile( "C:\1.txt") If retval = 1 Then MsgBox "Fișierul a fost șters cu succes."
În mișcare
Puteți, de exemplu, să o mutați astfel:
Copiați fișierul „C:\1.txt”, „C:\2\1.txt” Kill („C:\1.txt”)
Dar este mai bine așa (prin API):
Redenumire
Pentru a redenumi fișierul 1.txt aflat în C:\ în 2.txt, puteți folosi următorul cod:
Metoda API
Copiați fișierul „C:\1.txt”, „C:\2.txt” Kill („C:\1.txt”)
Determinați dimensiunea fișierului
Mărimea fișierului poate fi determinată în două moduri:
Dacă fișierul poate fi deschis cu funcția OPEN, atunci puteți utiliza funcția LOF
Dim FileFree As Integer Dim FileSize As Long FileFree = FreeFile Deschideți „C:\WIN\GENERAL.TXT” Pentru introducere ca FileFree FileSize = LOF(FileFree) Închideți FileFree
Sau utilizați funcția FileLen
Ascunde ceasul în mod programat
Opțiune Explicit Private Declare Funcție FindWindow Lib _ „user32” Alias „FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Funcție FindWindowEx Lib _ „user32” Alias „FindWindow” (ByVal hWindo) Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Funcție ShowWindow Lib _ "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Dim hnd As Long Private Sub Command1_Click() ShowWindow hnd, 0 End Sub Private Sub Command2_Click() ShowWindow hnd, 1 End Sub Private Sub Form_Load() hnd = FindWindow("Shell_TrayWnd", vbNullString) hnd = FindWindowEx(hnd, 0, "TrayNotify = FindWnd", vbExNullWnd) hnd, 0, "TrayClockWClass", vbNullString) Command1.Caption = "Ascunde ceasul" Command2.Caption = "Afișează ceasul" End Sub
Adăugați un modul și inserați codul în el:
Declarare Funcție Shell_NotifyIconA Lib _ "SHELL32" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Integer Public Const NIM_ADD = 0 Public Const NIM_MODIFY = 1 Public Const NIM_DELETE = 2 Public Const NIF_MESSAGE = 2 Public Const = IFICO_N = 2 Public Const Type NOTIFYICONDATA cbSize As Long hWnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * 64 End Type Public Function SetTrayIcon(Mode As Long, hWnd As Long, Icon As Long, tip ca String) As Long Dim nidtemp ca notifyCondata nidtemp.cbsize = Len (nidtemp) nidtemp.hwnd = hwnd nidtemp.uid = 0 & nidtemp.uflags = nif_icon sau nif_tip nidtemp.ucallbackmessage = 0 & nidtemp.hicon Settrayicon = Shell_NotifyIconA(Mode, nidTemp) Funcție de sfârșit
Pentru a utiliza, introduceți în codul formularului:
Private Sub Form_Load() SetTrayIcon NIM_ADD, Me.hWnd, Me.Icon, "Test" End Sub "Pentru a șterge o subcomandă privată1_Click() SetTrayIcon NIM_DELETE, Me.hWnd, 0&, "" End Sub
Funcția de declarare privată FindWindow Lib „user32” Alias „FindWindowA” _ (ByVal lpClassName ca șir, ByVal lpWindowName ca șir) As Long Funcția de declarare privată FindWindowEx Lib „utilizator32” Alias „FindWindowExA” h ByW_1 (ByVal As Long) hWnd2 As Long, ByVal lpsz1 As Long, ByVal lpsz2 As Long) As Long Private Declare Funcție EnableWindow Lib "user32" _ (ByVal hwnd As Long, ByVal fEnable As Long) As Long Public Sub EnableStartButton (Opțional Activat ca Boolean = True) Dim lHwnd As Long " find hWnd lHwnd& = FindWindowEx(FindWindow("Shell_TrayWnd", ""), 0&, "Button", vbNullString) Apel EnableWindow(lHwnd&, CLng(Enabled)) End Sub Private Sub Command1_Click Button "START() Enable" este dezactivat End Sub Private Sub Command2_Click() EnableStartButton True „Butonul START nu este dezactivat End Sub
Programul se conectează la FTP, iar fișierul ini conține parametrii - server, autentificare, port, parolă.
Mai întâi, creați un fișier INI:
Servname=server usern=Autentificare pwd=parolă port=port
Trebuie să fie plasat în folderul programului. Apoi, introduceți în modul:
Private Declare Funcția WritePrivateProfileString Lib _ "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName ca șir, ByVal lpKeyName ca șir, _ ByVal lpString ca șir, ByVal lpFileName ca șir) ca și Long Lib. "GetP rivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, _ ByVal lpDefault As String, ByVal lpReturnedString As String, _ ByVal nSize As Long, ByVal lpFileName As String) As Long ReadIn, Public Function As String As String ReadIni = GetValue (Razdel, Param, App.Path & "\test.ini", "0") End Function Private Function GetValue(ByVal Section As String, _ ByVal Key As String, ByVal fFileName As String, Optional ByVal DefaultValue As String = vbNullString) As String Dim Data As String Data = String$(1000, Chr$(0)) If GetPrivateProfileString(Section, Key, DefaultValue, Data, 1000, fFileName) > 0 Then GetValue = Left$(Data, InStr) (Data$, Chr $(0)) - 1) Else GetValue = DefaultValue End If Exit Function End Function
Apoi lipiți în codul formularului:
Funcția de declarare privată InternetOpen Lib _ „wininet.dll” Alias „InternetOpenA” (ByVal sAgent As String, ByVal nAccessType As Long, ByVal sProxyName As String, _ ByVal sProxyBypass As String, ByVal nFlags As Long) As Long Private Declare Function InternetConn Lib _ "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, _ ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal nService As Long, _ ByVal As Long dwFla , ByVal dwContext As Long) As Long Private Declare Funcție FtpPutFile Lib _ "wininet.dll" Alias "FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _ ByVal lpszRemoteFile As String, ByVal dw As Long As Long, F Long) As Boolean Private Declare Funcție FtpGetFile Lib _ „wininet.dll” Alias „FtpGetFileA” (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _ ByVal lpszNewFile As String, ByVal fFailIfExists, ByVal As Long, ByVal As Long dwFlags As Long, ByVal d wContext As Long ) As Boolean Private Declare Funcție InternetCloseHandle Lib _ "wininet.dll" (ByVal hInet As Long) As Integer Dim rc& Dim rs&
Și în codul butonului:
rc& = InternetOpen("", 0, vbNullString, vbNullString, 0) rs& = InternetConnect(rc&, ReadIni("General", "servname"), "0", _ ReadIni("General", "utilizator"), ReadIni( „General”, „pwd”), 1, 0, 0) Dacă FtpGetFile(rs&, „Fișierul dumneavoastră.txt”, „calea unde”, False, 0, 1, 0) = Fals, atunci Terminați apelul InternetCloseHandle(rs&) Call InternetCloseHandle(rc&)Adăugați o listă și un buton, introduceți următorul cod:
Opțiune Explicit Private Declare Funcție CreateToolhelpSnapshot Lib _ "Kernel32" Alias "CreateToolhelp32Snapshot" _ (ByVal lFlags As Long, ByVal lProcessID As Long) As Long Private Declare Funcție ProcessFirst Lib _ "Kernel32" Alias h32"Snapshot" Cât timp, uProcess ca PROCESSENTRY32) Cât timp Private Declare Funcție ProcessNext Lib _ "Kernel32" Alias "Process32Next" _ (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private Declarare Sub CloseHandle Lib "Kernel As Long32" (Kernel As Long32) ) Private Const TH32CS_SNAPPROCESS As Long = 2& Private Const MAX_PATH Ca Integer = 260 Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntTh32ProcessD As Long As Long As Long Cnt wFlags As Long szExeFile As String * MAX_PATH Tip de sfârșit Dim hSnapShot As Long Dim uProcess As PROCESSENTRY32 Dim r As Long Private Sub Command1_Click() List1.Clear hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&) Dacă hSnapShot = 0 Then =Process End)(If =Process End) ProcessFirst(hSnapShot, uProcess) Do While r List1.AddItem uProcess.szExeFile r = ProcessNext(hSnapShot, uProcess) Loop Call CloseHandle(hSnapShot) End Sub
Pentru ca programul să se încarce cu Windows, ca și alte programe, puteți utiliza registry:
Adăugați 2 butoane și următorul cod:
Private Sub Command1_Click() "Registry entry Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Name of your program", _ "Cale către programul dvs." End Sub Private Sub Command2_Click() "Șterge din registry Set Reg = CreateObject("WScript.Shell") Reg.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Name of your program" End Sub
Și pentru ca programul să se încarce împreună cu Windows, chiar și în modul sigur, atunci următorul cod:
În primul rând, o metodă mai serioasă (faceți o copie de rezervă a registrului pentru orice eventualitate).
Private Sub Command1_Click() Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell", _ "Cale către programul dvs." End Sub Private Sub Command2_Click()" Aceasta este pentru recuperare Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell", _ "Explorer.exe," End Sub
Ei bine, un mod simplu.
Private Sub Command1_Click() Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit", _ "C:\\WINDOWS\\system32\\userinit.exe ,Cale către programul dvs." End Sub Private Sub Command2_Click()"Pentru a restaura Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit", _ "C: \\WINDOWS\\system32\\userinit.exe," End Sub
Adăugați 2 butoane și lipiți codul:
Private Declare Funcție SetWindowPos Lib "user32" (ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _ ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Funcția FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Const SWP_HIDEWINDOW = &H80 Const SWP_SHOWWINDOW = &H40 "Hide Private Sub (H40"Window) nd", " ") Apelați SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) End Sub "Shows Private Sub Command2_Click() hwnd1 = FindWindow("Shell_traywnd", "") Apelați SetWindowPos(hwnd01, 0, , 01, 0 0, 0, SWP_SHOWINDOW) End Sub
Pentru a dezarhiva arhiva RAR, puteți folosi următorul cod:
WinRarApp = "C:\Program Files\WinRAR\WinRAR.exe x -o+" iPath = "C:\" iArhivName = "Nume fișier.rar" adr = WinRarApp & " """ & iPath & iArhivName & """ " "" & iPath & """ " RetVal = Shell(adr, vbHide)
Adăugați un buton și inserați următorul cod:
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As TMemoryStatus) Private Type TMemoryStatus dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As Long dwAvailPage As Long ca LongFile dwVital As Long m s Ca TMemoryStatus Private Sub Command1_Click( ) ms.dwLength = Len(ms) Apelați GlobalMemoryStatus(ms) MsgBox „Total:” & ms.dwTotalPhys & vbCr & „Free:” _ & ms.dwAvailPhys & vbCr & „Utilizat în %:” & ms.dwMemoryLoad
Acest lucru se face după cum urmează. Adăugați 2 butoane și inserați următorul cod:
Funcția de declarare privată ShowWindow& Lib "user32" (ByVal hwnd&, ByVal nCmdShow&) Funcția de declarare privată FindWindow Lib _ "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowAme = SWindowHIDE As St. 1 Private Sub Command1_Click() Dim hHandle As Long hHandle = FindWindow("progman", vbNullString) Apelați ShowWindow(hHandle, SW_HIDE) End Sub Private Sub Command2_Click() Dim Handle As Long handle = FindWindow("ProgNullString", vb ShowWindow("ProgNullString",) (Handle , SW_NORMAL) End Sub
Folosind butonul Command1, pictogramele sunt ascunse, Command2 - apar.
Asta e tot pentru mine, sper ca exemplele de mai sus să-ți fie de folos, pa!
Acest capitol prezintă „arsenalul” de bază al VB.NET. Majoritatea materialului constă într-o scurtă prezentare generală a conceptelor comune tuturor limbajelor de programare (cum ar fi variabilele și instrucțiunile buclei) și o descriere a tipurilor de date de bază, în principal diverse numere și șiruri. Cititorii familiarizați cu VB6 ar putea dori să parcurgă acest capitol.
Doar câteva exemple din acest capitol conțin cod real care poate fi folosit în programe serioase VB.NET. Cert este că niciun program serios VB.NET nu poate face fără obiecte bazate pe șablon numite clase, subiect pe care îl vom trata în Capitolul 4. Vom începe cu constructele de bază ale limbajului, pentru că altfel ar trebui să ne limităm la primitive. clase care nu au valoare practică. Acest capitol nu acoperă clasele definite de utilizator și arată doar exemple de bază despre cum să utilizați clasele încorporate ale .NET Framework, care sunt extrem de puternice.
Ce rezultă din asta? Destul de ciudat, programele scrise în acest capitol sunt foarte apropiate ca stil de programarea tradițională a erei BASIC timpurii și chiar a erei Fortran și COBOL care l-au precedat (în afară de unele constructe sintactice ciudate, dar necesare). În special, spre deosebire de programele din capitolele ulterioare, acestea au întotdeauna un început și un sfârșit clar definite, iar controlul este transferat de la început la sfârșit (deși controlul poate fi transferat prin comenzi speciale).
După cum sa menționat în introducere, vom încerca să prezentăm programe scrise în stil normal .NET, evitând compatibilitatea artificială cu VB6 ori de câte ori este posibil.
Fiecare aplicație VB.NET trebuie să aibă un punct de intrare. Punctul de intrare conține cod care este executat automat la pornire, după care controlul este transferat la restul codului programului. În aplicațiile grafice relativ simple, punctul de intrare poate fi asociat cu forma inițială, ca în VB6. Dar, așa cum am văzut în Capitolul 1, codul Windows Forms este destul de complex și găsirea punctului de intrare poate fi o provocare. Acest capitol acoperă numai aplicațiile de consolă care rulează într-o fereastră de consolă (cum ar fi o fereastră de sesiune DOS). Da, VB.NET facilitează crearea de aplicații tradiționale de consolă utilizate adesea în programarea de scripturi pe server.
Punctul de intrare al unei aplicații de consolă este procedura Sub Main modul (analog cu procedura Sub Mainîn VB6). Dacă selectați pictograma aplicației console ( Aplicație de consolă), VB.NET generează automat o aplicație „schelet” cu un punct de intrare - o procedură Sub Main:
Modul Module1 Sub Main() End Sub End Modul
Spre deosebire de VB6, prima linie specifică numele modulului (comanda este îngroșată). Acest exemplu folosește numele implicit Modul el. Conform regulilor, numele modulului trebuie să se potrivească cu numele fișierului. Să presupunem că ați schimbat numele modulului în prima linie: Module Test1. Când încercați să rulați o aplicație de consolă, primiți un mesaj de eroare:
Codul de pornire „Sub Main” a fost specificat în „Test.Modulel”. dar „Test.Modulel” nu a fost găsit
Redenumirea unui modul după ce a fost creat se face după cum urmează:
Prin analogie cu VB6, un program (soluție) VB.NET poate consta din mai multe module, dar prezența unei proceduri Sub Main permis doar într-un singur modul. Aplicația se termină la atingerea comenzii End Sub proceduri Sub Main. De exemplu, legendarul program „Hello world” arată astfel:
Modul Modul el Sub Main() Console.WriteLine("Hello world") End Sub End Module
Dacă rulați acest program în IDE, o fereastră DOS cu cuvintele „Hello world” va clipi foarte repede pe ecran (și va dispărea imediat). Fereastra se închide când comanda este procesată End Sub.
Funcția returnează o matrice unidimensională care conține un număr specificat de subșiruri. Această funcție este inversul funcției Join.Parametru Comparaţie poate lua următoarele valori:
Private Sub Form_Load() Dim arrMyArray() As String Dim strMyString As String strMyString = "Bună! Ce mai faci?"
arrMyArray = Split(strMyString) „returns „Bună ziua!” Debug.Print arrMyArray(0) End Sub Vezi și:Folosind funcția Split în VBA Excel, sintaxa și parametrii acesteia. Valorile returnate de funcția Split. Exemple de utilizare.
Funcția Split este concepută în VBA Excel pentru a împărți un șir în subșiruri folosind marcaje speciale de delimitare. Separatorul poate fi fie un singur caracter, fie un șir de mai multe caractere. Funcția Split este inversul funcției, care creează un șir dintr-o matrice de subșiruri.
Împărțire (expresie,,,)
Parametrul necesar al funcției Split este Expresie - dacă ceilalți parametri nu sunt specificați în mod explicit, se folosesc valorile lor implicite.
*Dacă se folosește comparația binară (0 sau CompareMethod.Binary), funcția este sensibilă la majuscule și minuscule. Dacă se utilizează o comparație de text (1 sau CompareMethod.Text), funcția nu face distincție între majuscule și minuscule.
Funcția Split returnează o matrice unidimensională, indexată de la zero, care conține parametrul specificat Limită numărul de subșiruri. Cel mai adesea, funcția Split este utilizată cu valoarea parametrului Limită implicit, egal cu -1, atunci când toate subșirurile găsite în șirul sursă sunt returnate.
Primul exemplu folosește DelimitatorŞi Limită implicit.
În al doilea exemplu Delimitator= "-", a Limită = 2.
Funcția Split atribuie rezultate folosind un text predeclarat, care poate fi folosit în linia de atribuire cu sau fără paranteze goale. În exemplele de mai sus, matricea este specificată fără paranteze.
Puteți copia codurile din exemplele date în modulul VBA al registrului de lucru Excel și puteți vedea cum funcționează. Experimentați cu înlocuirea datelor pentru a obține o senzație practică a funcției Split.