[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

[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