سفارش تبلیغ
صبا ویژن
[ و آن حضرت را از فرموده رسول ( ص ) پرسیدند « پیرى را با خضاب بپوشانید و خود را همانند یهود مگردانید » گفت : ] او که درود خدا بر وى باد چنین فرمود : و شمار مرد دین اندک بود . اما اکنون که میدان اسلام فراخ گردیده و دعوت آن به همه جا رسیده ، هر کس آن کند که خواهد . [نهج البلاغه]

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

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

 

بازکردن...

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


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


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