Da excel a Visual Basic6

[Statix]

Ciao a tutti,
finora ho sempre lavorato con excel per i miei programmini sul gioco del Lotto,
adesso vorrei passare al VB6 per velocizzare questi programmi,
quindi mi serve un aiuto ,in quanto le mie conoscenze del VB6 sono un pò vaghe e scarse.
come inizio,per forza di cose bisognerebbe creare un archivio (ho i dati)con visualizzazione
delle estrazioni e selezione delle ruote e aggiungere una macro per l'aggiornamento tramite Web (quì ho una macro in VBA excel da adattare)e manualmente con una maschera d'inserimento.
chi se la sente e il benvenuto,passo a voi l'ardua sentenza.
credo che sarà dura ma c'è la farò.
grazie.

[archimede]

come inizio,per forza di cose bisognerebbe creare un archivio (ho i dati)

Non ho capito se i dati intendi continuare a gestirli con Excel o se stai pensando di usare un db. Nel secondo caso, per ora posso solo suggerirti di guardare qui.

Alessandro

[Statix]

Ciao Archimede,
ti volevo chiedere come far in modo che all'apertura del browser di estrazioni,
la scrollbar vada automaticamente all'ultima estrazione e non la prima.

Codice: Seleziona tutto

Private Sub Form_Load()

'All'apertura della finestra alimenteremo i valori min e max della scrollbar

    Me.HScroll1.Min = 1
    Me.HScroll1.Max = GetQuantitaEstrInArchivio

End Sub

Codice: Seleziona tutto

Private Sub HScroll1_Change()
    AlimentaLista
End Sub

'

Codice: Seleziona tutto

Questa procedura serve per leggere una determinata estrazione e
'mostrarla a video
Sub AlimentaLista()

    'Dichiariamo un oggetto di tipo item per alimentare una lista
    Dim itm As MSComctlLib.ListItem
   
    'Dichiariamo una variabile struttura per leggere l'estrazione
    'da mostrare nella nostra listview
    Dim strctE As STRUCT_ESTRAZIONE
   
    'Variabili di ciclo da utilizzare per alimentare la nostra listview
    Dim r As Integer, k As Integer
   
    'svuotiamo la nostra lista
    ListView1.ListItems.Clear
   
    'Tramite la routine LeggiEstrazione leggeremo l'estrazione
    'L'idEstr da passare come parametro sarà il valore impostato
    'nella scrollbar
    Call LeggiEstrazione(Me.HScroll1.Value, strctE)
   
    'alimentiamo l label con la data utilizzando la funzione
    'LeggiDataEstr e quella del numero dell'estrazione utilizzando
    'struttura dati
    Me.labData = LeggiDataEstr(strctE)
    Me.LabNumero = strctE.DataEstr.nNumEstr

    'Con il costrutto For...Next faremo un ciclo sulle ruote
    For r = 1 To 11
        'aggiungiamo un elemento alla lista
        Set itm = ListView1.ListItems.Add
       
        'il primo campo deve contenere il nome della ruota
        itm.Text = aNomiRuote(r)
       
            'a questo punto dobbiamo alimentare i campi con i 5 estratti
            For k = 1 To 5
                itm.SubItems(k) = strctE.aRuote(r).aNum(k)
            Next
       
    Next
   

End Sub

[archimede]

Non sono un esperto di VB. Prova qualcosa tipo

Codice: Seleziona tutto

ListView1.Items(11).Selected = True
ListView1.Items(11).Focused = True

HTH.

Alessandro