Ga naar inhoud
  • 0

Openen cd


rmw

Vraag

7 antwoorden op deze vraag

Aanbevolen berichten

  • 0

Via het aanroepen van een Vbscriptje moet dat wel te doen zijn.

 

In mijn stoffig archief iets gevonden, nooit de tijd genomen om het te testen/uit te proberen:

 

Declarations : 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

 

'add 2 command button


'Command for closing CD tray
Private Sub Command1_Click()
Dim lRet As Long
lRet = mciSendString("set cdaudio door closed", returnstring, 127, 0)
Form1.Caption = "CD Tray Closed"
End Sub

'Command for opening CD tray
Private Sub Command2_Click()
Dim lRet As Long
lRet = mciSendString("set cdaudio door open", returnstring, 127, 0)
Form1.Caption = "CD Tray Opened"
End Sub


'Cheak
Private Sub Form_Load()
If lRet = mciSendString("set cdaudio door closed", returnstring, 127, 0) Then
Form1.Caption = "CD Tray Closed"
ElseIf lRet = mciSendString("set cdaudio door Open", returnstring, 127, 0) Then
Form1.Caption = "CD Tray Open"
End If


End Sub

 

Schiet dus niet op mij indien het niet zou werken, ben geen VB held.....

Link naar reactie
  • 0

Het WZSG-debat dateert uit de periode van de zes en was geïnspireerd op een aantal reflecties van de grote Ilyse Kazar. Maar ondertussen is er heel wat veranderd en ik vraag me af hoe verdedigbaar die stelling nog is. Vandaar ook mijn opmerking: "We zijn écht straffe gasten" (onder verstaan: "en FileMaker wringt niet meer tegen"). Of zie ik het nu te positief?

Link naar reactie
  • 0
Of zie ik het nu te positief?

 

Hangt volgens mij af van de positie waar je staat.

 

Velen (om niet te zeggen de meeste) hebben zich volledig kunnen toeleggen op de 7. De resultaten zijn er ook naar...ze weten/kennen bijna alles van de nieuwe versie.

 

Als je, zoals ik, door omstandigheden, nog steeds in 5 en 6 dient bezig te zijn, en de 7 er even bijneemt, omdat dit uiteindelijk toch ooit finaal zal moeten gebeuren, wringt dat ding enorm tegen.

Meer zelfs, ik heb het soms moeilijk om de logica van de 5 en 6 te vergeten als ik de 7 probeer, terwijl ik me even later in de klas moet kunnen concentreren op de (zoals we het nu zien) beperkingen van de 5 en 6.

Ik geef toe dat ik nu soms in 7 en lager volledig de mist in ga...

Ik hoop dat dit tijdelijk en niet chronisch zal zijn.....

Link naar reactie

Doe mee aan dit gesprek

Je kunt dit nu plaatsen en later registreren. Indien je reeds een account hebt, log dan nu in om het bericht te plaatsen met je account.

Gast
Beantwoord deze vraag...

×   Geplakt als verrijkte tekst.   Plak in plaats daarvan als platte tekst

  Er zijn maximaal 75 emoji toegestaan.

×   Je link werd automatisch ingevoegd.   Tonen als normale link

×   Je vorige inhoud werd hersteld.   Leeg de tekstverwerker

×   Je kunt afbeeldingen niet direct plakken. Upload of voeg afbeeldingen vanaf een URL in

×
×
  • Nieuwe aanmaken...