Ir para conteúdo
Fórum Script Brasil

Rafael_Tomitao

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    43

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Rafael_Tomitao

  3. Array

    em Visual Basic

    Postado

    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

  7. Somar Em Visual Basic

    em Visual Basic

    Postado

    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

  9. 2 Duvidas De Formatação ?

    em Visual Basic

    Postado

    Ø£¡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

  10. 2 Duvidas De Formatação ?

    em Visual Basic

    Postado

    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

  11. Enviar Arquivo

    em Visual Basic

    Postado

    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

  13. Ocx E Dll

    em Visual Basic

    Postado

    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

  18. Desligar O Pc Via Código

    em Visual Basic

    Postado

    Olá,

    Pessoal eu gostaria de saber como eu posso desligar e reiniciar o PC via código no WinXP, e também nos outros Win's se for diferente....

    Estou fazendo o segunte:

    Para deligar:

    ExitWindowsEx EWX_SHUTDOWN, 0

    Para reiniciar:

    ExitWindowsEx EWX_REBOOT, 0

    Para dar Log Off:

    ExitWindowsEx EWX_LOGOFF, 0

    Mas apenas o log off esta funcinando, o reiniciar e desligar não funciona....

    muito obrigado

    []'s

  25. Listbox

    em Visual Basic

    Postado

    Olá,

    Eu tenho uma ListBox com a propriedade Style=1(checked), alguém sabe como eu posso remover desta ListBox todos os itens que foram marcados, exemplo:

    Na minha ListBox tem: Abacaxi, Banana, Limão

    Foi marcado a Banana e o Abacaxi, eu queria remover estes dois itens alguém sabe como posso fazer isso...?

    Muito Obrigado

    []'s

×
×
  • Criar Novo...