Hvordan bestemmer jeg hvilken CD spiller som skal aktiveres ??
Svein
"Frost" <ppppR-E-M-O-V-E@europe.com> wrote in message
news:9d832s$g7$1@news.inet.tele.dk...
> Hej Henrik
>
> Du skriver at længden på returnstring er 127 men den ER 0. Du kan enten
> sætte sætte
> længden til 127 (ReDim) eller sætte lpstrReturnString til null som i følg.
> eks.:
>
> 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 Sub Command1_Click()
> retvalue = mciSendString("set CDAudio door open", _
> vbNullString, 0, 0)
> End Sub
>
> Private Sub Command2_Click()
> retvalue = mciSendString("set CDAudio door closed", _
> vbNullString, 0, 0)
> End Sub
>
> Med venlig hilsen
> Thomas J.
>
>
> "Henrik Jensen" <henrik-jensen@bigfoot.com> skrev i en meddelelse
> news:mUGJ6.443$%65.28917@news.get2net.dk...
> > Hej NG
> >
> > Jeg har sakset følgende kode fra et eks. hentet på nettet, men jeg kan
> > fan*** ikke få det til at virke!
> > Jeg få en meddelse om at "returnstring" ikke er defineret.
> > Det kan jeg måske godt forstå, men det eks. jeg har hentet virker.
> > Hvad mangler jeg? Eller hvad gør jeg galt?
> >
> >
> > 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 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
> >
> >
> > Venlig Hilsen/Best Regards
> >
> > Henrik
> > --
> > People are like clouds all unique...
> >
> >
> >
>
>