ramon

Eu tenho um bem simples cara veja se te serve 'Num módulo Function Codifica(Entrada As String, Senha As String) As String Dim a As Long Dim i As Long Dim t As Long On Error Resume Next t = 1 Codifica = String(Len(Entrada), 0) For i = 1 To Len(Entrada) a = Asc(Mid(Entrada, i, 1)) + Asc(Mid(Senha, t, 1)) While a > 255 a = a - 256 Wend Mid$(Codifica, i, 1) = Chr(a) t = t + 1 If t > Len(Senha) Then: t = 1 Next i End Function Function Decodifica(Entrada As String, Senha As String) As String Dim a As Long Dim i As Long Dim t As Long On Error Resume Next t = 1 Decodifica = String(Len(Entrada), 0) For i = 1 To Len(Entrada) a = Asc(Mid(Entrada, i, 1)) - Asc(Mid(Senha, t, 1)) While a < 0 a = a + 255 Wend Mid$(Decodifica, i, 1) = Chr(a) t = t + 1 If t > Len(Senha) Then: t = 1 Next i End Function 'Exemplo: 'Num Form: Private Sub Command1_Click() Dim STR As String STR = InputBox("Digite algum texto.") STR = Codifica(STR, "abc") MsgBox Decodifica(STR, "abc") End Sub Qualquer coisa volta ae cara. beleza, falow!

Sim Crie um Form Qualquer Adicione o ADD IN ActiveX Document Migration Wizard ao projeto e o execute Selecione o form que deseja exportar E mande gerar um EXE Perceba que ele irá criar um arquivo com a extensão .VBD É soa associar esse arquivo ao Internet Explorer, e abri-lo pelo navegador Ex: C:\WINDOWS\Desktop\docForm1.vbd

é bem simples mesmo cara Veja o codigo abaixo If (numero And 1) = 0 Then MsgBox "Será par" Else MsgBox "Será Impar" End If

Que eu saiba, cookies são simples arquivos .TXT. Um FileListBox com Pattern = *.TXT e depois: Sub ApagaCookies() Dim I As Integer Dim F As String File1.Refresh For I = 0 To File1.ListCount - 1 F = File1.List(I) If Dir(F) <> "" Then Kill F Next End Sub Simples não é?

alguém sabe se vai ser lançado uma nova versão

para tirar aquela pergunta chata você deseja excluir o arquivo, selecione os arquivos q você quer deletar e segure a tecla SHIFTH e aperte delete Agora isso de abrir você deve ter especificado que ao dar somente um clique com o mouse sobre o arquivo ele abre então você deve ir no painel de controle escolher mouse e mudar para abrir arquivos tem q dar dois cliques entendeu!

victor q coisa eihn

só utilizando uma linguagem dinamica

legal este site

estranho nunca ocorreu isso comigo

como assim?

Bom veja aqui http://superdownloads.uol.com.br/programas/1WBTOFF.html

já resolvi minha duvida bastaria apenas fazer isso Option Explicit Dim WithEvents Label1 As Label Dim WithEvents Label2 As Label Dim WithEvents Label3 As Label Dim WithEvents Label4 As Label Dim WithEvents Label5 As Label Private Sub Form_Load() Set Label1 = Form1.Controls.Add("VB.Label", "Label1") Set Label2 = Form1.Controls.Add("VB.Label", "Label2") Set Label3 = Form1.Controls.Add("VB.Label", "Label3") Set Label4 = Form1.Controls.Add("VB.Label", "Label4") Set Label5 = Form1.Controls.Add("VB.Label", "Label5") Label1.Visible = True Label1.Top = 500 Label1.Left = 500 Label1.Caption = "eee" Label2.Visible = True Label2.Top = 500 Label2.Left = 500 Label3.Visible = True Label3.Top = 500 Label3.Left = 500 Label4.Visible = True Label4.Top = 500 Label4.Left = 500 Label5.Visible = True Label5.Top = 500 Label5.Left = 500 End Sub

Como eu faço para criar varias labels em tempo de execução Tipo não sei quantas label eu preciso posso precisar de 5 6 7 então gostaria de saber se há uma maneira de criar elas quando o form for carregado

q nada cara qualquer coisa volta ae se você resolveu sua duvida beleza ainda colocou como foi resolvida melhor ainda pode ser q outro user tenha o mesmo problema q o seu e concerteza vai resolver falow!

beleza então qualquer coisa volta ae

tem varios aplicativos q fazem isso deixe eu ver um aqui e depois eu posto

é você tem q configurar la na placa de video

isso ae cara

beleza então cara

depende do q você quer fazer um bom site é este http://www.rogercom.com/

concordo com você ae em cima 1000 é um roubo ainda mais q hoje você consegue varios exemplos prontos na net só precisa alterar

cara ficou muito pobre eu não cobraria nada por ele

eu gostei cara ficou bala!

Ficou legalzinho cara parabens