Rafael_Tomitao

Alex, você pode descrever o erro...??? e tente dar uma olhadinha nesta pagina Macoratti []'s

Alex, Tente isso Private Sub cmdCadastrar_Click() rs.Edit rs.Fields("nome").Value = txtNome.Text rs.Fields("icq").Value = txtICQ.Text rs.Update end sub espero que te ajude []'s

PiGmEu, Deu certinho, segue o exemplo um teste que eu fiz: ReDim Letra(1) As String Dim Nome As String Dim I As Integer Nome = "Nome:" ReDim Letra(Len(Text1.Text)) For I = 1 To Len(Text1.Text) Letra(I) = Mid(Text1.Text, I, 1) Nome = Nome & vbCrLf & Letra(I) Next MsgBox Nome Muito obrigado []'s

Olá a todos, Pessoal como eu faço para declarar um array, sendo que eu não sei qual vai ser o index do mesmo, por exemplo, uma hora ele vai ser 10 na outra pode ser 50... Agradeço desde já []'s

Graymalkin, Valeu pela ajuda, vou dar uma olhoda lá... []'s Rafael

Olá a todos, Pessoal alguém sabe como eu posso capturar as janelas que estão abertas no windows, eu sei que utiliza as seguintes api's: GetWindow GetWindowText Mas eu não sei como usa-las alguém teria uma exemplo. muito obrigado []'s Rafael

Daniel, Você esta colocando o valor do textbox na variavel, mas o textbox é string, por isso esta concatenando em vez de somar, agora tente com esta pequena mudaça: Eu converti a string do textbox para para numerica.... Private Sub btnoperar_Click() Dim n_um, n_dois, result As Double If txtnumum.Text = "" Then MsgBox "Favor inserir um número para a operação" ElseIf txtnumdois.Text = "" Then MsgBox "Favor inserir um número para a operação" Else ***n_um = Val(txtnumum.Text) ***n_dois = Vak(txtnumdois.Text) End If If soma.Value = True Then result = n_um + n_dois lblresultado = result ElseIf subtracao.Value = True Then result = n_um - n_dois lblresultado = result ElseIf multiplicacao.Value = True Then result = n_um * n_dois lblresultado = result ElseIf divisao.Value = True Then result = n_um / n_dois lblresultado = result End If End Sub []'s Espero que te ajude

Bruno, Tente usar o comando Dir ex.: If Dir("C:\Bruno", vbDirectory) = "" Then MsgBox "A pasta não existe" Else MsgBox "A pasta existe" End If Espero que te ajude.... []'s

Ø£¡vë¡®'§®, O Case serve para selecionar alguma das alternativas ex: Dim Nome as String Nome="Rafael" Select Case Nome 'Seleciona o valor da variavel Nome Case "Ricardo" 'Verefica se o valor da variavel é Riacardo MsgBox "O nome é Ricardo" 'Se for mostra a Mensagem Case "Rafael" 'Verefica se o o valor é Rafael MsgBox "O nome é Rafael" 'Se for mostra a Mensagem Case Else 'Se for Qualquer outro valor sem ser Rafael ou Ricardo MsgBox "O nome não é Ricardo nem Rafael" 'Mostra a mensagem End Select 'Encerra o Select Case Sobre o &: Serve para concatenar (juntar), palavras, valores e etc ex.: Dim Nome as String Nome="Rafael" Msgbox nome & " Rocha Tomitão" Vai mostra a Mensagem: Rafael Rocha Tomitão Pode-se também concatenar duas variaveis ex.: Dim Nome, Sobrenome as String Nome="Rafael" Sobrenome="Rocha Tomitão" msgbox nome &" "& sobrenome Eu coloquei um espaço concatenado, pois senão ia ficar: RafaelRocha Tomitão Com o espaço fica: Rafael Rocha Tomitão Sobre o Public Serve pra definir uma variavel, dependendo onde for a variavel pode ter utilização somente no form, se for definida em um modulo, podera ter utilização em qualquer parte do programa: Ex.: Public Nome as String Se você definir na parte general do form ela tera validade para todas as rotinas daquele form, se for definida em um modulo, tera validade para qualquer rotina do programa... Sobre InStr: Retorna a posição da primeira ocorrencia de uma sequencia de carateres dentro de outra Ex: MsgBox InStr(1, "Rafael Rocha Tomitão", "Ro", vbTextCompare) Onde: InStr(Posição Inicial,A Palavra,Palavra a ser procurada,Metodo de comparação) Onde: Metodo de comparação pode ser: VbBinaryCompare VbDatabaseCompare VbTextCompare Cara baixe uns tutoriais em: Vb Web VB Mania Macoratti Espero que te ajude, qualquer coisa é só postar... []'s

Divasjr, cara eu tenho uma rotina que permite que no TextBox só seja digitado numeros Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 48 To 57 'do 0 ao 9 na tabela ascii Case 8 'BackSpace na tabela ascii Case Else 'Outra tecla qualquer KeyAscii = 0 End Select End Sub Dai dá pra você selecionar outras teclas, eu tenho uma tabela com os numeros certinhos de cada tecla, se quiser eu te mando, é só me mandar um email: rafael_tomitao@terra.com.br []'s Rafael

Olá, Pessoal eu usei o seguinte código, para simular a Tecla Print Screen e salva um BMP: 'Num Modulo Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte,_ ByVal dwFlags As Long, ByVal dwExtraInfo As Long) 'Num Botão Private Sub Command1_Click() DoEvents Call keybd_event(vbKeySnapshot, 0, 0, 0) DoEvents SavePicture Clipboard.GetData, "C:\Desktop.bmp" DoEvents End Sub Mas agora eu queria enviar este BMP pelo winsock, como eu faço isso, já procurei no forum, mas não achei nada.... E uma dica: Se no lugar de: Call keybd_event(vbKeySnapshot, 0, 0, 0) Colocar: Call keybd_event(vbKeySnapshot, 1, 0, 0) Ira capturar apenas a janela ativa... Foi só uma dica... []'s Rafael

Graymalkin, Eu estava lendo alguns texto e descobrir que para não precisar da ocx do Winsock, eu tenho que substituir as funções do windows por API's do windows... []'s Até

Pessoal eu vi em varios tópicos que pra não faltar nenhuma ocx ou dll é só fazer um setup, mas no programa que eu estou desenvolvendo, não pode ter setup, pois estou tentando fazer um trojan, alguém sabe uma meneira de colocar as ocx e dll's requeridas no computador, sem setup e sem que o usuario saiba...??? muito obrigado []'s

William, Eu fiz a busca, mas não veio nenhum resultado, por isso eu postei.... Desculpe e muito obrigado []'s

Ola, Gostaria de saber como eu posso saber se as taclas caps, num e scroll lock estão ativadas ou desativadas, é pela api GetKeyboardState???Como usa esta API...? Muito Obrigado []'s Rafael