Ir para conteúdo
Fórum Script Brasil

Herbert Da Fré Lausmann

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    23

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Herbert Da Fré Lausmann

  3. Ler e gravar arquivos no VB2008

    em .NET

    Postado

    Olá pessoal.

    Esstou desenvolvendo um programa e preciso gravar e ler arquivos.

    O método fileopen fileget e fileput gravan no arquivo os dados de forma desondenada e não um dado por linha como eu gostaria.

    alguém sabe um outro método para gravar e ler uma string linha a linha????

    Grato desde já...

  7. Sem Função .Show em Forms na DLL

    em .NET

    Postado · Editado por Herbert Da Fré Lausmann

    Bom dia pessoal,

    O Problema é o seguinte : Estou criando um programa de cálculos matemáticos. A área de regra de três e razão vão ficar numa dll.

    O problema é que não consigo no Evento Load do Form1 declarar : Form2.Show. A função Show e várias outras não estão disponíveis para serem chamadas no Form1.

    Já tentei adicionar as referências System.Windows.Forms e System.Drawing mas o problema persiste.

    Alguém pode me ajudar?

  18. Como Extrair dados da ComboBox

    em .NET

    Postado · Editado por quintelab
    Adicionado BBCode Code

    Eduardo, só consegui separar o número do produto :mellow: ; a seguir os códigos:

    Public Class Form1
    Dim Numero As String, Produto As String

    Sub Separa(ByVal Dado As String)
        Numero = Dado.Remove(3) 'separa o numero do produto deixando só o número
        MsgBox(Numero)
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Separa(ComboBox1.Text)
    End Sub

End Class

  22. Foco em ToolStrip

    em .NET

    Postado · Editado por quintelab
    Adicionado BBCode Code

    Declare na Declarations:

    Dim tab_pres As Integer

    Depois vá no evento Key Up do formulário e declare os seguintes códigos:

    Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        If e.KeyCode = Keys.Tab Then
            If tab_pres = 3 Then 'verifiqua o número do contador de index 
                tab_pres = 0 'retorna o contador para 0 já que não existe controle com index maior que 2
            End If
            Select Case tab_pres
                Case "0" 'Tabindex para o btn1
                    btn1.Select() 'passa o foco para o btn1
                Case "1" 'Tabindex para o btn2
                    Btn2.Select() 'passa o foco para o btn2
            End Select
            tab_pres = tab_pres + 1
        End If
    End Sub
    Deve funcionar perfeitamente. Espero ter ajudado. :rolleyes: Se o ToolStrip tiver uma caixa de texto aí você faz o seguinte: Adiciona um Module ao projeto e coloca os códigos a seguir nele: 
    Module Module1
    Public tab_pres As Integer = 0
    Public Sub Tab_Control()
        If tab_pres = 3 Then 'verifiqua o número do contador de index 
            tab_pres = 0 'retorna o contador para 0 já que não existe controle com index maior que 2
        End If
            Select Case tab_pres
                Case "0" 'Tabindex para o btn1
                    Form1.btn1.Select() 'passa o foco para o btn1
                Case "1" 'Tabindex para o btn2
                    Form1.Btn2.Select() 'passa o foco para o btn2
            End Select
            tab_pres = tab_pres + 1
     End Sub
End Module
    E muda os códigos do KeyUp do Formulário para: 
    Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        If e.KeyCode = Keys.Tab Then
            Tab_Control()
        End If
End Sub

    Assim se a ToolStrip Tiver caixas de texto (TextBox) basta colocar os mesmo códigos do keyUp do formulário no KeyUp da Caixa de texto.

    Claro que é preciso modificar o Procedimento "Tab_Control" para focar outros objetos. :closedeyes:

  23. (Resolvido) Criando e acessando Dlls no VB .NET

    em .NET

    Postado

    Olá pessoal,

    alguém poderia me ajudar com o seguinte problema?

    Criei uma dll em vb .net contendo uma função de calculo. Depois criei o programa que vai acessar a dll. Até ái tudo certo.

    para conectar o programa à função contida na dll uso a seguinte sintaxe:

    Public Declare Function C Lib "C:\CALC.dll" Alias "C" (ByVal O1 As Double, ByVal O2 As Double) As Double

    Os códigos da dll são os seguintes:

    Public Class Class1

Public Function C(ByVal O1 As Double, ByVal O2 As Double) As Double
        C = O1 + O2
End Function

End Class
    O programa contem os seguintes códigos: 
    Public Class Form1
    Public Declare Function C Lib "CALC.dll" Alias "CAlC" (ByVal O1 As Double, ByVal O2 As Double) As Double
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim op1 As Double
        Dim op2 As Double
        op1 = TextBox1.Text
        op2 = TextBox2.Text
        Dim res As Double
        res = C(op1, op2)
        TextBox3.Text = res
    End Sub
End Class

    Quando executo o programa, preencho os dois textbox e clico no botão somar ele retorna o seguinte erro:

    Unable to find an entry point named 'CAlC' in DLL 'C:\CALC.dll'.

    Preciso entender como chamar uma função de uma dll para criar um programa de calculos.

    alguém pode me ajudar?????? :unsure:

×
×
  • Criar Novo...