[Access 2k VBA] "Flashing" di un campo

Spike79 · 27-01-2006, 10:05

Ciao, è possibile far si che un campo di una maschera venga evidenziato da una specie di 'flash' (come ad es succede alle applicazioni in attesa sulla taskbar) ?
Dopo che modifico il contenuto di questo campo (via codice VBA), vorrei infatti farlo notare all'utente....avevo pensato di selezionare tutto e deselezionare un paio di volte, ma mi pare una 'pezza'....esiste qualcosa di già codificato in Access 2000 ?
thanx

Fenomeno85 · 27-01-2006, 10:27

tutto si può volendo ti basta fare una cosa del genere

questo è per .NET ... vb6 non ce l'ho più e non ho voglia di scaricarlo dal sito

TextBox1.BackColor() = System.Drawing.Color.White
TextBox1.BackColor() = System.Drawing.Color.Blue

~§~ Sempre E Solo Lei ~§~

Spike79 · 27-01-2006, 10:40

FATTO!
intanto che aspettavo la risp, mi è venuta un'idea....ho fatto una sub così:

Private Sub Flash(campo As Control, secondi As Integer)
Dim i As Integer

For i = 0 To secondi
campo.BackColor = vbBlack
campo.ForeColor = vbWhite
Repaint
Sleep 500

campo.ForeColor = vbBlack
campo.BackColor = vbWhite
Repaint
Sleep 500
Next i

End Sub

dove "Sleep" è una chiamata così:
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

mi basta passare il nome del campo e i secondi di flashing e ci pensa lui.
(ovviamente è ottimizzabile, però non è malaccio)
Grazie lo stesso della risposta.

27-01-2006, 10:05	#1
Spike79 Senior Member Iscritto dal: Aug 2004 Città: Provincia di Monza e Brianza Messaggi: 6309	[Access 2k VBA] "Flashing" di un campo Ciao, è possibile far si che un campo di una maschera venga evidenziato da una specie di 'flash' (come ad es succede alle applicazioni in attesa sulla taskbar) ? Dopo che modifico il contenuto di questo campo (via codice VBA), vorrei infatti farlo notare all'utente....avevo pensato di selezionare tutto e deselezionare un paio di volte, ma mi pare una 'pezza'....esiste qualcosa di già codificato in Access 2000 ? thanx __________________ AMD Ryzen 5 7600X - Dissipatore Thermalright Assassin King 120SE - RAM Kingston Fury Beast 2x16Gb DDR5 CL30 @ 6000 - Motherboard ASROCK B650 Pro RS - NVME Kingston KC3000 2Tb - PSU FSP Hydro PRO 600w - Win 11 PRO

27-01-2006, 10:27	#2
Fenomeno85 Senior Member Iscritto dal: Jun 2002 Città: Provincia De VaRéSe ~ § ~ Lat.: 45° 51' 7" N Long.: 8° 50' 21" E ~§~ Magica Inter ~ § ~ Detto: A Chi Più Amiamo Meno Dire Sappiamo ~ § ~ ~ § ~ Hobby: Divertimento allo Stato Puro ~ § ~ ~ § ~ You Must Go Out ~ § ~ Messaggi: 8897	tutto si può volendo ti basta fare una cosa del genere questo è per .NET ... vb6 non ce l'ho più e non ho voglia di scaricarlo dal sito TextBox1.BackColor() = System.Drawing.Color.White TextBox1.BackColor() = System.Drawing.Color.Blue ~§~ Sempre E Solo Lei ~§~ __________________ Meglio essere protagonisti della propria tragedia che spettatori della propria vita Si dovrebbe pensare più a far bene che a stare bene: e così si finirebbe anche a star meglio. Non preoccuparti solo di essere migliore dei tuoi contemporanei o dei tuoi predecessori.Cerca solo di essere migliore di te stesso

27-01-2006, 10:40	#3
Spike79 Senior Member Iscritto dal: Aug 2004 Città: Provincia di Monza e Brianza Messaggi: 6309	FATTO! intanto che aspettavo la risp, mi è venuta un'idea....ho fatto una sub così: Private Sub Flash(campo As Control, secondi As Integer) Dim i As Integer For i = 0 To secondi campo.BackColor = vbBlack campo.ForeColor = vbWhite Repaint Sleep 500 campo.ForeColor = vbBlack campo.BackColor = vbWhite Repaint Sleep 500 Next i End Sub dove "Sleep" è una chiamata così: Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) mi basta passare il nome del campo e i secondi di flashing e ci pensa lui. (ovviamente è ottimizzabile, però non è malaccio) Grazie lo stesso della risposta. __________________ AMD Ryzen 5 7600X - Dissipatore Thermalright Assassin King 120SE - RAM Kingston Fury Beast 2x16Gb DDR5 CL30 @ 6000 - Motherboard ASROCK B650 Pro RS - NVME Kingston KC3000 2Tb - PSU FSP Hydro PRO 600w - Win 11 PRO

Strumenti
Mostra una versione stampabile Invia questa pagina per email