Sxe 10.2 İndir , Sxe 10.2 WallHack İndir , Cs 1.6 & 1.5 Sxe 10.2 Wall Hack Download - CS TR
<<<<<<<<<<<<< CS TR >>>>>>>>>>>>>>>>>

Linkleri görebilmek & kisaca forumdan daha yararli bir şekilde yararlanmak için üye olunuz

<<<<<<<<<<<<< CS TR >>>>>>>>>>>>>>>>>

Sxe 10.2 İndir , Sxe 10.2 WallHack İndir , Cs 1.6 & 1.5 Sxe 10.2 Wall Hack Download - CS TR

Sxe 10.2 CS 1.5 & 1.6 Wall Hack Sxe Hack , Sxe Hileleri ,Sxe 10.2 Hileleri , Full - Torrent Oyunlar,Tüm Oyunlar , Visual Basic Dersleri,
 
AnasayfaSSSAramaÜye ListesiKullanıcı GruplarıKayıt OlGiriş yap

Paylaş | 
 

 [VB] Basit Bir Media Player Yapimi

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
fRkn*
♥ CS -TR Kurucusu♥
♥ CS -TR Kurucusu♥


Mesaj Sayısı : 345
Rep Puanı : 1103
Kayıt tarihi : 23/07/10
Nerden : İzmir

MesajKonu: [VB] Basit Bir Media Player Yapimi   Paz Tem. 25, 2010 1:39 pm

CTRL T Basarak Oradan Microsoft Common Dialog İşaretleyin Ardından Forma Dönüp 4 command 1 tanede text kutusu ekleyin.

Text1'in adı : Şarkınızı seçip "Yükle"butonuna basın ve çalın
command1 : "Yükle"
command2 : "Çal"
command3 : "Dur"
command4 : "Gözat"
ve kodlar :





Kod:
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ç"

.Filter = "Şarkı Dosyaları (*.mp3) |*.mp3; |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
Kullanıcı profilini gör http://csturkey.forumpro.org
 
[VB] Basit Bir Media Player Yapimi
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» VB 6 ile Basit Koxp Yapımı

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Sxe 10.2 İndir , Sxe 10.2 WallHack İndir , Cs 1.6 & 1.5 Sxe 10.2 Wall Hack Download - CS TR  :: Visual Basic :: Visual Basic Anlatimli Hazır Kodlar-
Buraya geçin: