Ciao a Tutti mi chiamo A.Maurizio e sono un nuovo Iscritto
E il mio problema con il Vb6.0 e questo :
In un Form ho inserito una list dove viene inserita una serie di date prelevate direttamente da un file TXT
Poi ho inserito un Pulsante e una Label ; e fin qui tutto ok
lo scopo di questo programma e evidenziare una di queste date visualizzate dalla mia List1 e passare questa data ad una InputBox in modo tale da decidere se farla visualizzare nella mia Label1; nel caso in qui rispondessi con il tasto Si Della mia (Inputbox)
al Contrario se io rispondo con il tasto no della mia (Inputbox) allora Deve passare il tutto allla ruotine successiva di chiusura Del Form1
Ora : Io il Tutto lo creato in questo modo :
CODICE
Sub Trasferisci_Dato_Selezionato()
Dim N As Integer
Dim Selezione As Boolean
Dim S As String
Dim Domanda As String, Title As String, Default As String
Dim MyValue As String
Domanda = "La data da te Scelta é :"
Title = "Attenzione By A.Maurizio"
Default = "" & Form1.List1.List(N)
Domanda = Default
Default = InputBox(Domanda, Title, Default)
For N = 0 To Form1.List1.ListCount - 1
If Form1.List1.Selected(N) = True Then
'Form1.Label5.Caption = Form1.List1.List(N)
'Domanda = Form1.List1.List(N)
Form1.Label5.Caption = "" & Default
End If
Next N
If Default = "" Then
Call Avvia_Temporizzatore
End If
End Sub
Ora la mia richiesta e questa :
Come posso fare per farsi che quando premo una data dalla mia list1
Essa vada ad Inserirsi nella mia )Inputbox) e se premo il tasto "Si" tale data si visualizzi nella mia Label5 !
Grazie si da ora per tutto l'aiuto che vorrete darmi in merito Grazie da A.Maurizio