1. مهمان گرامی، جهت ارسال پست، دانلود و سایر امکانات ویژه کاربران عضو، ثبت نام کنید.
    بستن اطلاعیه

تکه کد نمایش کد اسکی در ویژوال بیسیک

شروع موضوع توسط ViRTUS ‏12/10/12 در انجمن Visual Basic

  1. کاربر ارشد

    تاریخ عضویت:
    ‏8/12/11
    ارسال ها:
    12,530
    تشکر شده:
    3,789
    امتیاز دستاورد:
    0
    ر زیر برای شما تکه کدی را می گذارم که به وسیله آن شما می توانید تکه فایل صوتی را در برنامه پخش کنید
    تکه کد :
    Private Declare Function sndPlaySound Lib “winmm” Alias “sndPlaySoundA” (ByVal FileName As String, ByVal uFlags As Long) As Long
    Private Sub Command1_Click()
    sndPlaySound App.Path & “\exit.wav“, 0
    End Sub
    در کد بالا app.path همان پوشه ای است که برنامه از آنجا اجرا می شود و exit.wav نام فایل صوتی مورد نظر است
    کد های Private Declare Function… یک api از api های ویندوز است.
    این برنامه در ویژوال بیسیک ۶ نوشته شده است و نیاز به یک دکمه دارد با نام Command1 .