Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Da excel a Visual Basic6

Problemi di HTML? Di PHP, ASP, .NET, JSP, Perl, SQL, JavaScript, Visual Basic..?
Vuoi realizzare programmi in C, C++, Java, Ruby o Smalltalk, e non sai da che parte cominciare?
Entra qui e troverai le risposte!

Moderatori: Triumph Of Steel, archimede

Da excel a Visual Basic6

Postdi Statix » 03/10/11 20:49

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.
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Sponsor
 

Postdi archimede » 04/10/11 08:28

Statix ha scritto: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
archimede
Moderatore
 
Post: 2755
Iscritto il: 07/11/02 12:41
Località: Genova

Re: Da excel a Visual Basic6

Postdi Statix » 04/10/11 20:56

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
Immagine
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Postdi archimede » 05/10/11 09:29

Non sono un esperto di VB. Prova qualcosa tipo
Codice: Seleziona tutto
ListView1.Items(11).Selected = True
ListView1.Items(11).Focused = True
HTH.

Alessandro
archimede
Moderatore
 
Post: 2755
Iscritto il: 07/11/02 12:41
Località: Genova


Torna a Programmazione


Topic correlati a "Da excel a Visual Basic6":


Chi c’è in linea

Visitano il forum: Nessuno e 9 ospiti