Oppure

Loading
Questo topic e' stato chiuso dal moderatore.
29/05/09 17:30
AMIGOS
Devo creare un button che mi faccia da Start e Stop in vb 2008.
Ultima modifica effettuata da AMIGOS 29/05/09 17:31
aaa
29/05/09 19:05
Non c'è un oggetto apposta. Devi creare un bottone e dargli due funzioni. Se poi la funzione start lui esegue stop e la sua label è stop (e viceversa).
Credo di essermi spiegato abbastanza.

P.S. non scrivere il titolo in maiuscolo
29/05/09 19:16
AMIGOS
so che devo dargli du funzioni al bottone.. so farlo in vb6, ma in vb 2008 no...
poi no capisco la label che centra... no fa riferimento ad una caption il bottone ? no so
se ti andrebbe di essere piu dettagliato te ne sarei grado.... se ti va di postarmi
queste 5 righe di codice mi saresti di aiuto...
aaa
29/05/09 19:35
Allora:
Dim State As Boolean
sub Button1(byval sender as object, byval e as system.eventargs) handles Button1.Click()
if State = True then
'instruzioni che vuoi per lo start
State= False
else
'instruzioni che vuoi per lo stop
State=True
Endif
EndSub


Questo è quanto...mi sembra sia tutto giusto...:rofl:
29/05/09 20:19
lorenzo
scusa ma non si capisce cosa vuoi fare....
quello che ti ha detto cassin.simone è corretto, cosa servono
le funzioni UCase e LCase????
aaa
29/05/09 20:43
AMIGOS
Il codice e corretto scusa la confusione...
ma no mi funziona a me quel codice.....

allora mi spiego meglio...
io devo nominare il tasto, cosi quando apro e clicco sul bottone
mi fa comparire alla pressione esempio:

Clicco sul bottone nominato start e mi compare stop..cosi viceversa
senza fare confusione... si puo avere il codice completo di qualsiasi normalissima
funzione in modo che io poi me lo adatto alle mie di esigenze....
l importante e che io cliccando mi vada alla pressione da start a stop il nome del bottone e viceversa
tutto qui....
Ultima modifica effettuata da AMIGOS 29/05/09 20:46
aaa
29/05/09 21:14
ruggy94
Se vuoi che venga solo cambiato il testo del bottone:
Sub Change(Btn as Button)
if Btn.Text="Start" then
btn.text="Stop"
else
btn.text="Start"
Endif
End Sub

Per richiamare la funzione
Change(nomedelbottone)
aaa
30/05/09 0:53
AMIGOS
Ecco questo intendevo.. poi il codice me lo adattavo...
grazie infinita ruggy
grazie cassin.simone

codice adattato:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Button1.Text = "Start" Then
            Button1.Text = "Stop"
            Timer1.Interval = NumericUpDown1.Value
            Timer1.Enabled = True
        Else
            If Button1.Text = "Stop" Then
                Button1.Text = "Start"
                Timer1.Enabled = False
            End If

            End If
    End Sub
Ultima modifica effettuata da AMIGOS 30/05/09 1:42
aaa