Vart på nätet kan man hitta information om mediahantering i visual basic? Till exempel så är jag intresserad av att lära mig hur man spelar upp en cd? (läser programmering A på gymnasienivå så jag är ingen expert) Du kan börja testa denna kod som går att bygga ut mer sofistikerat.Mediakontroller, OCX?
Sv: Mediakontroller, OCX?
<code>
Option Explicit
'Öppna eller stäng datorns CD-lucka
'Om du vill att ditt program skall stänga eller mata ut CD-n,
'är denna API funktion användbar. I rutinen ser du hur man
'gör för att utföra dessa två funktioner
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
'// Öppnar luckan
Private Sub Command1_Click()
Dim retvalue As Long, returnstring As String * 32
retvalue = mciSendString("set CDAudio door open", _
returnstring, 127, 0)
End Sub
'// Stänger luckan
Private Sub Command2_Click()
Dim retvalue As Long, returnstring As String * 32
retvalue = mciSendString("set CDAudio door closed", _
returnstring, 127, 0)
End Sub
</code>