🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: free.it.visual-basic
Article #3698

Re: Suoni

#3698
From: Omega
Date: Fri, 03 May 2002 20:55
29 lines
1696 bytes
"Giovanni" ha dgtato nel post:
> Ancora ciao
> volevo chiedervi anche come posso fare ad inserire un file .waw in un
> programma facendo si che appena la form si carica lui parta

Crea un modulo
===========Modulo.bas=====================
Private Declare Function sndPlaySound Lib "winmm" _
 Alias  "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal _
 uFlags As Long) As Long

Sub Suono(NomeFile As String)
    sndPlaySound NomeFile, 1
End Sub
=========================================

Poi nel form

Private sub Form Load()
suono "NomeWav.wav"
End Sub

Ciao

--
=Omega======================
"Hands On"
sentinellaomega[at]hotmail[dot]com
============================
Technical Details
Message-ID: <NOCA8.2654$US3.58428@twister1.libero.it>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-01!supernews.com!iad-peer.news.verio.net!news.verio.net!news.maxwell.syr.edu!nntp.infostrada.it!twister1.libero.it.POSTED!not-for-mail
References: <IGzA8.1425$zW3.30424@news1.tin.it>

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: f94ee,af9e9c9b052d2efc
X-Google-Attributes: gidf94ee,public
X-Google-ArrivalTime: 2002-05-03 13:58:17 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-01!supernews.com!iad-peer.news.verio.net!news.verio.net!news.maxwell.syr.edu!nntp.infostrada.it!twister1.libero.it.POSTED!not-for-mail
From: "Omega" <xxx@xxx.xxx>
Newsgroups: free.it.visual-basic
References: <IGzA8.1425$zW3.30424@news1.tin.it>
Subject: Re: Suoni
Lines: 31
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
Message-ID: <NOCA8.2654$US3.58428@twister1.libero.it>
Date: Fri, 3 May 2002 22:55:11 +0200
NNTP-Posting-Host: 151.26.35.144
X-Complaints-To: abuse@libero.it
X-Trace: twister1.libero.it 1020459309 151.26.35.144 (Fri, 03 May 2002 22:55:09 MET DST)
NNTP-Posting-Date: Fri, 03 May 2002 22:55:09 MET DST
Organization: [Infostrada]