.:: Aide VB ::.

Ninsy -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
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 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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
0