Jump to content

Search the Community

Showing results for tags 'vb.net'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Q&A Desenvolvimento
    • Perguntas e respostas rápidas
  • Desenvolvimento e Banco de Dados
    • HTML e CSS
    • Java
    • Javascript
    • .NET
    • PHP
    • Python
    • Ruby
    • Mobile
    • Ambientes de Desenvolvimento
    • Arquitetura e Métodos Ágeis
    • Banco de Dados
    • DevOps
    • Desenvolvimento de Games
    • E-Commerce e Pagamentos Online
    • SEO e Otimizações
    • WordPress
    • Algoritmos & Outras Tecnologias
  • Design e Produto
    • Fotografia
    • Photoshop
    • Design de interfaces e UX
    • Edição/Produção de Vídeos
    • Marketing Online
    • Desenho, Ilustração e 3D
  • Entretenimento e uso pessoal
    • Geral
    • Segurança & Malwares
    • Gadgets e wearable
    • Softwares e Apps
    • Entretenimento

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Google+


Hangouts


Skype


Twitter


deviantART


Github


Flickr


LinkedIn


Pinterest


Facebook


Site Pessoal


Localização


Interesses

Found 45 results

  1. eduardohaag

    Controle de trabalho usando threads

    Olá, Mais uma vez aqui estou eu com uma duvida que não estou conseguindo resolver. Estou desenvolvendo um ERP para a grafica da minha esposa. Nesse sistema existe um modulo que registra o tempo trabalhado. Para fazer isso existe um botão no formulário principal, que quando é clicado salva a hora na variável entrada, e quando clicado novamente ele registra no banco de dados o intervalo entre a entrada e saida. Até ai tudo ok. Porém as vezes a pessoa sai e esquece de clicar para registrar a saida. Então gostaria de fazer com que a cada 5 minutos fosse verificado se teve alteração na posição do ponteiro do mouse, porém permitindo que o usuário possa usar o programa. Procurando na internet descobri que para isso o melhor seria usar uma thread para fazer essa verificação da posição do mouse em segundo plano já que seria executado a cada 5 minutos e dessa forma travaria a execução do form principal. O problema está que quando ele detecta que mouse ficou parado por mais de 5 minutos e executa o codigo que salvo o intervalo no banco de dados acontece esse erro quando chega na linha "btEntrada.Text = "Registrar Entrada"" : "System.InvalidOperationException: 'Operação entre threads inválida: controle 'ToolStrip1' acessado de um thread que não é aquele no qual foi criado.' Li que tenho que usar algo como invoke e delegate, mas mesmo estudando não consegui entender como implementar. meu codigo é o seguinte: Imports System.ComponentModel Public Class Principal_content Dim saida As DateTime Dim tempo As TimeSpan Dim entrada As DateTime Dim ponteiro As Point Sub GerPonto() Do Threading.Thread.Sleep(5000) If ponteiro = Cursor.Position Then Call registraponto() End If ponteiro = Cursor.Position Loop End Sub Private Sub btEntrada_Click(sender As Object, e As EventArgs) Handles btEntrada.Click Call registraponto End Sub Sub registraponto() Dim trd = New Threading.Thread(AddressOf GerPonto) If btEntrada.Text = "Registrar Entrada" Then entrada = FormatDateTime(Now) btEntrada.Text = "Registrar Saida" btEntrada.ToolTipText = "Registrar Saida" btEntrada.Image = My.Resources.appointment_new_Ativo btEntrada.ForeColor = Color.Lime trd.Start() Else trd.Abort() saida = Now tempo = saida.Subtract(entrada) sql = "INSERT INTO ponto (Data, Entrada, Saida, Segundos) VALUES (#" & Format(entrada, "MM/dd/yyyy") & "#, #" & Format(entrada, "hh:mm:ss") & "#, #" & Format(saida, "hh:mm:ss") & "#, " & Replace(FormatNumber(tempo.TotalSeconds, 0, TriState.False, TriState.False, TriState.False), ",", ".") & ")" btEntrada.Text = "Registrar Entrada" btEntrada.Text = "Registrar Entrada" btEntrada.Image = My.Resources.appointment_new_desativo btEntrada.ForeColor = Color.Red AcessoDB.ExecutarComando(sql, CommandType.Text, Nothing, AcessoDB.TipoDeComando.ExecuteNonQuey) End If End Sub End Class
  2. eduardohaag

    [Resolvido] Erro ao ler xml

    Olá estou criando um sistema onde preciso calcular a previsão de envio do pedido em dias uteis, para isso estou usando um webservice gratuito que retorna um xml, porém estou tendo o erroSystem.XML.XmlException: 'Dados no nível raiz inválidos. Linha 1, posição 1.' Meu código é Sub Preenchedata() Dim sql = "SELECT PrazoPadraoProducao FROM Configuracoes" Dim dr As DataTable = AcessoDB.ExecutarComando(sql, CommandType.Text, Nothing, AcessoDB.TipoDeComando.ExecuteDataTable) Dim ds As New DataSet Dim xml As String = "https://elekto.com.br/api/Calendars/br-BC/Add?initialDate=" & Now.Year & "-" & Now.Month & "-" & Now.Day & "&days=" & dr.Rows(0).Item(0) & "&type=work" ds.ReadXml(xml) e o xml retornado é <dateTime xmlns="http://schemas.microsoft.com/2003/10/Serialization/">2019-05-03T00:00:00Z</dateTime> Alguém tem alguma ideia de como posso eliminar o erro?
  3. Boa tarde pessoal Estou com um projeto em Vb.Net que consiste em importar dados de uma planilha de Excel para um Datagridview. O projeto esta funcionando tudo ok porem notei que quando vou movendo as barras laterais e inferiores o formulário apresenta grande lentidão para mover as colunas etc... Fiz o teste criando um projeto novo com somente 1 Form, 1 Datagrid e 1Botão e os códigos para fazer a importação e quando eu "populo" o datagridview com o conteudo ele apresenta esses legs. Alguem a ja passou por isso? Será que é configuração da máquina? (Não é uma máquina tão fraca) O Vb.NET é a versão 2015 Os arquivos de Excel variam de 80 Linhas por 5 Colunas á 400 linhas e 5 colunas O código é esse: Sub ImportaEstoque() Dim Local Local = EndArquivo() If String.IsNullOrWhiteSpace(Local) Then MessageBox.Show("Nenhum arquivo foi selecionado.", "Informação.", MessageBoxButtons.OK, MessageBoxIcon.Information) Return End If '------------------------------ Dim caminhoArquivoExcel As String = Local Dim nomePlanilhaExcel As String = "ESTQ" & "$" Dim conexaoOleDb As OleDbConnection = Nothing Dim ds As DataSet Dim cmd As OleDbDataAdapter '------------------------------ Try 'conexaoOleDb = New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Local & ";Extended Properties=Excel 8.0;") conexaoOleDb = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & Local & ";Extended Properties='Excel 8.0;HDR=Yes'") 'cmd = New OleDbDataAdapter("Select * from [" & nomePlanilhaExcel & "]", conexaoOleDb) cmd = New OleDbDataAdapter("Select * from [" & nomePlanilhaExcel & "] Where UM Like '%" & "PC" & "%'", conexaoOleDb) cmd.TableMappings.Add("Table", "tabelaExcel") ds = New DataSet cmd.Fill(ds) dgvDados.DataSource = ds.Tables(0) Catch ex As Exception MessageBox.Show(ex.ToString, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error) Finally conexaoOleDb.Close() End Try sbQtdItens.Text = "Encontrados " & dgvDados.RowCount.ToString & " itens." End Sub Pessoal desde já muito obrigado pela força!
  4. ola amigos preciso de uma ajudinha, estou montando uma aplicaçao usando vb.net windows forms. nela tenho um botao onde chamo uma url no chrome com o seguinte comando. Private Sub Btn_abrir_site_Click(sender As Object, e As EventArgs) Handles Btn_abrir_site.Click Dim url As String = “https://www.rico.com.você/dashboard/tesouro-direto/“ Process.Start(url) End Sub no google entao eu acesso com meu logim manualmente(prefiro assim). e em realizo uma serie de operaçoes, chega um determinado momento que preciso passar passar os dados que o site me apresenta entao(apos as operaçoes) para o aplicativo. ai é que esta o problema. neste ponto estou boiando. no codigo abaixo por exemplo: precisava obter os valores 12,36 e 8806,84 de forma automatica e colocar em textbox. vi exemplos na net que mostram com webbrowser porem eu prefiro que seja com o chrome. e nesses exemplos ele abre a pagina e ja obtem os dados. eu preciso trabalhar na pagina muiiiito e so depois baixar os dados programaticamente. qualquer ajuda sera bem vinda....
  5. igadino

    Boleto da caixa

    Boa Tarde pessoal eu peguei esta função no link abaixo parece que e em C# e transformei em vb.net só que esta dando o erro na linha em destaquehttps://github.com/BoletoNet/boletonet/blob/master/src/Boleto.Net.MVC/Models/Exemplos.csPublic Sub GeraBoletoCE(ByVal qtde As Integer) ' Cria o boleto, e passa os parâmetros usuais Dim ce As BoletoBancario Dim boletos As New List(Of BoletoBancario)() For i As Integer = 0 To qtde - 1 ce = New BoletoBancario() ce.CodigoBanco = _codigoBanco Dim vencimento As New DateTime(2007, 9, 10) Dim instr As New Instrucao(1) Dim c As New Cedente("00.000.000/0000-00", "Next Consultoria Ltda.", "0123", "100618", "9") c.Codigo = 112233 ' BoletoNet.Boleto b = new BoletoNet.Boleto(vencimento, 20.00m, "14", "0123456789", c); Dim b As New Boleto(vencimento, 2952.95, "14", "0123456789", c) b.NumeroDocumento = "21212114779797" '1b.NossoNumero b.Sacado = New Sacado("000.000.000-00", "Jose Pedro Ongueira de Oliveira") b.Sacado.Endereco.[End] = "Rua Dr. Henrique Portugal, 12" b.Sacado.Endereco.Bairro = "Loteamento Lago Sul" b.Sacado.Endereco.Cidade = "Palmas" b.Sacado.Endereco.CEP = "77062141" b.Sacado.Endereco.UF = "TO" b.Sacado.Endereco.Logradouro = "Rua Dr. Henrique Duarte Lima" b.Sacado.Endereco.Numero = "8980978987" b.Sacado.Endereco.Complemento = "Casa" b.NumeroDocumento = "00001" b.DataProcessamento = DateTime.Now b.DataDocumento = DateTime.Now instr.Descricao = "Não Receber após o vencimento" b.Instrucoes.Add(instr) ce.Boleto = b ce.Boleto.Valida() boletos.Add(ce) Next GeraLayout(boletos) End Sub
  6. Pessoal, tudo bem? Fiquei parado da programação um bom tempo, e agora que retornei, queria dar manutenção nas minhas aplicações web que estão em vb.net webforms. Comprei um template de bootstrap (https://seantheme.com/color-admin-v4.2/admin/html/index_v2.html) e queria controlar os elementos via code behind in vb.net, mas estou sofrendo aqui por conta do meu limitado conhecimento. Alguém poderia me dar uma luz em base neste link: https://seantheme.com/color-admin-v4.2/admin/html/ui_modal_notification.html Ao clicar na maioria dos botões dessa página, abre um modal ou alert. Pois bem, eu gostaria de simular essa abertura a partir de uma lógica no code behind, por exemplo, em um formulário, caso alguma regra não esteja sendo cumprida. Simples assim. No código original, temos: Chamada: <a href="#modal-dialog" class="btn btn-sm btn-success" data-toggle="modal">Demo</a> Div do modal <div class="modal fade" id="modal-dialog" runat="server"> <div class="modal-dialog"> <div class="modal-content"> <div class="modal-header"> <h4 class="modal-title">Modal Dialog</h4> <button type="button" class="close" data-dismiss="modal" aria-hidden="true">×</button> </div> <div class="modal-body"> <p> Modal body content here... </p> </div> <div class="modal-footer"> <a href="javascript:;" class="btn btn-white" data-dismiss="modal">Close</a> <a href="javascript:;" class="btn btn-success">Action</a> </div> </div> </div> </div> o que eu preciso? No code behind Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click try if verificaCampos() = false then ABRE O MODAL DIV COM A MENSAGEM DE ERRO Catch ex As Exception Throw ex end try End Sub Alguém pode me ajudar? muito obrigado.
  7. eduardohaag

    Listas primarias e secundarias

    Olá sou amador e iniciante em programação. Estou trabalhando em um projeto onde tenho uma tela com uma lista de pedidos, com varias colunas como, ID, cliente, previsão de entrega, valor total. Gostaria de colocar uma coluna com o texto "visualizar", que quando ocorresse um click, abrisse abaixo da linha selecionada uma lista secundaria com os produtos do pedido, quantidade, preço etc... Porém não tenho a menor noção de como fazer isso. Pode ser que exista algum controle que tenha essa possibilidade. Estou trabalhando com vb.net.
  8. Robson Wenzel

    Soma no Report Viewer

    Bom Dia! Estou enfrentando problemas ao realizar somas no report viewer, tenho um dataset configurado com a coluna VALOR do tipo string, e dai no tablix (tabela) eu converto os dados para o tipo monetario pelo código SQL "=FormatCurrency(Fields!Valor.Value,2)", até ai tudo certo. Mas quando eu vou somar o valor total da coluna na tabela da erro, eu uso a função "=Sum(Fields!Valor.Value)". Vocês poderiam me ajudar, gostaria de somar o total do valor e sempre da erro...
  9. Robson Wenzel

    Casas decimais

    Olá, sou novo no VB Estou desenvolvendo um programa de atendimento médico onde tem vários textboxs e um deles é de Valor (R$). O meu problema é o seguinte... No meu banco de dados o campo valor é do tipo moeda e o banco é em access No meu programa no dataset configurei ele para double e por código consegui colocar automaticamente ponto e virgula. Até ai acho que tudo bem... Só que quando eu clico para salvar ele automaticamente esquece do ponto e virgula e salva no datagridview o valor sem ponto e virgula, e dai quando eu seleciono o registro ele esquece dos centavos Ex.: Eu digito na text box: R$ 1.250,00 E quando eu salvo aparece na datagridview: 1250 Quando seleciono o mesmo registro ele fica assim na textbox: R$ 12,50 Só se os centavos não forem zerados ele salva mais se forem 00 ele não salva Por favor! me ajudem. Segue o código da formula para colocar os ponto e virgula para vocês darem uma olhada e ver se tem erros... -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Public Shared Sub Moeda(ByRef txt As TextBox) Dim n As String = String.Empty Dim v As Double = 0 Try n = txt.Text.Replace(",", "").Replace(".", "") If n.Equals("") Then n = "" n = n.PadLeft(3, "0") If n.Length > 3 And n.Substring(0, 1) = "0" Then n = n.Substring(1, n.Length - 1) v = Convert.ToString(n) / 100 txt.Text = String.Format("{0:C2}", v) txt.SelectionStart = txt.Text.Length Catch ex As Exception End Try End Sub Private Sub valortxt_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles valortxt.KeyPress Select Case (valortxt.TextLength) Case 4 valortxt.SelectionStart = 5 End Select End Sub Private Sub valortxt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles valortxt.TextChanged Atendimentos.Moeda(valortxt) End Sub ------------------------------------------------------------------------------------------------------------------------------------------------------------
  10. Pessoal boa noite, Fiz um aplicativo acessando um banco de dados feito também diretamente do visual studio 2015, o projeto gerou um arquivo de banco de dados *.mdf com um arquivo em bloco de notas onde possui a senha e endereço... no entanto estou tentando rodar o aplicativo em uma maquina que nao possui o vs2015 instalado e estou me deparando com o seguinte erro (em anexo), alguémconsegue me ajudar? Desde ja muito obrigado galera!
  11. Olá pessoal, Sou novato em SignalR e estou com uma grande dúvida, como faço para pegar a lista de usuários on-line de um servidor SignalR/C# com um cliente em VB.net? Utilizando javascript consigo pegar a lista normalmente porem não estou conseguindo criar o mesmo código em VB.net. Alguém poderia me ajudar por favor? Função que disponibiliza a lista no servidor: public bool SendOnlineContacts() { try { OnlineContacts onlineContacts = new OnlineContacts(); foreach (var item in _chatUsers.OrderByDescending(a => a.Value.data)) { onlineContacts.messageRecipients.Add(item.Value); } Clients.All.onGetOnlineContacts(onlineContacts); return false; } catch (Exception) { throw new InvalidOperationException("Problem in getting contacts!"); } } ------------------------------------------------------------------------- Código em ASP: <script type="text/javascript"> var Server; $(document).ready(function () { Server = $.connection.ChatHub; $.connection.hub.start({ transport: 'auto', waitForPageLoad: true }, function () { Server.server.connect("0123456", "Deu Certo!!!").fail(function (e){ }); }); Server.client.onGetOnlineContacts = function (chatUsers) { ShowTable(chatUsers, Server); }; }); function ShowTable(chatUsers, Server) { console.log(chatUsers.messageRecipients); if ($("#ListaUsuariosOnline").length) { var html = "<table cellspacing='0' cellpadding='5' align='Center' style='font-size:10px; width=1024px;'>"; html += "<tr style='font-size:10px;'>"; html += "<th style='font-size:10px;'>Usuário ID</th><th style='font-size:10px;'>Nome/CPF</th><th style='font-size:10px;'>Filial</th><th style='font-size:10px;'>Página atual</th><th style='font-size:10px;'>Navegador</th><th style='font-size:10px;'>Data/Hora</th><th style='font-size:10px;'>Ações</th>"; html += "</tr>"; $.each(chatUsers.messageRecipients, function (index, value) { html += "<tr>"; html += "<td>" + $(this)[0].messageRecipientId + "</td><td>" + $(this)[0].messageRecipientName + "</td><td>" + $(this)[0].data + "</td><td><input type='button' value='Enviar Msg' onclick=\"Server.server.enviacomando(prompt('Enviar mensagem à " + $(this)[0].messageRecipientName + "', ''), '" + $(this)[0].messageRecipientId + "', 'msg');\" class='btn cancel'> <input type='button' class='btn cancel' value='Enviar Commando' onclick=\"Server.server.enviacomando(prompt('Enviar comando à " + $(this)[0].messageRecipientName + "', ''), '" + $(this)[0].messageRecipientId + "', 'comando');\"></td>"; html += "</tr>"; }); html += "</table>"; var len = $.map(chatUsers.messageRecipients, function (n, i) { return i; }).length; $("#ListaUsuariosOnlineTotal").html(len); $("#ListaUsuariosOnline").html(html); } } </script>
  12. Daniel Lucca

    Auto-click

    Olá todos! Estou iniciando em programação, e pretendo criar um 'auto-click', nele terá uma webviewer e eu preciso de alguma forma criar uma função para capturar o button do php (que estará no webviewer) e fazer ele clicar com um tempo determinado... Como estou iniciando não sei como fazer, se alguém tiver alguma ideia, me ajude. Obrigado.
  13. KALAND

    vb net cristalreport

    Última edição em 12/03/2018 16:35:32 por KALAND Olá pessoal estou fazendo um cadastro de estoque onde tenho um form venda que efetua a venda do produto e dou baixa no estoque que ao clicar em finalizar ele grava as informações no banco e me abre um form com cristalreport onde aparece os dados da compra efetuada, porem ele esta me retornando todos os dados das vendas anteriores tbem. No caso so queria da ultima que efetuei. Alguem poderia me ajudarsegue o código que estou utilizando Private Sub btnfinalizar_Click(sender As Object, e As EventArgs) Handles btnfinalizar.Click Dim numero As Integer con.Open() sql = "select * from faturas where nfaturas = '" & txtnfatura.Text & "'" da = New FbDataAdapter(sql, con) tabela = New DataTable() da.Fill(tabela) numero = tabela.Rows.Count con.Close() obterultimoregistro() F_relfaturas.Show() End Sub Private Sub obterultimoregistro() Try con.Open() Dim cmd As New FbCommand cmd.CommandText = "select MAX (NFATURAS)from FATURAS" cmd.CommandType = CommandType.Text cmd.Connection = con da.SelectCommand = cmd con.Close() tabela.Clear() da.Fill(tabela) Dim nfaturas As String = tabela.Rows.Item(0).Item(0).ToString Catch ex As Exception MsgBox(ex.Message) End Try End Sub
  14. KALAND

    gridview vb.net

    Olá Pessoal bom dia.Estou com um problema . Tenho um form onde eu efetuo o cadastro de imoveis e outro forme onde eu pesquisa. Neste forme pesquisa tenho um gridview onde contem os dados buscando em meu banco de dados, inclusive uma coluna imagem onde estou armazenando as imagens cadastradas junto com o cadastro de imoveis.Neste forme pesquisa inseri um código no grid que ao clicar duas vezes ele abre os dados em outro form com todas as informações daquele determinado imóvel, mas infelizmente não estou conseguindo trazer as fotos para quando efetuar esta pesquisa ele aparecer neste outro form em uma picturebox junto com os dados do imovel. Segue meu código se alguém puder me ajudar agradeço de coração. Private Sub gdvLoc_vend_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles gdvLoc_vend.CellDoubleClick My.Forms.PesquisaImoveis.txtNome.Text = gdvLoc_vend.CurrentRow.Cells("NOME").Value.ToString() My.Forms.PesquisaImoveis.txtValor.Text = gdvLoc_vend.CurrentRow.Cells("VALOR").Value.ToString() My.Forms.PesquisaImoveis.txtTipoImv.Text = gdvLoc_vend.CurrentRow.Cells("TIPO").Value.ToString() My.Forms.PesquisaImoveis.txtLoc_vend.Text = gdvLoc_vend.CurrentRow.Cells("LOCACAO").Value.ToString() My.Forms.PesquisaImoveis.txtBairro.Text = gdvLoc_vend.CurrentRow.Cells("BAIRRO").Value.ToString() My.Forms.PesquisaImoveis.txtCondominio.Text = gdvLoc_vend.CurrentRow.Cells("CONDOMINIO").Value.ToString() My.Forms.PesquisaImoveis.txtCidade.Text = gdvLoc_vend.CurrentRow.Cells("CIDADE").Value.ToString() My.Forms.PesquisaImoveis.txtUf.Text = gdvLoc_vend.CurrentRow.Cells("UF").Value.ToString() My.Forms.PesquisaImoveis.txtCep.Text = gdvLoc_vend.CurrentRow.Cells("CEP").Value.ToString() My.Forms.PesquisaImoveis.txtEnd.Text = gdvLoc_vend.CurrentRow.Cells("ENDERECO").Value.ToString() My.Forms.PesquisaImoveis.txtDescricao.Text = gdvLoc_vend.CurrentRow.Cells("DESCRICAO").Value.ToString() My.Forms.PesquisaImoveis.txtIdImovel.Text = gdvLoc_vend.CurrentRow.Cells("ImovelId").Value.ToString() My.Forms.PesquisaImoveis.picFoto.Image = gdvLoc_vend.CurrentRow.Cells("Imagem").Value.ToString() Close() End Sub kaland
  15. matheusmilita

    Visual Basic .net

    Gostaria de saber, estou aprendendo Vb.net no visual studio 2017, e possível eu fazer um emissor de nota fiscal? Ou com o Vb.net isso não e possivel
  16. matheusmilita

    Preciso de ajuda sou iniciante

    Estou iniciando na programação, e estou querendo focar em aplicativos desktop, más queria uma linguagem facil e objetiva, não gosto de C#, eu sei um pouco de visual basic, e gostaria de começar no pyton, qual será melhor para mim que sou iniciante?
  17. matheusmilita

    Visual Basic.net

    Estou com a seguinte dúvida oque c# faz, vb.net também consegue? Estou começando no vb.net vale a pena? Eu procuro trabalhar sozinho, tipo em casa fazendo programas básicos para clientes entre outras coisas, não para trabalhar em empresas nem nada do tipo
  18. Martinho Costa

    Mapa google maps

    Olá, Estou com um problema com o mapa do meu site! Sempre que estou a navegar no IE o mapa funciona corretamente aparece mapa e os pontos correspondentes. Mudando de browser por exemplo Chrome o mapa fica a cinza e aparece os pontos. Alguém me pode ajudar a resolver este problema??? Não estou mesmo a ver o que possa ser! Cumprimentos, Martinho Costa
  19. wlweslley

    Código de Acesso

    Ola não sei se é a área certa pois também envolver 2 áreas Programação e no site + ok Ola Pessoal Estou Precisando Muito dessa Ajuda Quem poder me ajudar ate o fim Agradeço com Soluções. , Vou tenta Explicar oque Tento Fazer e desde já Aviso que Provavelmente Precisará de um Site e eu Tenho Host paga o meu site então sem problemas. Continuando... eu quero que no meu Projeto uma Área Pedi Codigo de Acesso para Fazer Login/Desbloquear vamos dizer (Mais o Login é apenas o Codigo de Acesso) ae fica Obter Codigo de Acesso Gratis. você clica , ae vou Usar uns Encurtado de Link q espera 5 Segundos etc. e cair no site onde Gera os Códigos ai que estar Fazer essa Conexão do Códigos (exibido no site Site com o vb.net ) Lembrando que esse Código tem que ser Diferente para Cada Usuário e Trocar depois de um Tempo 20 min exemplo. Sei que vai alem da Programação no VB , Acho que envolve Banco de dados n sei ou um php Resolve + como n manjo de php ;/ fica Difícil Igual a esse ! as Imagens estão em Ordem , o code é o link que abre e depois vira o Próximo , isso eu vejo como kkk Negocio é o sistema. desde já Grato ###Simplificando### Preciso onde Gerar um Código com segurança , e por esse código no meu projeto para Liberar , Código sendo Diferente para cada User e Aleatório acada 5 min ou um Determinado Tempo Depois poder Ajudarem que não seja possível entrar no site Direto exemplo www.site/obtercodigo , e apenas atraz do Encurtador que vai ser Direcionado. *O QUE QUERO FAZER , TER APENAS O CAMPO DE CÓDIGO DE ACESSO ! ** E OBTER O CÓDIGO DE ACESSO AQUI !! , NÃO SEI FAZER ESSA CONEXÃO FIQUEI SABENDO DEPOIS DE MUITA AJUDA SOBRE WEB API E OUTRO ESQUECI MAIS COMO n sou Expert sei o básico e me viro com coisas básicas + isso era Super necessário para O projeto desde já Agradeço Precisarem do Vídeo ou programa que faz isso (Na qual quero fazer o sistema igual ) tenho aqui posso Disponibilizar .
  20. eduardohaag

    Mudar reportviewer via codigo

    Olá pessoal, Estou trabalhando em um projeto que preciso gerar diversos relatório, porém não queria ter de criar um Userform pra cada relatório, por isso criei um Userform com um reportviewer e crio os relatórios, e apenas faço a mudança de qual relatório exibir via código. Até ai tudo bem, meu problema surge nos relatórios que preciso usar um dataset para popular o mesmo. Tenho um dataset chamado "Same_relDataset.xsd" onde possui varios Datatable, como por exemplo "rel_ls_clientes" e "rel_ls_produtos", um para cada relatório. Preciso mudar a fonte de dados do reportviewer via código para que eu possa fazer em tempo de execução. Já li varios tutoriais principalmente sobre a instrução datasource.add do reportviewer mas até agora não obtive sucesso.
  21. Olá, tenho uma consulta a um banco de dados access feito com a seguinte query: "SELECT SUM(quantidade) FROM estoque WHERE codproduto=" & tb_cod.text & "" Quando não é encontrado o resultado no banco de dados referente a Clausula WHERE está me retornando NULL, porém eu uso o resultado dessa busca em alguns cálculos. Precisaria que caso o retorno fosse NULL fosse possivel usar o valor 0. Ja tentei fazer da seguinte maneira que li em outro forum mas não funcionou: "SELECT ISNULL(SUM(quantidade),0) FROM estoque WHERE codproduto=" & tb_cod.text & ""
  22. Ola não sei se é a área certa pois também envolver 2 áreas Programação e no site + ok Ola Pessoal Estou Precisando Muito dessa Ajuda Quem poder me ajudar ate o fim Agradeço com Soluções. , Vou tenta Explicar oque Tento Fazer e desde já Aviso que Provavelmente Precisará de um Site e eu Tenho Host paga o meu site então sem problemas. Continuando... eu quero que no meu Projeto uma Área Pedi Codigo de Acesso para Fazer Login/Desbloquear vamos dizer (Mais o Login é apenas o Codigo de Acesso) ae fica Obter Codigo de Acesso Gratis. você clica , ae vou Usar uns Encurtado de Link q espera 5 Segundos etc. e cair no site onde Gera os Códigos ai que estar Fazer essa Conexão do Códigos (exibido no site Site com o vb.net ) Lembrando que esse Código tem que ser Diferente para Cada Usuário e Trocar depois de um Tempo 20 min exemplo. Sei que vai alem da Programação no VB , Acho que envolve Banco de dados n sei ou um php Resolve + como n manjo de php ;/ fica Difícil Igual a esse ! as Imagens estão em Ordem , o " VBT/code" é o link que abre e depois vira o Próximo , isso eu vejo como kkk Negocio é o sistema. desde já Grato ###Simplificando### Preciso onde Gerar um Código com segurança , e por esse código no meu projeto para Liberar , Código sendo Diferente para cada User e Aleatório acada 5 min ou um Determinado Tempo Depois poder Ajudarem que não seja possível entrar no site Direto exemplo www.site/obtercodigo , e apenas atraz do Encurtador que vai ser Direcionado. *O QUE QUERO FAZER , TER APENAS O CAMPO DE CÓDIGO DE ACESSO ! ** E OBTER O CÓDIGO DE ACESSO AQUI !! , NÃO SEI FAZER ESSA CONEXÃO FIQUEI SABENDO DEPOIS DE MUITA AJUDA SOBRE WEB API E OUTRO ESQUECI MAIS COMO n sou Expert sei o básico e me viro com coisas básicas + isso era Super necessário para O projeto desde já Agradeço Precisarem do Vídeo ou programa que faz isso (Na qual quero fazer o sistema igual ) tenho aqui posso Disponibilizar .
  23. zatekcy

    Gerar números randomicos (VB.NET)

    Alguém me ajuda aqui no VB.NET, queria que cada vez que eu clicasse no botão "Gerar" inicia-se o timer1 no qual esse timer teria um delay de 10 segundos para exibir uma msgbox ou em uma label (tanto faz) um código que contém 20 números (números aleatórios)
  24. Olá, tenho uma consulta a um banco de dados access feito com a seguinte query: "SELECT SUM(quantidade) FROM estoque WHERE codproduto=" & tb_cod.text & "" Quando não é encontrado o resultado no banco de dados referente a Clausula WHERE está me retornando NULL, porém eu uso o resultado dessa busca em alguns cálculos. Precisaria que caso o retorno fosse NULL fosse possivel usar o valor 0. Ja tentei fazer da seguinte maneira que li em outro forum mas não funcionou: "SELECT ISNULL(SUM(quantidade),0) FROM estoque WHERE codproduto=" & tb_cod.text & ""
  25. Olá tenho esse código que encontrei na internet para formatar um textbox como moeda enquanto digito no mesmo. Public Class utils ''' <summary> ''' Método que formata para moeda o conteúdo de um TextBox ''' </summary> ''' <param name="txt">Controle a ser formatado</param> ''' <remarks></remarks> Public Shared Sub TextBoxMoeda(ByRef txt As TextBox) Dim n As String = String.Empty Dim v As Double = 0 Try n = txt.Text.Replace(",", "").Replace(".", "") If n.Equals("") Then n = "000" n = n.PadLeft(3, "0") If n.Length > 3 And n.Substring(0, 1) = "0" Then n = n.Substring(1, n.Length - 1) v = Convert.ToDouble(n) / 100 txt.Text = String.Format("{0:N}", v) txt.SelectionStart = txt.Text.Length Catch ex As Exception MessageBox.Show(ex.Message, "TextBoxMoeda") txt.Text = "" End Try End Sub End Class Porém o código formata com 2 casas decimais, eu necessito que a formatação seja com 3 casas decimais. Alguém tem ideia do que posso mudar no código?
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.