Decio

você pode passar os valores por referencia, como no exemplo abaixo: Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer a = 1 b = 2 c = 3 teste a, b, c MsgBox a & "-" & b & "-" & c End Sub '********************************************************* Sub teste(ByRef c As Integer, ByRef d As Integer, ByRef e As Integer) c = 4 d = 5 e = 6 End Sub

já teve alguns tópicos relacionados, veja se ajuda. http://scriptbrasil.com.br/forum/index.php...54464&hl=webcam

Na minha opnião , não é possível. Trata-se de outro sistema operacional. você pode até conseguir rodar alguns programas que funcionem em DOS no OS2 , mas no caso do VB, que para rodar precisa de muitas bibliotecas que não são usadas no OS2, não deve ser possivel.

Poste aqui a parte do código que esta com problema . No Visual Basic você pode tratar erros com o comando "on error" você pode para resolver o problema de imediato tentar colocar a linha "on error resume next" para ignorar qualquer tipo de erro, mas o correto é fazer o tratamento de erros.

Use o exemplo abaixo: Open "c:\autoexec.bat" For Append As #1 Print #1, "Rem Esta linha foi adicionada" Close #1

Não sei se é isso que você quer saber, mas só com o progress bar você não vai conseguir nada. Isto tem que ser feito via ftp. Faça uma busca no google, por exemplo com as palavras chaves "Visual Basic" "FTP", que vai aparecer varias páginas. Eu olhei esta pagina , e achei um exemplo: http://www.15seconds.com/issue/981203.htm

você usa banco de dados??

Não era preciso ter comprado, apenas ter feito uma busca neste fórum. Da uma olhada neste tópicos: http://scriptbrasil.com.br/forum/index.php?showtopic=54444

Caso não funcione , entre em contato que eu tenho um exemplo que usei uma vez. Mas em todo caso , foi feito de forma bem parecida com a do tutorial.Só não se esqueça de instalar o driver da camera que você vai usar.

Já foi postada uma pergunta assim, veja este tópico: http://scriptbrasil.com.br/forum/index.php...hl=transparente

você poderia passar a váriavel como parametro: ie.Navigate "dominio\página.asp?ID=MyVar" 'Domínio de exemplo! No código Asp você pega o parametro passado: ID = <%Request.QueryString("ID")%>

O Visual Basic é uma linguagem de alto nível, portanto você não vai ter acesso a funções que só podem ser acessadas por linguagens de baixo nível. depois tem outros problemas: O próprio Windows não permite alguns tipos de acesso de baixo nível.

Basta colocar o codigo no evento KeyDown , como o exemplo abaixo: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 122 Then MsgBox "teclou F11" End Sub

Tenta ver se a resposta para este problema serve para o seu: http://www.palmbrasil.com.br/cgi-bin/YaBB/...;num=1110914475

Desta forma funciona: On Error GoTo NO_FOUND Dim ArrayMovie(10) ArrayMovie(1) = "DATAVIEW.DLL" ArrayMovie(2) = "ADDSCCUS.DLL" ArrayMovie(3) = "" ArrayMovie(4) = "NaoExiste.DLL" For i = 1 To 10 If ArrayMovie(i) <> Empty Then If Len(Dir$(ArrayMovie(i))) > 0 Then MsgBox "EXISTE O ARQUIVO" Else MsgBox "NÂO EXISTE O ARQUIVO" End If End If Next i Exit Sub NO_FOUND: MsgBox Err.Description Resume Next Ao invés de usar o Dir$ , use o objeto FileSystemObject que é bem mais poderoso para se trabalhar com arquivos. Faça uma busca aqui mesmo , que você vai achar bastante informação a respeito.

O resume next continua a partir do ponto que deu o ultimo erro. Se esta saindo fora do loop, pode ser que seja outro tipo de erro . Verifique se o tamanho do array não é menor do que a variavel "i" . Qual o código do erro que esta dando?

Quando você gera um arquivo pelo instalador do VB , isto é feito automaticamente.

Para discar é facil, você pode pegar como exemplo o vbTerm , que vem junto com o VB. Agora para enviar o som , eu não sei , vou ver se encontro alguma coisa...

Ve se desse jeito funciona: On Error goto NO_FOUND For i = 1 To 10 If Dir$(ArrayMovie(i)) <> "" Then 'EXISTE O ARQUIVO else 'NÂO EXISTE O ARQUIVO End If Next i NO_FOUND: 'seu codigo de tratamento de erro resume next

você pode também utilizar os velhos comandos de desenho do Basic para DOS: Line (405, 35)-(65, 605), &HFFFFFF, BF Line (405, 242)-(275, 605), vbRed, B Para desenhar circulos (exemplo retirado do help do vb) Dim CX, CY, Radius, Limit ' Declare variable. ScaleMode = 3 ' Set scale to pixels. CX = ScaleWidth / 2 ' Set X position. CY = ScaleHeight / 2 ' Set Y position. If CX > CY Then Limit = CY Else Limit = CX For Radius = 0 To Limit ' Set radius. Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255) Next Radius Outro exemplo usando Line: Dim CX, CY, F, F1, F2, I ' Declare variables ScaleMode = 3 ' Set ScaleMode to pixels. CX = ScaleWidth / 2 ' Get horizontal center. CY = ScaleHeight / 2 ' Get vertical center. DrawWidth = 8 ' Set DrawWidth. For I = 50 To 0 Step -2 F = I / 50 ' Perform interim F1 = 1 - F: F2 = 1 + F ' calculations. ForeColor = QBColor(I Mod 15) ' Set foreground color. Line (CX * F1, CY * F1)-(CX * F2, CY * F2), , BF Next I DoEvents ' Yield for other processing. If CY > CX Then ' Set DrawWidth. DrawWidth = ScaleWidth / 25 Else DrawWidth = ScaleHeight / 25 End If For I = 0 To 50 Step 2 ' Set up loop. F = I / 50 ' Perform interim F1 = 1 - F: F2 = 1 + F ' calculations. Line (CX * F1, CY)-(CX, CY * F1) ' Draw upper-left. Line -(CX * F2, CY) ' Draw upper-right. Line -(CX, CY * F2) ' Draw lower-right. Line -(CX * F1, CY) ' Draw lower-left. ForeColor = QBColor(I Mod 15) ' Change color each time. Next I DoEvents ' Yield for other processing.

Use o código abaixo no botão: Clipboard.Clear Clipboard.SetText Label1.Caption

Enquanto você aguarda a resposta , da uma olhada neste enderço: http://www.angelfire.com/biz/rhaminisys/tr...#TricksDownload e procure NTSvc.OCX to run a VB program as an NT service

Faz assim: somente após teclar o ENTER é que você chama a sua função: Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then teste (Text1.Text) End Sub Sub teste(ByVal msg As String) MsgBox msg End Sub

O que você pretende fazer mais precisamente??

Achei este exemplo: http://www.codersource.net/mapi_public_folders_c++.html Não sei se funciona.