Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.

Pesquisar na Comunidade

Mostrando resultados para as tags ''VB.NET''.



Mais opções de pesquisa

  • Pesquisar por Tags

    Digite tags separadas por vírgulas
  • Pesquisar por Autor

Tipo de Conteúdo


Categorias

  • Armazenamento
  • Áudio
  • Energia
  • Entrada
  • Feiras e Eventos
  • Gabinetes
  • Memória
  • Museu
  • Placas-mãe
  • Portáteis
  • Processadores
  • Programas
  • Rádio CdH
  • Redes
  • Refrigeração
  • Smartphones
  • Tablets
  • Vídeo
  • Outros

Categorias

  • Blog

Categorias

  • Armazenamento
  • Áudio
  • Câmeras
  • Computadores
  • Consoles
  • Eletrônicos
  • Energia
  • Entrada
  • Gabinetes
  • Impressão
  • Jogos
  • Memória
  • Placas-mãe
  • Portáteis
  • Processadores
  • Programas
  • Redes
  • Refrigeração
  • Smartphones
  • Tablets
  • Vídeo
  • Outros

Categorias

  • Livros disponíveis
  • Livros esgotados

Categorias

  • Cursos

Fóruns

  • Mensagens do Clube do Hardware
    • Regras gerais
    • Boletins do Clube do Hardware
    • Notícias da administração
  • Hardware
    • Recomendações de computadores
    • Placas de vídeo
    • Placas-mãe e chipsets
    • Processadores
    • Problemas de gargalo e desempenho
    • Memórias
    • Armazenamento
    • Refrigeração e superaquecimento
    • Fontes e energia
    • Gabinetes e casemods
    • Placas de som e áudio on-board
    • Periféricos
    • Mac
    • Overclock
    • Hardware - outros
  • Computação móvel
    • Notebooks
    • Tablets
    • Smartphones e apps
  • Redes e Internet
    • Redes e Internet
    • Hospedagem de sites e registro de domínios
  • Segurança da informação
    • Remoção de malware
    • Dúvidas sobre invasões e infecções
    • Programas de proteção
  • Programação e desenvolvimento
    • Java
    • C/C#/C++
    • Pascal/Delphi
    • .NET
    • Bancos de dados
    • Programação web
    • Programação - iniciantes
    • Programação de microcontroladores
    • Programação - outros
  • Software
    • Jogos
    • Pacotes de escritório
    • Computação distribuída (Folding@Home, Bitcoin etc.)
    • Virtualização
    • Design, animação e tratamento de imagens
    • Edição de áudio e vídeo
    • Programas
  • Sistemas Operacionais
    • Recomendação de sistemas operacionais
    • Windows
    • GNU/Linux, BSD, Unix-like e software livre
    • Mac OS
  • Eletrônicos
    • Equipamentos de som, home theaters e gravadores de mesa
    • Televisores e projetores
    • Câmeras e filmadoras
    • Players portáteis
    • Consoles (videogames)
    • GPS
    • Telefonia fixa
    • Eletrônica
    • Retrocomputação
  • Outros
    • Recomendações de serviços e lojas
    • Preços e promoções
    • Notícias
    • Bolsa de empregos, certificações e mercado de trabalho
    • "Causos"
    • Encontros de usuários
    • Feira do Rolo
  • Clube do Hardware
    • Comentários, elogios, críticas e sugestões sobre o Clube do Hardware
    • Comentários de artigos
    • Fórum para testes de funcionalidades

Categorias

  • Hardware
  • Redes
  • Eletrônica
  • Sistemas operacionais

Encontrado 24 registros

  1. VB.NET Visual Basic - Soma de valor à uma variável

    Boa noite, galera Sou novo na programação e estou desenvolvendo um CheckBox que tem como objetivo somar valor a uma variável "sum" conforme a quantidade de Box que forem selecionados, mas não estou conseguindo por falta de conhecimento de Sintaxe, esse é o código: Private Sub btnCalcular_Click(sender As System.Object, e As System.EventArgs) Handles btnCalcular.Click Dim sum As Double = 0 If chkPizza.Checked Then If chkMussarela.Checked Then sum + 22.0 ElseIf chkAtum.Checked Then sum + 25.0 ElseIf chkBacon.Checked Then sum + 25.0 ElseIf chkCalabresa.Checked Then sum + 26.0 End If End If Já tentei adicionar Val(sum), mas não adiantou. Qual a sintaxe correta?
  2. VB.NET gera combinações de numeros

    Bom dia a todos bom estava fora por que tinha esquecido a minha e não conseguia recupera-la mais a gora consegui. Bom eu estou com dois problemas mais vou falar primeiro de um. Gostaria que vocês me ajudassem Gostaria de gera combinações de a parti de uma lista eu estou usando um groupbox com dez lebal e um listiview com cinco colunas O exemplo a baixo obrigado
  3. VB.NET Visual basic .net perguntas

    Estou aprendendo vb.net, para eu trabalhar em casa sozinho criando pequenos programas para clientes, gostaria de saber se vale a pena continuar no vb.net, sabendo que eu quero apenas aprender a linguagem para criar programas básicos e futuramente aprender outra linguagem. Gostaria de sabe também se alguém podia me ajudar um pouco com dúvidas
  4. Ola pessoal, Eu queria saber se e possível passa todas colunas e items do ListView para o DataGridView. E se for possível como ? Agradeço se puder ajudar.
  5. Olá amigos, gostaria de saber qual o melhor forum, curso ou espaço na net para aprender VB.NET HiperAvançado? uso muito o Access(vba) e gostaria de já faver no VB.NET o que faço no Access-Vba. Fui ver a listview do Visual Studio comparando com a listview do Access, achei a do Access bem melhor com mais estrutura, ai me falaram que temos que baixar a datagridview (dll) na net e vi que muitos objetos bons mesmo do visual estão na net para baixarmos ou comprarmos... então fico na dúvida de como achar tudo do VB.NET, todas os objetos e bons objetos, em qual livro, em qual site, em qual forum, se alguem puder dar uma ideia ja ajuda espero e obrigado
  6. Ola pessoal, Eu queria saber como fazer para modificar a variável de outra aplicação. Tipo eu tenho uma aplicação que vai e acessa a outra e muda o valor de uma variável.
  7. VB.NET Gravar registros do ListBox

    Boa noite pessoal. Estou desenvolvendo um sistema em VB.NET e utilizando o Firebird como banco de dados. Eu tenho uma tela de cadastro onde seleciono registros do ListBox1 e envio para o ListBox2, até aí está tudo certo. Só não estou conseguindo gravar no banco de dados Firebird os registros que foram adicionados no ListBox2. O código que eu fiz adiciona apenas o primeiro registro, porém, não adiciona os registros restantes do ListBox2. Segue abaixo o código. Se alguém puder ajudar. Dim Cmd As FbCommand Dim Sql As String Dim Reader As FbDataReader Dim i As Integer Dim CodDivisaJuad As Integer = 1 If CodJuad = "Novo" Then Return End If If IsNumeric(CodJuad) Then CodDivisaJuad = 1 Cmd = New FbCommand("Select Max(Cod_Divisa) Cod from Divisa_Juad", connection) Reader = Cmd.ExecuteReader() If Reader.Read Then If Not IsDBNull(Reader("Cod")) Then CodDivisaJuad = CInt(Reader("Cod")) + 1 End If End If For i = 0 To lbxDivisa2.Items.Count = -1 Sql = "INSERT INTO Divisa_Juad (Cod_Divisa, Cod_Juad)" & "Values(" Sql = Sql & Strings.Right(lbxDivisa2.Items(i).ToString(), 5) & "," Sql = Sql & "'" & CodJuad & "')" AbreBanco() Cmd = New FbCommand(Sql, connection) Cmd.ExecuteNonQuery() Next Else For i = 0 To lbxDivisa2.Items.Count = -1 Sql = "UPDATE Divisa_Juad set " Sql = Sql & "Cod_Juad = '" & CodJuad & "' " Sql = Sql & "WHERE Cod_Divisa = " & CodDivisaJuad '& ListBox1.Items(i).ToString() & AbreBanco() Cmd = New FbCommand(Sql, connection) Cmd.ExecuteNonQuery() Next End If
  8. Ola pessoal, Eu estava tetando fazer com que o programa salvar as configurações quando o sistema for desligado mais não tive sucesso. Ai se alguém pode me explicar como fazer isso agradeço. OBS: Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing ' Uso para bloquear q seja fechado pelo "X" ou pelo ALT + F4 e.Cancel = True End Sub
  9. Ola pessoal, Eu estou querendo ajuda para corrigir um erro que deu no meu Sistema de Contagem Regressiva mais ta dando o seguinte erro "Cadeia de caracteres não foi reconhecida como DateTime valido." Código: Public Class Form1 Dim Calculo As TimeSpan Private Sub HorasRestantes_Tick(sender As Object, e As EventArgs) Handles HorasRestantes.Tick If TempoAtual = "00:00:00" Then MsgBox("Teste") ' Messagem para saber quando chego em zero. Else Calculo = Relog - Now End If End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Relog = Now.SAd12(Convert.ToInt32(Minutos)) End Sub End Class Se alguém pode ajudar agradeço
  10. VB.NET Dica de livro sobre VB.Net

    Fala galera, tudo bom? Eu procurei um tópico semelhante a esse e não achei, mas peço desculpas a moderação caso eu tenha duplicado o tópico ou criado na área errada. É o seguinte: estou a procura de um bom livro sobre VB.Net. Eu já programo um pouco em outras linguagens, mas preciso de um material de apoio porque pretendo aprender sozinho. Alguma recomendação? Ficaria muitíssimo grato.
  11. VB.NET Jogo da forca e o uso do GetType

    Olá, preciso fazer um jogo da forca e meu professor mandou usar o seguinte código: For Each c As Control In Me.Controls If c.GetType().ToString().Equals("System.Windows.Forms.Label") Then CType(c, Label).Visible = True End If Next Entretanto são comandos novos que eu nunca usei. Alguém poderia me explicar o que ele faz e para o que a função GetType funciona? Agradeço desde já.
  12. VB.NET Problema para "chamar" uma label.

    Olá, estou fazendo um jogo da forca e precisa de ajuda! As labels que vão as letras da palavras se chamam LX(X é um número que vai de 0 até 10 e corresponde a posição de cada letra) No trecho a seguir eu preciso verificar se a letra correspondente ao botão clicado existe na palavra, se sim preciso colocar na Label. A variavel i que controla o laço corresponde a posição da letra na palavra. Preciso saber como faço para que a variável i represente o número da Label(que será a posição da letra na palavra) For i = 0 To quantidadedeletras - 1 If palavra.ToString.ElementAt(i) = letra Then L & i.Text = Convert.ToString(letra) (???) End If Next Agradeço desde já!!
  13. Olá, boa noite! Bom eu to com um projeto aqui, de que vai ter varias CheckBoxs, e quando a pessoa aperta um botão ele baixa os arquivos que estão com a checkbox marcadas e depois a executam. O problema é que, eu consigo fazer o "download" e "executar" mas ele baixa o arquivo pela metade, ele tem 10Mb e baixa dó 11KB por exemplo. Eu experimentei fazer com arquivos .rar pois os arquivos .data baixavam normalmente. Então eu estava utilizando este código: Dim web As New WebClient Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If CheckBox1.Checked = True Then If My.Computer.FileSystem.FileExists("arquivo.exe") = False Then ' (Este código) web.DownloadFile("http://viniciusbassini.esy.es/upload/arquivos/arquivo.exe", "arquivo.exe") ' (Ou este) My.Computer.Network.DownloadFile("http://viniciusbassini.esy.es/upload/arquivos/arquivo.exe", "arquivo.exe") ' Eu escolho uma das 2 formas de download. Else Shell("arquivo.exe") End If End If End Sub Eu aperto o botão e ele verifica se o CheckBox está marcado ou não, ai ele verifica se o arquivo existe, se ele existir ele executa o mesmo, se não ele baixa o arquivo depois executa. O problema é, se eu colocar como um .rar eu preciso descomprimir o arquivo e depois executar o mesmo. Depois disso ele iria verificar o 2 CheckBox e fazer o mesmo processo. Existe alguma maneira de eu fazer este processo mais rapidamente? Grato desde já!
  14. VB.NET (VB6) Pegar 2 ultimos digitos do ano

    Olá Tenho que fazer uma numeração automática de OS só que ele deve ser formulada assim "OSxxx/17" Onde o "/17" é o ano atual O código por enquanto está assim: Global cnn As New ADODB.Connection Global Tabela As New ADODB.Recordset Global vConexao As Boolean Global sql As String -------------------------------------------------------------------------------------------------------------------------------------- Public Sub conectar() If vConexao = False Then cnn.CursorLocation = adUseClient cnn.Open "provider=microsoft.jet.oledb.4.0;persist security info = false; data source = " & App.Path & "\ControleOS.mdb;" vConexao = True End If End Sub -------------------------------------------------------------------------------------------------------------------------------------- Public Function desconectar() If vConexao = True Then cnn.Close vConexao = False End If End Function -------------------------------------------------------------------------------------------------------------------------------------- Public Function novocodigo_OS() Dim lastnumber As Long, newnumber As Long Dim Ano As Integer Ano = Year(Now) If Ano = "2017" Then Ano = "17" End If conectar Tabela.Open "select * from OS", cnn With Tabela If .BOF = True And .EOF = True Then lastnumber = 0 Else .MoveLast lastnumber = !Cod_OS End If newnumber = lastnumber + 1 frmAbreOS.txtCodOS.Text = "OS" & newnumber & "/" & Ano frmAbreOS.txtCodOS.Enabled = False End With desconectar End Function Queria saber se tem como melhorar pra não ter que criar varias condições pra cada ano.
  15. VB.NET Loop não gera dados

    Olá pessoal. Eu tenho o Seguinte problema a resolver, e logo em seguida a minha solução que está com problema. Em anexo eu deixei um arquivo, que estou trabalhando, e neste arquivo eu criei um eclipse com uma macro para separar os dados. Qual é o propósito dessa macro? R: Separar Todos os Status de acordo com o bloco. Para isso eu Criei as pastas de Bloc_1 até Bloc_10, Obviamente Cada Bloco representado na coluna C. há um Status definido para ele. Qual é o problema a resolver? R: Para conseguir salvar nas pastas do Excel, eu Utilizei a seguinte Lógica. Dim Plan(10) As String Plan(0) = "Bloc_1" Plan(1) = "Bloc_2" Plan(2) = "Bloc_3" Plan(3) = "Bloc_4" Plan(4) = "Bloc_5" Plan(5) = "Bloc_6" Plan(6) = "Bloc_7" Plan(7) = "Bloc_8" Plan(8) = "Bloc_9" Plan(9) = "Bloc_10" Dim Pos_sheets as integer Pos_Sheets = 0 While Cont_Bloc <= 10 lógica para gravar os dados na Array estão aqui Sheets(Plan(Pos_Sheets)).Select lógica para Colar os dados nas pastas estão aqui Cont_Bloc = Cont_Bloc + 1 Pos_Sheets = Pos_Sheets + 1 Wend O que esse Código Faz? R: Ele Grava todos os dados de cada APTO e salva em uma Arrray. Logo Após ele seleciona a pasta Correspondente e salva os dados gravados nas arrays Nas células das pastas Bloc_1 até 10. E para Finalizar eu limpo os Dados da Array, e retorna o Loop na linha " Cont_Bloc = Cont_Bloc+1 ". Aonde está o Erro? R: O código está Funcionando, Todos os Apartamentos do Bloco 01, Estão sendo salvos em seu respectivo Status da pasta "Bloc_1", Mas quando ele finaliza o processo ele não está fazendo o laço de forma correta, e os dados do Bloco 02 não estão sendo salvos na pasta correta. E estou precisando de ajuda para achar o erro nesse algoritmo. Por que estou usando o VBA? R: Esse processo terá atualizações diárias dos Status dos apartamentos, Sempre haverá atualizações e conferir 1 por 1 de Vários empreendimentos, "Esse Molinere é somente 1 deles" me faria perder MUITO tempo. Código completo disponível no pastebin http://pastebin.com/dtEeKJtp Em anexo o Arquivo no qual estuo trabalhando. Localização Rápida de Todos os Produtos.zip
  16. eu tive the usar o 'AndAlso', mas nao entendo o motivo If rectPlayer.IntersectsWith(sprWall1.Bounds) = False AndAlso rectPlayer.IntersectsWith(sprWall2.Bounds) = False AndAlso rectPlayer.IntersectsWith(sprWall3.Bounds) = False AndAlso rectPlayer.IntersectsWith(sprWall4.Bounds) = False AndAlso rectPlayer.IntersectsWith(sprWall5.Bounds) = False Then se eu usasse o 'And', nao iria funcionar.. alguem me pode explicar por favor?
  17. eu estou a fazer 1 UserControl that overrides o procedimento WndProc: Protected Overrides Sub WndProc(ByRef m As Message) MyBase.WndProc(m) Select Case m.Msg Case WM_CREATE If Not Me.DesignMode Then If NativeMethods.joyGetNumDevs > 0 Then If NativeMethods.joySetCapture(Me.Handle, 0, 50, False) = 0 Then _Captured = True End If End If End If Case WM_DESTROY If Not Me.DesignMode Then NativeMethods.joyReleaseCapture(0) End If Case JoyMsg.MM_JOY1MOVE JoyInfo.dwFlags = JoyReturn.ReturnX Or JoyReturn.ReturnY Or JoyReturn.ReturnButtons NativeMethods.joyGetPosEx(0, JoyInfo) If LastX <> JoyInfo.dwXpos OrElse LastY <> JoyInfo.dwYpos Then LastX = JoyInfo.dwXpos LastY = JoyInfo.dwYpos RaiseEvent JoyAxisMove(Me, New AxisEventArgs(JoyInfo)) End If If LastButtons <> JoyInfo.dwButtons Then LastButtons = JoyInfo.dwButtons RaiseEvent JoyButtonchanged(Me, New ButtonEventArgs(JoyInfo)) End If End Select End Sub mas algo esta me a bloquear o RaiseEvent. estou a tentar o Debug sem sucesso. alguem me pode ajudar? adicionado 1 minuto depois eu se inserir esse procedimento noutro UserControl, vai funcionar(testado)
  18. VB.NET Auxílio em ReadMemory no VB

    Galera, preciso de ajuda para fazer uma leitura na memória de alguma aplicação. Eu tenho testado um módulo que encontrei na internet "ReadMemory.vb" Mas a variável que preciso fazer a leitura é "double" que não é contemplado neste módulo. Alguem pode me dá uma ajuda ? Em vb ou em C/C++. Preciso apenas fazer pequenas verificações e leituras para monitoramento. Alguem pode me auxiliar ?
  19. VB.NET Arquivo de audio nao funciona em outras maquinas

    Criei um aplicativo que executa um arquivo de audio, na minha maquina roda bem, mas nas outras não...eu sei que é o caminho (c:/...) e gostaria de resolver isso e criar um caminho relativo para que seja executado o audio em qualquer maquina... O projeto é em VB.NET, alguem poderia ajudar?? Aí vai o print com o caminho que fiz e não funcion0u...
  20. VB.NET Banco de dados não executa em outra máquina

    Pessoal to com um problemao no VB.NET eu criei a aplicação e informei o caminho completo(D:\Projetos\MinhaAplicacao\banco.mdb) eu criei o pacote de instalação e ele roda perfeitamente no meu computador... Agora quando vou instalar em outro ele fala que não consegue achar o banco de dados e informa o mesmo caminho do banco de dados sendo que nessa maquina nao tem e por isso não executa... O que devo fazer??? Que path devo informar no meu codigo para funcionar???
  21. VB.NET Receber dados de 2 sensores

    Ola bom dia Eu preciso fazer a leitura de 2 sensores e mostrar um no TextBox1 e outro no TextBox2 No momento só mostra um TextBox1 Alguém tem um exemplo com eu faço isso Aqui o código que eu estou usando para fazer a leitura do sensor enviado pelo o microcontrolador Obrigado Public Sub ReadData(ByVal TcpClient As TcpClient) Try Dim bytes(10024) As Byte Dim Data As String Data = New Byte Dim FinalString As String If TcpClient.Connected Then stream = TcpClient.GetStream() Else Return End If If stream.CanRead = True Then If stream.DataAvailable = True Then Data = stream.Read(bytes, 0, bytes.Length) FinalString = Encoding.ASCII.GetString(bytes) TextBox2.Text = FinalString End If End If Catch ex As SocketException TextBox3.Text &= "Error: " & ex.Message & Environment.NewLine End Try End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ReadData(tcpClient) End Sub
  22. VB.NET Enviar emails em massa

    Olá, pessoal! Estou em busca de um método eficiente para se enviar emails em massa e com boa performance no Vb.Net Aqui as variáveis Globais que iniciam já definidas. Shared Host As String Shared porta As Integer Shared login As String Shared senha As String Shared SSL As Boolean Shared nomeRemetente As String Shared emailRemetente As String Shared assuntoMensagem As String Shared conteudoMensagem As String Bom, Aqui tenho o método responsável pelo envio de Emails. Sub enviarEmail(Byval destino as String) Dim emailDestinatario As String = destino Try Dim Mail As New MailMessage Mail.To.Add(emailDestinatario) Mail.From = New MailAddress(emailRemetente) Mail.Priority = MailPriority.Normal Mail.IsBodyHtml = True Mail.Subject = assuntoMensagem Mail.Body = conteudoMensagem Dim SMTP As New SmtpClient(Host) SMTP.Port = porta SMTP.EnableSsl = SSL SMTP.Credentials = New System.Net.NetworkCredential(login, senha) SMTP.Send(Mail) Catch ex As Exception End Try End Sub Agora preciso tornar esse código útil, porque não há muita serventia em enviar 1 por 1 email... Já tentei usar diversos recursos como: Threading, Task, Parallel, ThreadPool... Mas não consegui nada significativo até agora Alguém aí capaz de me orientar? Agradeço desde já!
  23. Preciso executar um mesmo script diversas vezes seguidas só que após 40 minutos executando dá erro de falta de memória. Para facilitar, o exemplo não passa parâmetros nem retorna valores e o código do script resume-se apenas à declaração da subrotina. Eu tentei os itens abaixo não adiantou. 1) cppPARAMETROS.GenerateInMemory = False 2) Após a execução do script 'GC.Collect' Alguma sugestão? ----------------------------------------------------------------------------------------------------- Imports System.CodeDom.Compiler Imports System.Reflection Public Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Do subScript_Executar() My.Application.DoEvents() Loop End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub subScript_Executar() Dim cppPARAMETROS = New CompilerParameters() cppPARAMETROS.GenerateExecutable = False cppPARAMETROS.GenerateInMemory = True Dim cdpCOMPILADOR As CodeDomProvider = CodeDomProvider.CreateProvider("VisualBasic") 'O erro ocorre nessa linha Dim cprCOMPILACAO As CompilerResults = cdpCOMPILADOR.CompileAssemblyFromSource(cppPARAMETROS, "Public Class Classe_Subrotina" & vbCrLf & " Public Sub Subrotina" & vbCrLf & " End Sub" & vbCrLf & "End Class") Dim objCLASSE_COMPILADA_INSTANCIA As Object = cprCOMPILACAO.CompiledAssembly.CreateInstance("Classe_Subrotina") objCLASSE_COMPILADA_INSTANCIA.GetType().InvokeMember("Subrotina", BindingFlags.InvokeMethod, Nothing, objCLASSE_COMPILADA_INSTANCIA, Nothing) End Sub End Class
  24. Boa noite pessoal ,sou novo no forum e já começo pedindo ajuda. To montando um programa básico de cadastro, com busca usando query.Já montei até o relatorio usando o report viewer, ficou show, mas como nada é perfeito ,quando mando imprimir imprime a tabela toda e não os dados buscados da tabela, alguem tem como me ajudar?

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×