ERRO AO ABRIR CD-ROM PINVOKESTACKIMBALANCE WAS DET

 Tópico anterior Próximo tópico Novo tópico

ERRO AO ABRIR CD-ROM PINVOKESTACKIMBALANCE WAS DET

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#442117 - 23/10/2014 12:04:28

VBCODE
SANTA MARIA - RS
Cadast. em:Outubro/2014


Problema:
pinvokestackimbalance was detected

Public Class Form1
    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal Command As String, ByVal ReturnString As String, ByVal ReturnLength As Long, ByVal hWnd As Long) As Long
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        mciSendString("set cdaudio door open", 0, 0, 0)
    End Sub

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
        mciSendString("set cdaudio door closed", 0, 0, 0)
    End Sub
End Class

Ao clicar no botão abre a gaveta do cd porem logo após dá o erro, pesquisei mas não consegui resolver. Help



Resposta escolhida #442128 - 23/10/2014 17:41:39

PROGRAMADORVB6
LISBOA
Cadast. em:Janeiro/2004


Última edição em 24/10/2014 09:47:03 por PROGRAMADORVB6

Olá , aqui vai um exemplo para vc testar
Imports System.Runtime.InteropServices
Imports System.Text

Public Class Form1
    <DllImport("winmm.dll")> _
    Public Shared Function mciSendString(ByVal command As String, ByVal buffer As StringBuilder, _
ByVal bufferSize As Int32, ByVal hwndCallback As IntPtr) As Int32

    End Function


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        mciSendString("set CDAudio door open", Nothing, 127, IntPtr.Zero)

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        mciSendString("set CDAudio door closed", Nothing, 127, IntPtr.Zero)
    End Sub
End Class
  


Nota : se concluiu feche o tópico

______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.


#442145 - 24/10/2014 13:22:15

VBCODE
SANTA MARIA - RS
Cadast. em:Outubro/2014


Muito obrigado! Perfect =)



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por VBCODE em 24/10/2014 13:22:39