... mandare del testo cliccando su un bottone
Timer1 SendKeys.Send (TextBox1.Text)
Private $fStart As Float
Private $fStop As Float
Public Sub Button1_Click()
$fStart = Timer
End
Public Sub Button2_Click()
Dim fTempo As Float
$fStop = Timer
fTempo = $fStop - $fStart
TextBox1.Text = Format$(fTempo, "#.###")
End
... mandare del testo cliccando su un bottone
Timer1 SendKeys.Send (TextBox1.Text)
A chi devi inviare il testo ? Voglio dire: a quale oggetto o risorsa ?
Perché vorresti utilizzare anche un Timer ? Voglio dire: cosa dovrebbe fare ? Come si inserisce la sua azione all'interno del programma ?
Dacci qualche informazione in più.
' Gambas class file
Private hTempo As Timer
Private $sMessaggio As String
Private $iConto As Integer
Public Sub form_Open()
hTempo = New Timer As "tempo"
End
Public Sub Button1_Click()
$iConto = 0
hTempo.Enabled = False
$sMessaggio = " da button 1"
hTempo.Delay = 2000 ' in millesimi di secondo
hTempo.Enabled = True
End
Public Sub Button2_Click()
$iConto = 0
hTempo.Enabled = False
$sMessaggio = " da button 2"
hTempo.Delay = 3000
hTempo.Enabled = True
End
Public Sub tempo_Timer()
Inc $iConto
TextBox1.Text = " Nota n. " & $iConto & $sMessaggio
End
Non è che ti sprechi molto nello spiegare quello che vuoi, faccio comunque quest'ultimo tentativo che comunque è più o meno spiegato nella documentazione:Codice: gambas [Seleziona]' Gambas class file
Private hTempo As Timer
Private $sMessaggio As String
Private $iConto As Integer
Public Sub form_Open()
hTempo = New Timer As "tempo"
End
Public Sub Button1_Click()
$iConto = 0
hTempo.Enabled = False
$sMessaggio = " da button 1"
hTempo.Delay = 2000 ' in millesimi di secondo
hTempo.Enabled = True
End
Public Sub Button2_Click()
$iConto = 0
hTempo.Enabled = False
$sMessaggio = " da button 2"
hTempo.Delay = 3000
hTempo.Enabled = True
End
Public Sub tempo_Timer()
Inc $iConto
TextBox1.Text = " Nota n. " & $iConto & $sMessaggio
End