سفارش تبلیغ
صبا ویژن
[ و فرمود : ] از بخشیدن اندک شرم مدار که محروم کردن اندک‏تر از آن بود . [نهج البلاغه]

آموزش وسرگرمی

بستن و باز کردن سی دی رم

 

بازکردن...

Private Sub Command1_Click()
retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0

End Sub

 

بستن...

()Private Sub Command2_Click
retvalue = mciSendString("set CDAudio door Closed", returnstring, 127, 0)

End Sub

 

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

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

 

 


 




یاسر ::: یکشنبه 87/11/13::: ساعت 11:30 عصر

 
لیست کل یادداشت های این وبلاگ
>> بازدیدهای وبلاگ <<
بازدید امروز: 0


بازدید دیروز: 1


کل بازدید :2147
 
 >>اوقات شرعی <<
 
>> درباره خودم<<
 
>>فهرست موضوعی یادداشت ها<<<
 
>>اشتراک در خبرنامه<<
 
 
>>طراح قالب<<