[VB6] Mi mandate alcuni programmi semplici da studiare? :-)

[robnet77]

Sto leggendo da tempo il libro del Balena MS Visual Basic 6 - i miti...

... ma sono un po' arrugginito (la scuola è un lontano ricordo del 1996) e ho bisogno di studiare per tutorial... ovvero vedendo crescere pian piano un progetto completo, per questo mi servirebbero dei blocchi di codice semplici (tipo una calcolatrice, etc.) e possibilmente PULITI ;)


Magari potete zipparmeli allegandoli ai post, senza riempirmi la casella postale... altrimenti chiedete pure il mio address in pvt :)

Grazie a tutti fin da ora... :)

[robnet77]

non vi accalcate mi raccomando :D :cry:

[matpez]

Trovi un mare di codice qui: www.visual-basic.it


ciaoooooooo

[robnet77]

Originally posted by "matpez"

Trovi un mare di codice qui: www.visual-basic.it


ciaoooooooo

sono iscritto alla loro mailing list, ma gli esempi che ho scaricato (una cinquantina) sono un po' incasinati, insomma non ho ancora studiato tutti gli aspetti di VB6 e quindi non riesco a interpretare parte del codice... per questo avrei bisogno di qualche programma MOLTO semplice (non "Hello World"...), tipo uno che mi aiuti a capire come lavorare con le stringhe e con i valori (ad esempio, ho bisogno di confrontare due directory per vedere se alcuni files sono stati modificati, o se i nomi dei files sono uguali, o roba di questo tipo) :)

[matpez]

Certo che iniziare da zero con questi tipi di programmi nn è facile...sprattutto perchè cominciamo a toccare il campo delle API;

cmq se vuoi una mano scrivi bene cosa vorresti che facesse il programma...dopo di che ti incollo il codice e magari ne discutiamo assieme...intato ti metto una funziona per cercare tutti i file di una cartella:


Option Explicit

Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long

Public Const MAX_PATH = 260

Public Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Public Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
Public Const FILE_ATTRIBUTE_NORMAL = &H80

____________________________________________________________

'sfolder=una cartella di ricerca
'sFileType=*.* tutti i file

Private Sub RicercaFile(ByVal sFolder As String, ByVal sFileType As String)

Dim FindData As WIN32_FIND_DATA
Dim FindHandle As Long
Dim FindNextHandle As Long
Dim sStr As String


'trovo il primo file della directory selezionata
FindHandle = FindFirstFile(sFolder & sFileType, FindData)

If FindHandle <> 0 Then
sStr = Left(FindData.cFileName, InStr(FindData.cFileName, Chr(0)) - 1)
If not(FindData.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) Then
lstFiles.AddItem sFolder & sStr
End If
End If

'loop fino all'ultimo dei files
If FindHandle <> 0 Then
Do
FindNextHandle = FindNextFile(FindHandle, FindData)
If FindNextHandle <> 0 Then
sStr = Left(FindData.cFileName, InStr(FindData.cFileName, Chr(0)) - 1)
If not(FindData.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) Then
lstFiles.AddItem sFolder & sStr
End If
Else
Exit Do
End If
Loop
End If


ciaoooooooooooooo :p