179 - IS IT PRINTER ON ?

MANCKENNA 08/09/2009 01:30:53
#322243

[ô] A Instrução abaixo produz uma caixa de mensagem completa , construida com base no código
[ô] a seguir e exibe todos os elementos, pois todos os argumentos estão especificados.
[ô] Neste caso tería-mos que ter uma caixa de mensagem com os seguintes argumentos:
[ô] - Is it Printer On ?
[ô] - Yes
[ô] - No
[ô] - cancel

[ô] Pergunto porque não funciona ?

intResponse = MsgBox([Ô]Is the Printer On?[Ô], vbYesNoCancel + vbQuestion + _
vbDefaultButton2, [Ô]Question Box[Ô])
ALEMAO 08/09/2009 15:59:55
#322300
Boa Tarde Amigo!

Tu fez a declaração desta variavel??? Tenta assim...

Dim intResponse As Integer
intResponse = MsgBox([Ô]You are out of paper[Ô], vbExclamation + vbDefaultButton2 + vbAbortRetryIgnore, [Ô]For Printer[Ô])
TECLA 08/09/2009 16:25:33
#322302
A resposta está no TÓPICO ANTERIOR aberto por você com a mesma dúvida.
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=Abrir&varID=322245&varWorld=
MANCKENNA 08/09/2009 22:51:32
#322343
Citação:

TECLA escreveu:
A resposta está no TÓPICO ANTERIOR aberto por você com a mesma dúvida.
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=Abrir&varID=322245&varWorld=



Veja você mesmo no Zip
MANCKENNA 08/09/2009 22:53:12
#322344
ZipForm
MANCKENNA 10/09/2009 11:14:12
#322486
Citação:

MANCKENNA escreveu:
TECLA escreveu:
A resposta está no TÓPICO ANTERIOR aberto por você com a mesma dúvida.
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=Abrir&varID=322245&varWorld=



Veja você mesmo no Zip




Seis abandonaram eu porque , tô comendo muito sem pagar ou tô fazendo pregunta difici ?..........
Abandonam eu não gente coloquem este trem deste código certo ai no meu projeto pre eu ver isso funcionando e poder aprender também uai......
ROBIU 10/09/2009 12:50:16
#322497 Resposta escolhida
Nem está comendo muito nem está fazendo pergunta dificil! Suas perguntas chegam a ser bobas! Você coloca uma situação mas não explica o que quer. Noto uma falta de lógica...
Para enviar o projeto, é preciso zipar a Pasta do projeto.
Veja esse exemplo anexo. Se não é o que quer, explique com mais detalhes.
MANCKENNA 10/09/2009 13:22:59
#322499
é isso ai , este maldito livro que eu estou estudando [Ô]Aprenda VB 6.0 em 21 Dias[Ô] coloca assim:

A seguinte instrução produz uma caixa de mensagem completa, pois todos os argumentos estão especificados:

intResponse = MsgBox([Ô]Is the Printer On?[Ô], vbYesNoCancel + vbQuestion + _
vbDefaultButton2, [Ô]Question Box[Ô])

E nada mais , para um iniciante como eu , acho que este fp deste livro está deixando a desejar, se não fossem vocês eu já teria desistido ....... pois veja quanta coisa entra ai , além de este código ter que ser inserido em Cmd a ser criado.

Option Explicit



Private Sub Command1_Click()
Dim intResponse As Integer
intResponse = MsgBox([Ô]Is the Printer On?[Ô], vbYesNoCancel + vbQuestion + _
vbDefaultButton2, [Ô]Question Box[Ô])
Select Case intResponse
Case 2 [ô]Cancelar
MsgBox [Ô]Você Clicou em cancelar![Ô]
Case 6 [ô]Sim
MsgBox [Ô]Você clicou em Sim![Ô]
Case 7 [ô]Não
MsgBox [Ô]Você clicou em não![Ô]
End Select
End Sub

Só com a ajuda de Deus e de vocês eu chego lá.....

Agradecido uma vez mais......e continuem a ter paciência com as minha perguntinhas tolas...mas alguém já me disse que [Ô] Não existe pergunta tola e sim tolos que não perguntam[Ô] que não é o meu caso né mesmo ?

Valeu :
Tópico encerrado , respostas não são mais permitidas
Voltar