Visual Basic

Verifica Validità formale della Partita IVA per VB6 / VBA

Su richiesta di qualche amico ho convertito la mia funzione VB.NET di controllo e verifica validità Partita Iva. La funzione di verifica: Option ExplicitPublic Function PadLeft(ByVal testo As String, ByVal lungo As String) As String    Dim s As String    s = String(lungo, "0") & testo    PadLeft = Right(s, lungo)End FunctionPublic Function CheckPartitaIva(ByVal PIva As String) As String    CheckPartitaIva = "Errata"    Const caratteri As Integer = 11    Dim partitaiva As String    partitaiva = PIva    If Not (Len(partitaiva) = caratteri) Then        If Len(partitaiva) < caratteri Then            partitaiva = PadLeft(partitaiva, caratteri)        Else            partitaiva = Mid(partitaiva, 3)        End If    End If    If...

Controllo del codice fiscale per VB6 / VBA

Ho realizzato una versione per VB6 del mio controllo del codice fiscale con omocodia La funzione di controllo Public Function CheckCodiceFiscale(ByVal codicefiscale As String) As String    CheckCodiceFiscale = "Errata"    Const caratteri As Integer = 16    If codicefiscale & "" = "" Then Exit Function    If Not Len(codicefiscale) = caratteri Then Exit Function    Const omocodici As String = "LMNPQRSTUV"    Const listaControllo As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"    Dim listaPari() As Variant    listaPari = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25)    Dim listaDispari()...

Calcolo Cin BBAN IBAN per VBA / VB6

Ho apportato alcune modifiche ai sorgenti del progetto Visual Basic 6 per far funzionare il calcolo anche con un foglio Excel / VBA.Esempio per VB6Esempio per VBA Powerered with Window Live Writer

Vb6 - Ricerca dei files con la funzione Dir

Ho visto che tra i Vb6isti, alcuni non hanno ancora dimestichezza con la funzione Dir per fare la ricerca ricorsiva dei files presenti in una cartella e in tutte le sue sottocartelle. Ovviamente se non si vuole la ricerca ricorsiva è sufficiente fare una piccola modifichina al programma. Il modulo, scaricabile a questo indirizzo genera una listview e può scrivere un file di testo con i dati estratti. La funzione principale è determinata dal blocco: Sub CercaFile(ByVal NomeDir As String, ByVal NomeFile As String) Dim FileFound As String Dim PathNames() As String Dim FileNames()...

Datagrid - Selezione multipla con VB6

L'amico Giorgio in un thread sul forum mi chiedeva maggiori spiegazioni su Datagrid.SelBookmarks.SelBookmarks restituisce l'insieme di bookmarks relativi alle righe selezionate. Ovviamente si possono selezionare le righe tenendo premuto il tasto control oppure "da codice" impostando utilizzando il metodo "Add" di SelBookMarks con un bookmark valido. Esempio:myBookMark = DataGrid1.Bookmark DataGrid1.SelBookmarks.Add (myBookMark) Per ottenere invece tutte le righe selezionate si può utilizzare questo suggerimento tratto da questo progetto: Private Sub DataGrid1_SelChange(Cancel As Integer) Text3 = DataGrid1.SelBookmarks.Count List1.Clear Dim k As Integer Dim rs As adodb.Recordset Set rs = Adodc1.Recordset For k = 0 To DataGrid1.SelBookmarks.Count - 1 ...

Calcolo e verifica CIN IBAN e BBAN

Ho realizzato una revisione del mio  Calcolo e verifica CIN coordinate bancarie rendendo disponibile anche il calcolo dell'IBAN oltre che del BBAN. Questi i links Calcolo e Verifica IBAN e BBAN per C# e VB.NET Calcolo e verifica check digits BBAN e IBAN per VB6 Alcune annotazioni Il calcolo del CIN è quello già presentato nell'articolo precedente Ho introdotto una versione per VB.NET che usa la stessa dll realizzata in C#

Parametri su ADO – questi sconosciuti

Sulla lista di vb6 passano in continuazione quesiti che evidenziano problemi causati dal cattivo uso dei parametri. “Cattivo uso” è un eufemismo per non dire che sono proprio misconosciuti ai più eppure gli effetti del loro non utilizzo è quotidianamente presente ai programmatori VB6. Un primo esempio sono i problemi determinati dalla presenza nelle stringhe e nel database di apice e doppio apice oppure dai problemi del separatore decimale per finire al problema delle date solo per citare i tre più noti. Infatti ciascuno dei tre, il secondo ed il terzo (i decimali e le date) sono i più subdoli e pericolosi perché...

Creare un link su Access ad una text table da codice con ADOX / VB6

Prendo spunto da un forum che ho visitato per suggerire come creare un link ad una tabella di testo.Per la realizzazione ho predisposto una cartella con il file di testo da linkare e il file schema.ini con la struttura della tabella.A questo riferimento ho pubblicato un esempio e dei riferimenti su come strutturare il proprio schema.iniPassando a VB6 si definisce una subPrivate Sub CreateLink(sPathName As String, sTableName As String, sLinkName As String, sDataBase As String)    'sTableName = nome della tabella di testo da linkare es: myfile.csv    'sPathName = nome della path es: c:\testo\    'sLinkName = nome del link da impostare...

Due funzioni di Arrotondamento con Visual Basic

Da un pò di tempo utilizzo questa funzione per arrotondare i valori.Avviso gli eventuali utilizzatori che NON funziona come le analoghe funzioni presenti su Excel (Arrotonda) o di Access (Round).Il secondo parametro (Arrotondamento appunto) prevede il valore assoluto che si vuole come base di arrotondamento, quindi un eventuale valore di 10 NON indica che si vogliono dieci decimali ma semplicemente che si vuole arrotondare per 10.Con questo sistema sono previsti naturalmente TUTTI i valori possibili, cose del tipo 10,998 sono perfettamente lecite come parametro (a proposito se si vuole il calcolo dell'iva si deve indicare 0,01 come arrotondamento).Gli altri parametri sono intuitivi per cui non...

Balena annuncia che MsgHookX - per la gioia dei vb6isti è di nuovo online

Come da oggetto nel suo blog ha comunicato che l'oggetto descritto nel suo manuale "il Balena", la bibbia di ogni buon programmatore vb6 è nuovamente online.Prego tutti di leggere con attenzione l'ultima riga del post :)).http://www.dotnet2themax.it/blog/PermaLink,guid,bf15dda1-75c9-4cf7-879b-0d8807d5c5ef.aspx

Full Visual Basic Archive

Copyright © Luciano Bastianello

Design by Bartosz Brzezinski

Design by Phil Haack Based On A Design By Bartosz Brzezinski