Dúvidas?

[Guest AAA]

Alguém pode me explicar estes codigos:

1-

Open "C:\Windows\System\Winbs32.dll" For Output As #1

Print #1, Proprietario

Close #1

Date = XX

-------------

2-

For i = 0 To 99

Campo(0, i) = rstTemp(0)!IdProduto & ""

Campo(1, i) = rstTemp(0)!Descricao & ""

Campo(2, i) = Format(rstTemp(0)!preço & "", "##0.00")

Campo(3, i) = rstTemp(0)!Estoque & ""

Campo(4, i) = rstTemp(0)!Vendas & ""

Next i

-------------

3-

Private Sub Calculadora()

On Error GoTo ErroCalculadora

Call ShellExecute(hwnd, "Open", "C:\Windows\Calc.exe", "", App.Path, 0)

Exit Sub

ErroCalculadora:

MsgBox "Não foi possível abrir a calculadora do Windows.", vbInformation + vbOKOnly, "Abrir Calculadora"

Exit Sub

End Sub

' em especial, para que serve o Error Go to?, App.Path?

conto com vocês!

valeu

[screech]

on Error goto serve para informar ao sistema o que fazer se ocorrer um erro durante o processamento do código. Ex.

private sub cmdcommand1_click()

on error goto ERRO

msgbox Variavel

ERRO:

msgbox "Ocorreu um erro"

end sub

Não testei o q ocorre, mas neste caso não informamos qual o valor de Variavel

Variavel = "Mensagem"

o sistema não achará a variavel e ocorrerá um erro: Ocorreu um erro

App.Path é o "Endereço" de um arquivo, por exemplo

C:\Arquivos de Programa\Macromedia...

[Guest AAA]

valeu cara

mas você pode me explicar mais sobre App.Path

se é q tem mais coisas sobre ele

falou

[William Rodrigues]

Salve!

O App.Path seria a localização do seu projeto, isso quando salvo, do contrário seria "C:\Arquivos de programas\Microsoft Visual Studio\VB98" (origem da instalação)

Abraços,

William Rodrigues

[Guest AAA]

Grande Pessoal

Valeu mesmo!

Mais já que eu to preguntando vou abusar mais um pouco

Para que server estes comandos

> Option Explicit

> lblVersao = "Versão " & App.Major & "." & App.Minor & "." & App.Revision

> Private Sub Form_Activate()

> Screen.MousePointer = vbHourglass

> Mid

>Proprietario = txtUsuario

XX = Date

Date = "05/05/95"

Open "C:\Windows\System\Winbs32.dll" For Output As #1

Print #1, Proprietario

Close #1

Date = XX

TO LAVANDO A ROUPA SUJA HEIN ! ! ! ! !

fwl