ForumYoLu
(¯`•.(¯`•. Hoşgeldiniz .•´¯).•´¯)

ÇOK KOLAY ÜYELİK İÇİN TIKLAYINIZ!


! SİTEDEN YARARLANMAK IÇIN ÜYE OLUN !
! ÜYE OLMADAN LİNKLER GÖRÜNMEZ !
! GİRİŞ YAPMADAN REKLAMLAR GİTMEZ !
Müzik Dinleyin Uyeolbl6
ForumYoLu
(¯`•.(¯`•. Hoşgeldiniz .•´¯).•´¯)

ÇOK KOLAY ÜYELİK İÇİN TIKLAYINIZ!


! SİTEDEN YARARLANMAK IÇIN ÜYE OLUN !
! ÜYE OLMADAN LİNKLER GÖRÜNMEZ !
! GİRİŞ YAPMADAN REKLAMLAR GİTMEZ !
Müzik Dinleyin Uyeolbl6
ForumYoLu
Would you like to react to this message? Create an account in a few clicks or log in to continue.

ForumYoLu

ForumYoLu Web Yuvasına Hoşgeldiniz
 
AnasayfaAnasayfa  AramaArama  Latest imagesLatest images  Kayıt OlKayıt Ol  Giriş yapGiriş yap  

 

 Müzik Dinleyin

Aşağa gitmek 
YazarMesaj
RappeRSRC
Administratör

Administratör
avatar


Müzik Dinleyin Profil1
Koç Keçi
Mesaj Sayısı : 449
Kayıt tarihi : 20/04/09
Yaş : 105
Nerden : Anadolunun İzmir-i
Lakap : RappeRSRC
Hayvanınız : 16
Takım : 2
Ruh Halim : 11
Müzik Dinleyin Profil2y

Müzik Dinleyin Empty
MesajKonu: Müzik Dinleyin   Müzik Dinleyin Icon_minitimePaz Haz. 20 2010, 17:08

project componentten microsoft common dialog control ü ekleyin bide forma ekleyin
4 commandbuton 1 tanede text kutusu ekleyin

olduğu gibi forma yapıştırn




Private Declare Function mciSendString Lib "winmm.dll" Alias
"mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString
As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As
Long

Private Declare Function mciGetErrorString Lib "winmm.dll" Alias
"mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As
String, ByVal uLength As Long) As Long

Private Sub Command1_Click()
Dim Hata As Long
Dim HataMesaji As String * 128
'Mesajı gönderiyoruz
Hata = mciSendString("open " & Chr$(34) & Text1.Text &
Chr$(34) & " alias YeniSes", 0, 0, 0)
'Hata Mesajını Alıyoruz
mciGetErrorString Hata, HataMesaji, 128
MsgBox HataMesaji
End Sub


Private Sub Command2_Click()
mciSendString "play YeniSes", 0, 0, 0
End Sub

Private Sub Command3_Click()
mciSendString "close Yenises", 0, 0, 0
End Sub



Private Sub Command4_Click()
On Error GoTo error

With CommonDialog1

.CancelError = True

.DialogTitle = "Ses Dosyası aç_-_-_-_-Sunasoft Yazılım
Bilgisayar-_-_-_-_"
.Filter = "Şarkı Dosyaları (*.***) |*.***; |Ses Dosyaları (*.wav)
|*.wav; |Midi Dosyaları (*.mid) |*.mid"
.InitDir = "c:"
.ShowOpen


If Len(.FileName) = 0 Then Exit Sub

Text1.Text = .FileName
cmdPlay.SetFocus
End With

error:
End Sub

Private Sub Form_Load()

'''Buraları bilmesenizde olur ben sadece nasıl çalıştığını görün diya
yaptım

Left = (Screen.Width - Width) \ 2
Top = (Screen.Height - Height) \ 2

Command1.Caption = "Yükle"
Command2.Caption = "Çal"
Command3.Caption = "Dur"
Command4.Caption = "Gözat"


Form1.Height = 4920
Form1.Width = 8820

Command1.Top = 720
Command1.Left = 480

Command2.Top = 1320
Command2.Left = 480

Command3.Top = 1920
Command3.Left = 480

Command4.Top = 2400
Command4.Left = 6600

Text1.Top = 2520
Text1.Left = 480

Text1.Height = 285
Text1.Width = 6015

End Sub
Sayfa başına dön Aşağa gitmek
http://forumyolu.yetkinforum.com
 
Müzik Dinleyin
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» AGS Müzik Eklemek

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
ForumYoLu :: Bilgisayar :: Visual Basic-
Buraya geçin: