Abrindo CDROM[VB 2008]

[Me.Love 0]

Olá,pesquisei um pouco na internet e achei um código de como abrir o CDROM e gostaria de compartilhar.

Fiz minhas alterações e fico legalzinhuuU *-*

 

1 - Crie um Novo Projeto

 

2 -Arraste uma textbox para o projeto,apenas arraste não precisa renomear.

 

3 -De um duplo clique no Seu Form,apague tudo que tiver lá e coloque o código que eu estarei passando aqui:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Agora ,quando abrir a janela escreva :

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

E tenha uma surpresa!!

 

> > >

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

< < <

 

Para ter Outra Surpresa Digite :

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Meu Primeiro post decente,e ainda foi feito por mim !

 

Comentem

 

Me.Love~

[Meneghini 0]

Erro de copilação ! Tente novamente xD

[Me.Love 0]

Que estranho.

Vou colcoar o Source para Download dai eu edito o Tópico ;)

[Meneghini 0]

Kra, essa source é muito mais fácil fazer por command buton !

 

Source

 

Option Explicit

 

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()

mciSendString "Set CDAudio Door Open Wait", _

0&, 0&, 0&

End Sub

 

Private Sub Command2_Click()

mciSendString "Set CDAudio Door Closed Wait", _

0&, 0&, 0&

End Sub

 

Private Sub Form_Load()

 

End Sub

 

Private Sub Label1_Click()

 

End Sub

 

:p

 

Dai nem precisa escrever, é so clicar no Command Buton 1 para abrir e no 2 para fechar

 

depois disto basta usar a criatividade ;D

[Me.Love 0]

É ,to ligado mas é que fica mais legal a pessoa Escrever Dai o negocio abrir '-' (Não vai pensar besteira =P).É que tendo o código,da pra por em qualquer coisa,botão,imagem,textbox,Label etc..

 

Obrigado por comentar :)

[Meneghini 0]

 

Fraga como fico no meu trainer para Gunbound ( Não vo divulgar ele ^^ )

[MazEfek 0]

Se a questão for rapidez irá ser mais facil button's não acha?. Mas se for tipo ''ó magica''

bem legal escrever

 

Bom Tópico man , levou meus Thank's

 

______________