Leuk effect gezocht

[Revdutchie]

Hallo iedereen,

Ik ben nog steeds bezig met me dartprogrammaatje nu ben ik op zoek naar een leuk effect als iemand 180 gooit, ik heb al voorwaardelijke opmaak zodat de waarde rood wordt, maar ik wil iets leukers, weet alleen niet wat kan en mogelijk is, het effect mag een seconde of 2 a 3 duren.

Wie o wie weet een leuk effect ?

 

[Cobbe]

Wat zeker niet mag mankeren is de kreet.

Cobbe

 

[Revdutchie]

Wat zeker niet mag mankeren is de kreet.

Cobbe

Ja, die is leuk, maar hoe roep ik dat aan ? Waar heb je die vandaan ? staat daar ook een NO Score geluid ?

 

[Revdutchie]

Ik heb het geprobeerd met wat ik gevonden heb op inet maar dat werkt niet,
iemand de tip ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [A1] = 1 Then Playsound.Path "\sounds\180.wav"
End Sub

 

[Warme bakkertje]

Test de bijlage

 

[Revdutchie]

Test de bijlage

Yup, dat werkt :thumb::thumb::thumb:

Iemand nog meer ideen voor leuke effecten, zat nog te denken aan het snel openen en sluiten van een textbox met 180 er in ofzo

 

[Revdutchie]

EDIT, het is gelukt.

 

[Warme bakkertje]

Zorg dat deze regels bovenaan de code van je formulier staan

Private Declare Function PlaySound Lib "winmm.dll" _
 Alias "PlaySoundA" (ByVal lpszName As String, _
 ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000

 

[Revdutchie]

Zorg dat deze regels bovenaan de code van je formulier staan

Private Declare Function PlaySound Lib "winmm.dll" _
 Alias "PlaySoundA" (ByVal lpszName As String, _
 ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000

Juh, had het in het worksheet gezet, maar moest natuurlijk bovenaan in het userform

 

[Warme bakkertje]

Nog een ideetje

 

[Revdutchie]

Nog een ideetje

Ja daar kan ik ook nog wel wat mij, aanvullen met een timer en hij stopt vanzelf weer

Vraagje over de sounds nog, dat werkt nu maar als het bestand niet voor komt dan krijg ik zo een windows bling geluidje, is dat nog te omzeilen ?

 

[WHER]

Misschien nog een visueel effectje? Met "gerecycleerde" stukjes code van snb (denk ik)

 

[Revdutchie]

Ja die is cool, maar hoe krijg ik daar in het midden 180 in en de lijnen moeten geel, want de achtergrond is zwart.

 

[WHER]

Dat moet ik eens bestuderen, zoals gezegd heb ik die code niet zelf geschreven en m'n eigen VBA kennis is niet zo schitterend.

 

[WHER]

Weer iets bijgeleerd.

 

[Revdutchie]

WHER :thumb::thumb:

Dat is echt cool, moet nog even kijken hoe en waar ik dat kwijt kan, maar dat wordt voor morgen, tis bedtijd nu

 

[Warme bakkertje]

En waarom geen combinatie van de drie(vergeet het geluidsbestand niet)

 

[WHER]

Het bestand uit post #15 met extra kleureffect.
Hou ons tegen als we overdrijven