| View previous topic :: View next topic |
| Author |
Message |
vahid_ve
دوست آشناي سايت
Joined: 05 Feb 2006
Posts: 85
|
 Posted: Mon Feb 13, 2006 11:43 pm Post subject: CD ROM |
 |
|
چگونه میتوان درب همه ی CD ROM یا Writer ها را باز و یا بسته کرد؟
 |
|
| Back to top |
|
 |
unknown
مدير بخش ويژوال بيسيك
Joined: 05 Dec 2004
Posts: 439
Location: Tehran
|
| Posted: Tue Feb 14, 2006 2:04 am Post subject: |
|
|
بدون شرح...
| 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
Dim lngReturn As Long
Dim strReturn As Long
Private Sub Command1_Click()
'To open the CD door, use this code:
lngReturn = mciSendString("set CDAudio door open", strReturn, 127, 0)
End Sub
Private Sub Command2_Click()
'To close the CD door, use this code:
lngReturn = mciSendString("set CDAudio door closed", strReturn, 127, 0)
End Sub[size=18][/size][size=24][/size] |
|
|
| Back to top |
|
|
emsii
دوست آشناي سايت
Joined: 16 Dec 2005
Posts: 90
Location: tehran
|
| Posted: Sun Feb 19, 2006 9:59 am Post subject: |
|
|
| اين Api يك error يشقظشئشد close برنامه ايجاد مي كند اوووووووون چه جوري از بين ميره |
|
| Back to top |
|
|
unknown
مدير بخش ويژوال بيسيك
Joined: 05 Dec 2004
Posts: 439
Location: Tehran
|
| Posted: Sun Feb 19, 2006 11:54 pm Post subject: |
|
|
| emsii wrote: | | اين Api يك error يشقظشئشد close برنامه ايجاد مي كند اوووووووون چه جوري از بين ميره |
نمنه ... |
|
| Back to top |
|
|
vahid_ve
دوست آشناي سايت
Joined: 05 Feb 2006
Posts: 85
|
| Posted: Wed Mar 22, 2006 7:57 am Post subject: Writer |
|
|
پس در رایتر و بقیه سی دی رامها چطور باز میشه؟
 |
|
| Back to top |
|
|
emsii
دوست آشناي سايت
Joined: 16 Dec 2005
Posts: 90
Location: tehran
|
| Posted: Sat Mar 25, 2006 7:57 pm Post subject: |
|
|
| unknown wrote: | | emsii wrote: | | اين Api يك error يشقظشئشد close برنامه ايجاد مي كند اوووووووون چه جوري از بين ميره |
نمنه ... |
وقتي اجرا ميشه بعد از بستن برنامه يك error خووووف مياد روصفحه ...... |
|
| Back to top |
|
|
vahid_ve
دوست آشناي سايت
Joined: 05 Feb 2006
Posts: 85
|
| Posted: Thu Aug 10, 2006 8:23 pm Post subject: Re: Writer |
|
|
| vahid_ve wrote: | پس در رایتر و بقیه سی دی رامها چطور باز میشه؟
|
مثل اینکه خیال ندارید جواب منو بدید؟
 |
|
| Back to top |
|
|
vahid
بي تو هرگز
Joined: 26 Nov 2004
Posts: 3067
Location: Tehran
|
| Posted: Fri Aug 18, 2006 11:07 am Post subject: |
|
|
كنترل Windows Media Player رو به پروژت اضافه مي كني ...
يه دكمه هم اضافه مي كني .
حالا ...
| Private Sub Command1_Click()
WindowsMediaPlayer1.cdromCollection.Item(0).eject
End Sub |
|
|
| Back to top |
|
|
|
Profile 
Log in to check your private messages | 
FAQ 
Search 
Memberlist 
Usergroups 
Log in
Register
