.:: Aide VB ::.

Fermé

Ninsy - 17 juil. 2008 à 07:40
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 17 juil. 2008 à 10:56

Bonjour,

Débutant en vb, je souhaiterai quelques suggestions.

-) J'ai besoin d'écrire dans un fichier au démarrage de mon programme, en plus clair :
Ouvrir "lefichier.txt" regarder si "argument" si non "effacer le contenu" ensuite "écrire Argument dans lefichier.txt"

-) Jouer un son wav en cliquant sur un bouton.
Alors là .. j'ai cherché mais en vain, toutes les propositions ne fonctionnent pas.

-)Dernière question, je souhaiterais avoir un lien entre un serveur dédié et un programme, afin d'afficher son état dans ledit programme. Est ce possible ? Comment ? (Je sais qu'avec un automate on reprendrait une entrée mais là ...)

Merci d'avance :)

1 réponse

Réponse 1 / 1

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
17 juil. 2008 à 10:56

Bonjour,

Pour la zizique:

Private Declare Function PlaySound32 Lib "winmm.dll" Alias "PlaySoundA" (ByVal IpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

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

' ----------------------------------------
Sub PlayWAV()
' snd_async: son asynchrone (la musique n'arrete pas le programme)
If Application.CanPlaySounds Then
    WAVFile = "F:\mamusique\atmosph.wav" 'a adapter
    Call PlaySound32(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Else
    Exit Sub
End If

End Sub

End Sub

demo tirée de VBA
michel

Newsletters