Imaginsystems


Tecniche di Programmazione - Codici Sorgenti - News Informatiche
Archivio Posts
Anno 2014

Anno 2013

Anno 2012
Statistiche
  • Views Home Page: 54.219
  • Views Posts: 411.886
  • Views Gallerie: 0
  • n° Posts: 210
  • n° Commenti: 224

VB6 - FUNZIONE COPIA DI MATRICI

FUNZIONE COPIA DI MATRICI Visual Basic consente di copiare matrici usando l'operatore =, esattamente come per gli altri tipi di variabili. Occorre comunque attenersi a due semplici regole. 1) Le matrici a dimensione variabile possono apparire da entrambe le parti dell'operatore di assegnazione =. 2) Le matrici di dimensione fissa possono apparire solo alla destra dell'operatore di assegnazione =.Ecco un esempio di codice per la copia di matrici :Sub Sort(IntData() As String, OutData()  
Leggi tutto il post...
Categoria: VB6
lunedì, 07 mag 2012 Ore. 10.45

VB6 - ACQUISIRE LA DIMENSIONE DELLO SPAZIO LIBERO DI UN'UNITA'

ACQUISIRE LA DIMENSIONE DELLO SPAZIO LIBERO DI UN'UNITA'Per conoscere lo spazio libero disponibile su un'unità si può utilizzare la proprietà .AvailableSpace.L'esempio seguente mostra una funzione che accetta come primo parametro un drive e ne restituisce il numero di byte disponibili ( per trasformare tale valore in kilobyte è sufficiente dividerlo per 1.024 oppure, se si desidera la conversione in megabyte, per 1.048.576).CODICE VISUAL BASIC 6 / VB6 :Function ByteLiberiSuUnita(ByVal Unita As S 
Leggi tutto il post...
Categoria: VB6
lunedì, 07 mag 2012 Ore. 09.37

VB6 - AGIRE PRIMA CHE IL COMPONENTE RICEVA IL FOCUS

 AGIRE PRIMA CHE IL COMPONENTE RICEVA IL FOCUSQuando il focus raggiunge un oggetto, viene generato un evento di nome GotFocus. Se a tale oggetto è stata associata un subroutine per la sua gestione, essa viene eseguita.Più precisamente, la subroutine viene posta in esecuzione prima che l'oggetto prenda il controllo: se, ad esempio, l'oggetto è una TextBox, allora verrà prima eseguita la subroutine associata all'evento GotFocus e poi l'utente potrà inserire i dati:CODICE VISUAL BASIC 6 / VB6  
Leggi tutto il post...
Categoria: VB6
lunedì, 07 mag 2012 Ore. 09.08

VB6 - IMPEDIRE LO SPOSTAMENTE DEL FOCUS IN CASO DI ERRORE

IMPEDIRE LO SPOSTAMENTE DEL FOCUS IN CASO DI ERROREUno dei principali problemi dei programmatori è costituito dalla verifica della correttezza delle informazioni digitate dall'utente.Visual Basic viene in aiuto fornendo la gestione dell'evento .Validate, il quale viene eseguito ogni volta che il focus si deve spostare da un controllo a un altro, sempre che quest'ultimo abbia la proprietà .CausesValidation impostata con True ( è il default).In pratica, quando l'utente si spost 
Leggi tutto il post...
Categoria: VB6
lunedì, 07 mag 2012 Ore. 08.49

VB6 - ACQUISIRE IL PATH O ALTRA SPECIFICA VARIABILE D'AMBIENTE

ACQUISIRE IL PATH O ALTRA SPECIFICA VARIABILE D'AMBIENTEPer acquisire una determinata variabile d'ambiente si può utilizzare una funzione simile a quella riportata di seguito la quale, in questo esempio, viene richiamata da un Bottone Command1_Click() per ricercare la variabile d'ambiente Ex: path: CODICE VISUAL BASIC 6 / VB6Option ExplicitPrivate Sub Command1_Click() Dim str As String str = RicercaVariabileEnviroment("PATH")End SubFunction RicercaVariabileEnviroment(ByVal Var As Strin 
Leggi tutto il post...
Categoria: VB6
lunedì, 07 mag 2012 Ore. 08.36

VB6 - ACQUISIRE TUTTE LE IMPOSTAZIONI SET (environment)

ACQUISIRE TUTTE LE IMPOSTAZIONI SET (environment)La configurazione del sistema operativo fa uso di variabili d''ambiente un tempo molto utilizzate dai programmatori DOS, ma anche oggi può essere importante conoscere i loro valori.Per poter acquisire tali valori si utilizza la funzione Environ passandole un parametro numerico in base 1 come nel seguente esempio, che carica in una ListBox tutte le variabili dell'Enviroment :CODICE VISUAL BASIC / VB6 Private Sub CaricaVariabiliEnviroment() Dim x A 
Leggi tutto il post...
Categoria: VB6
lunedì, 07 mag 2012 Ore. 08.16

VB6 - INDIVIDUARE IL PERCORSO (path) DEL PROGRAMMA IN ESECUZIONE

 INDIVIDUARE IL PERCORSO (path) DEL PROGRAMMA IN ESECUZIONEPer individuare il percorso del programma in esecuzione si può ricorrere alla proprietà .Path applicata all'oggetto App.Dim Percorso As StringPercorso = App.PathFunzione che restituisce il percorso del programma in esecuzione :Private Function RecuperaPercorso() As String Dim Percorso As String Percorso = App.Path RecuperaPercorso = PercorsoEnd Function 
Leggi tutto il post...
Categoria: VB6
lunedì, 07 mag 2012 Ore. 08.09

VB6 - ELENCARE TUTTI I CONTROLLI PRESENTI SU UNA FORM

ELENCARE TUTTI I CONTROLLI PRESENTI SU UNA FORML'esigenza di analizzare con il programma tutti i controlli presenti su una Form è resa possibile attraverso l'oggetto Control. Il seguente esempio inserisce in una ListBox il nome di tutti i controlli presenti sulla Form :Private Function ElencoControlli() Dim ctrl As Control For Each ctrl In Controls() List1.AddItem ctrl.Name 'Aggiunge nella ListBox Debug.Print ctrl.Name ' Stampa  Next ctrlEnd Function 
Leggi tutto il post...
Categoria: VB6
lunedì, 07 mag 2012 Ore. 08.03

VB6 - COME APRIRE PIU' FORM DELLO STESSO TIPO CONTEMPORANEAMENTE

COME APRIRE PIU' FORM DELLO STESSO TIPO CONTEMPORANEAMENTESe il programma deve poter aprire contemporaneamente diverse finestre dello stesso tipo, si deve ricorrere alla istruzione Set congiunta a New.Un esempio di come un clic su un pulsante di nome CreaNuovaFinestra crei una nuova finestra di nome Form2 indipendente dall'esistenza di altre finestre dello stesso tipo:Private Sub CreaNuovaFinestra_Click() Dim NuovaFrom As Form2 'crea una nuova copia di Form2 Set NuovaForm = New Form2 'visualizza 
Leggi tutto il post...
Categoria: VB6
domenica, 06 mag 2012 Ore. 15.30

VB6 - FUNZIONE ENVIROMENT()

Oggi vi voglio far vedere come recuperare alcune informazioni importanti come "USERNAME" di chi sta usando il pc, "USERDOMAIN" ....Vi inserisco tutte le stringhe che potete inserire ed utilizzare .Le stringhe da utilizzare nella funzione ENVIROMENT$("STRING") :ALLUSERSPROFILEAPPDATACI_HOLOS_CLICLIENTNAMECommonProgramFilesCOMPUTERNAMEComSpecFP_NO_HOST_CHECKHOMEDRIVEHOMEPATHincludeJAVA_HOMElibLOGONSERVERMSDevDirNUMBER_OF_PROCESSORSOSPathPATHEXTPROCESSOR_ARCHITECTUREPROCESSOR_IDENTIFIERPROCESSOR_LE 
Leggi tutto il post...
Categoria: VB6
sabato, 05 mag 2012 Ore. 18.31

VB6 - FUNZIONE GENERA DELL'HASH MD5 DI UNA STRINGA

VB6 - FUNZIONE GENERA DELL'HASH MD5 DI UNA STRINGA Vi posto i sorgenti della Funzione che genera l'Hash MD5 in Visual Basic 6 / VB6. Come richiamare la funzione che genera l'Hash  Private Sub Form_Load() Dim KeyChiaro As String KeyChiaro = "Password" 'Trasformo la Chiave da Chiaro a MD5 HASH KeyChiaro = DigestStrToHexStr(KeyChiaro) Debug.Print KeyChiaro 'Scrive l'Hash MD5 End Sub CODICE COMPLETO DELLA FUNZIONE HASH MD5 : Option Explicit '/***** 
Leggi tutto il post...
Categoria: VB6
venerdì, 04 mag 2012 Ore. 13.23

VB6 - FUNZIONE STAMPA CONTENUTO ARRAY / VETTORE

VB6 - FUNZIONE STAMPA CONTENUTO ARRAY / VETTORE  Stampa il contenuto dell'Array o di un Vettore in Visual Basic 6 / VB6 : Questa funzione serve per stampare il contenuto in un Array Grande arbitrariamente, con la funzione UBound(), calcola quanto è grande l'Array . FUNZIONE STAMPA CONTENUTO ARRAY / VETTORE :   Private Function StampaVettore(ByRef v() As Integer) Dim Max As Integer Max = UBound(v) 'Grandezza del vettore 'Stampa il vettore caricarto da elemen 
Leggi tutto il post...
Categoria: VB6
venerdì, 04 mag 2012 Ore. 12.46

VB6 - FUNZIONE ARRAY MULTIDIMENZIONALI

VB6 - FUNZIONE ARRAY MULTIDIMENZIONALI  Introduzione Array/Vettore (Visual Basic 6 / VB6) : Possiamo vedere l'Array come un Vettore.Il vettore è un insieme di variabili di un determinato tipo accessibili tramite un indice.  Per esempio se si pensa ad una variabile come ad un cassetto che contiene delle calze, un vettore rappresenta una serie di cassetti che contengono tutte le calze.Anche se può non risultare chiaro cosa sia un vettore, tramite un esempio si denoterà immediatamente 
Leggi tutto il post...
Categoria: VB6
venerdì, 04 mag 2012 Ore. 11.44

VB6 - FUNZIONE PULISCI STRINGA DAI CARATTERI SPECIALI

FUNZIONE PULISCI STRINGA DAI CARATTERI SPECIALI Vi allego qui sotto il codice della funzione, che ha lo scopo di pulire una stringa da tutti i caratteri speciali che windows non accetta.La potete usare per esempio se dovete creare una cartella e non deve contenere i caratteri speciali o solamente volete che la stringa sia Alfanumerica.  Private Function ClearString(ByVal strIn As String) As String     Dim ch As Variant     For Each ch In A 
Leggi tutto il post...
Categoria: VB6
giovedì, 03 mag 2012 Ore. 18.14

VB6 - CREARE UN DATABASE ACCESS DA CODICE (Microsoft DAO 3.6 Object Library)

CREARE UN DATABASE ACCESS DA CODICE  Prima di cominciare dobbiamo aggiungere una dll al progetto.  Quindi fare click su Project >> References Si aprirà una finestra e spuntare Microsoft DAO 3.6 Object Library (dao360.dll) e poi fare click su Ok Ora siamo pronti a creare un Database Access da codice Visual Basic 6 (VB6) ' By Davide1986 Code www.imaginsystems.it ' Aggiungere Riferimento Microsoft DAO 3.6 Object LibraryConst NameDatabase = "Rubrica" ' Scegliere il nome del  
Leggi tutto il post...
Categoria: VB6
giovedì, 03 mag 2012 Ore. 16.51
Ora e Data
Mappa
Blogs Amici
    Copyright © 2002-2007 - Blogs 2.0
    dotNetHell.it | Home Page Blogs
    ASP.NET 2.0 Windows 2003