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

  • Bem-vindos ao Portugal-a-Programar
    • Sugestões, Críticas ou Dúvidas relativas ao P@P
    • Acerca do P@P
  • Comunidade a Trabalhar
    • Wiki P@P
    • Apresentação de Projectos de Programação
    • Downloads
  • Revista PROGRAMAR
    • Revista PROGRAMAR
  • Desenvolvimento Geral
    • C
    • C++
    • Java
    • Haskell
    • Pascal
    • Python
    • Bases de Dados
    • Visual Basic Clássico
    • Visual Basic for Applications (VBA)
    • Dispositivos Móveis
    • Outras Linguagens
  • Desenvolvimento Orientado para Web
    • PHP
    • HTML
    • CSS
    • Javascript
    • Outras Linguagens de WebDevelopment
    • Desenvolvimento Web
  • Desenvolvimento .NET
    • C#
    • Visual Basic .NET
    • ASP.NET
    • WPF & SilverLight
  • Software e Sistemas Operativos
    • Software de Produtividade
    • Sistemas Operativos
    • Apresentação de Software
  • Informática
    • Interfaces Visuais
    • Computação Gráfica
    • Algoritmia e Lógica
    • Segurança e Redes
    • Hardware
    • Electrónica
    • Automação Industrial
    • Matemática
    • Dúvidas e Discussão de Programação
    • Notícias de Tecnologia
  • Outras Áreas
    • Dúvidas Gerais
    • Discussão Geral
    • Eventos
    • Anúncios de Emprego
    • Tutoriais
    • Snippets / Armazém de Código
  • Arquivo Morto
    • Projectos Descontinuados
    • System Empires

Blogs

  • Blog dos Moderadores
  • Eventos
  • Notícias de Tecnologia
  • Blog do Staff
  • Revista PROGRAMAR
  • Projectos
  • Wiki

Categories

  • Revista PROGRAMAR
  • Tutoriais
  • Textos Académicos
  • Exercícios Académicos
    • Exercícios c/ Solução
    • Exercícios s/ Solução
  • Bibliotecas e Aplicações
  • Outros

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Found 7,577 results

  1. Boa Tarde, Tenho um script que até então funcionava muito bem em todos os computadores. Mas, aparentemente após alguma actualização do W10 (pelo menos no meu computador), começou a apresentar problemas na configuração e comparação de datas. As datas estão configuradas desta forma ==> objSheet(obj_x).Range("B09:B39").NumberFormat = "yyyy/mm/dd" Quando abre o Excel para todas as maquinas é apresentada a data na célula desta forma ==> 2019-09-01 E até ai tudo as mil maravilhas. O problema é que em um dos computadores, quando abre o Excel a data apresentada está aparecendo ==> 2019/09/01 E ai, começa o problema na comparação de datas. Verifiquei no Excel aberto em computadores diferentes as seguintes formatações: Computador 1 com dada aaaa-mm-dd (Portugues) -> Format - Categoria -> Data *14-03-2012, Categoria -> Personalizado dd-mm-aaaa Computador 2 com dada aaaa/mm/dd (Inglês) -> Format - Category -> Date *14/03/2012, Category -> Custom dd/mm/aaaa Há alguma maneira de efectuar a formatação padronizada para os computadores em causa. Nota: Penso que o problema não deva ser o idioma e sim a formatação da data.
  2. Olá a Todos! Sou absolutamente leigo em programação, mas a partir das minhas pesquisas e estudos, consegui exportar os dados de um DataGridView para o Excel com o código a seguir. Agora, preciso de saber como incluir a orientação para: 1) Formatar uma coluna - coluna C - para data ("dd/MM/yyyy") e outras duas para número - colunas F e L.; 2) Formatar a largura das colunas de acordo com o texto. Agradeço desde já sua atenção e auxílio. Public Sub Exportar() Dim SAVE As New SaveFileDialog Dim way As String Dim xlApp As Object = CreateObject("Excel.Application") Dim pth As String = "" 'criaremos una nova Plan Dim xlwb As Object = xlApp.WorkBooks.add Dim xlws As Object = xlwb.WorkSheets(1) Try For c As Integer = 0 To DataGridView1.Columns.Count - 1 xlws.cells(1, c + 1).value = DataGridView1.Columns(c).HeaderText Next For r As Integer = 0 To DataGridView1.RowCount - 1 For c As Integer = 0 To DataGridView1.Columns.Count - 1 xlws.cells(r + 2, c + 1) = DataGridView1.Item(c + 1, r + 2).Value.ToString() Next Next Dim SaveFileDialog1 As SaveFileDialog = New SaveFileDialog SaveFileDialog1.InitialDirectory = System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) SaveFileDialog1.Filter = "Archivo Excel| *.xlsx" SaveFileDialog1.FilterIndex = 2 If SaveFileDialog1.ShowDialog = DialogResult.OK Then way = SaveFileDialog1.FileName xlwb.saveas(way) xlws = Nothing xlwb = Nothing xlApp.quit() MsgBox("Exportado Corretamente.") End If Catch ex As Exception End Try End Sub
  3. RAFAEL DUTRA

    Programa para limpa backup antigos

    Ola pessoal estou precisando de uma ajudinha, sou apenas um estudante, trabalho atualmente com suporte TI. preciso criar um programa que identifique o tamanho de uma pasta (no caso estou utilizando a pasta backup do servidor) caso esta passa ultrapasse o valor X o programa exclui o arquivo mais antigo da pasta eu fiz o program achar o caminho e ler o tamanho da pasta, porem não consigo fazer ela excluir os arquivos por período e limitar a pasta para que quando alcance 1gb ela exclua os antigos da pasta no caso são os diff do servidor alguém pode me ajudar segue o que consegui estudando Imports System.IO <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> Partial Class SisMega Inherits System.Windows.Forms.Form 'Descartar substituições de formulário para limpar a lista de componentes. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub Private Sub btnProcurar_Click(sender As Object, e As EventArgs) Handles btnprocurar.Click Dim FolderBrowserDialog1 As New FolderBrowserDialog With FolderBrowserDialog1 .RootFolder = Environment.SpecialFolder.Desktop .SelectedPath = "c:\" .Description = "Selecione uma pasta" If .ShowDialog = DialogResult.OK Then txtLocal.Text = .SelectedPath End If End With End Sub Private Function TamanhoArquivosDiretorios(ByVal dInfo As DirectoryInfo, ByVal incluirSubDir As Boolean) As Long Dim tamanhoTotal As Long = dInfo.EnumerateFiles().Sum(Function(file) file.Length) If incluirSubDir Then tamanhoTotal += dInfo.EnumerateDirectories().Sum(Function(dir) TamanhoArquivosDiretorios(dir, True)) End If Return tamanhoTotal End Function Private Sub btncoletar_Click(sender As Object, e As EventArgs) Handles btncoletar.Click Dim dInfo As New DirectoryInfo(txtLocal.Text) Dim tamanhoDaPasta As Long = TamanhoArquivosDiretorios(dInfo, True) Dim arquivosDaPasta As String() = Directory.GetFiles(txtLocal.Text) Dim media = arquivosDaPasta.Select(Function(arquivo) New FileInfo(arquivo).Length).Average() media = Math.Round(media / 1000000, 1) txtResultado.Text = "" txtResultado.Text += String.Format("Tamanho do Backup em bytes : {0:N0} bytes", tamanhoDaPasta) & vbCrLf txtResultado.Text += String.Format("Tamanho do Backup em KB : {0:N0} KB", CDbl(tamanhoDaPasta) / 1024) & vbCrLf txtResultado.Text += String.Format("Tamanho do Backup em MB : {0:N0} MB", CDbl(tamanhoDaPasta) / (1024 * 1024)) & vbCrLf txtResultado.Text += vbCrLf End Sub Private Sub SisMega_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click End Sub Private Sub btnLimpar_Click(sender As Object, e As EventArgs) Handles btnlimpar.Click End Sub
  4. RafaelFranckilin

    Iniciar programa com o windows

    Pessoal, eu preciso colocar meu programa para iniciar junto com o windows, mas meu programa tem um arquivo de configuração (app.config), como eu faço? agradeço desde já.
  5. Como fechar todas as janelas que estejam abertas no Microsoft Edge? Fiz um código assim mas não deu para as fechar. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName("iexplore") For Each p As Process In pProcess p.Kill() Next Me.Close() End Sub Grato pela vossa atenção.
  6. Boas! É o seguinte, é possível fazer uma aplicação em VB que verifique quando uma certa aplicação (sei o nome do executável, e esse não muda) para quando essa aplicação for fechada o meu programa VB executar uma certa acção ? Se sim, como posso fazer isso ? A ideia era o programa em Vb corria quando o computador é iniciado, e ficava "á espera" por exemplo só com um icon na Tray, e quando o programa XPTO for aberto...e depois fechado, o meu programa em VB vái executar uma certa acção. Espero ter-me explicado bem Obrigado!
  7. Afonso Mira

    Base de Dados Oracle

    Boas. Tenho uma base de dados em oracle e queria saber se é possivel utilizar o Oracle PL/SQL para consultar e tratar esses dados e em seguida com recurso ao visual studio exibir os dados tratados. Obrigado, Abraço. Afonso Mira.
  8. jasb

    Cartão do Cidadão

    Pessoal, Eu sei que isto já foi perguntado N vezes, mas a verdade é que não encontro nada de jeito para o efeito, nem a funcionar. edipt.dll é antigo já não é para usar, do que vejo (funcionava tao bem quando experimentei à uns anos). Então entra o pteidlib_dotnet.dll, alguem tem um exemplo a funcionar ou sabe onde tiro isso? ando farto de procurar nos sites do cartão do cidadão e não encontro nada. Obrigado desde já.
  9. Olá a todos, Esta é uma questão concerteza básica, mas preciso de ajuda. Estou a tentar ler apenas o node "DocumentTotals" do node "Payments" do SAFT. A questão é que o SelectNodes retorna zero. Com o xmldoc.GetElementsByTagName("DocumentTotals" retorna resultados, mas apanha todos os nodes "DocumentTotals" sejam do "Payments" ou de "SalesInvoices"... O codigo que tenho estado a testar: Dim nodeList As XmlNodeList nodeList = xmldoc.SelectNodes("//Payment/DocumentTotals/GrossTotal") MsgBox(nodeList.Count) aqui retorna zero... o ficheiro xml já está aberto e funciona com o xmldoc.GetElementsByTagName("DocumentTotals", mas baralha-se trazendo resultados do GrossTotal do SalesInvoices. Alguém me pode ajudar ? Obrigado.
  10. RafaelFranckilin

    Encriptar e decriptar app.config

    Eu tenho um programa que vai rodar direto de um pendriver Tô tentando encriptar e decriptar o app.config, mas preciso que funcione em vários computadores alguém pode me ajudar com alguma solução?
  11. Chamuanza

    Dificuldade com Array

    Um Bem Aja a todos Tenho o código que apresento a seguir e não consigo perceber qual a razão de não me aparecer na grelha a segunda leva dos números aleatórios Quando inicio o primeiro array funciona e aparece nas labels os valores, depois de limpar a grade e fazer de novo o array funciona com novos dados mas não consigo que me apareçam na grade. Agradeço ajuda. Obrigado Option Strict On Imports System.Drawing Imports System.Windows.Forms.Label Public Class Form1 Dim Numeros As Integer = 81 Dim Tab_numeros(81) As Integer Private SudokuSolution(81) As String Public Lbl_Array As Label() = New Label(81) {} ' Set the number you labels need Private Sub NovoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NovoToolStripMenuItem.Click ' Demo places 9 x 9 (81) lables on form Dim CNT As Integer Dim X As Integer Dim Y As Integer Dim H As Integer Dim W As Integer Dim r, c As Integer Y = Lbl_Master.Location.Y H = Lbl_Master.Height W = Lbl_Master.Width CNT = 1 For c = 1 To 9 X = Lbl_Master.Location.X For r = 1 To 9 Lbl_Array(CNT) = New Label Lbl_Array(CNT).Location = New System.Drawing.Point(X, Y) Lbl_Array(CNT).Size = New System.Drawing.Size(W, H) Lbl_Array(CNT).AutoSize = Lbl_Master.AutoSize Lbl_Array(CNT).BackColor = Lbl_Master.BackColor Lbl_Array(CNT).BorderStyle = Lbl_Master.BorderStyle Lbl_Array(CNT).TextAlign = Lbl_Master.TextAlign Lbl_Array(CNT).ForeColor = Lbl_Master.ForeColor Lbl_Array(CNT).Font = Lbl_Master.Font '******************************************************* 'Lbl_Array(CNT).Text = CStr(CNT) '***************************************************** Lbl_Array(CNT).Tag = CNT ' This is the clever bit so that we can find the index! Lbl_Array(CNT).Visible = True Lbl_Array(CNT).BringToFront() AddHandler Lbl_Array(CNT).Click, AddressOf lblArray_click Panel1.Controls.Add(Lbl_Array(CNT)) X = (X + W) + 8 ' Note 8 is your offset in X CNT += 1 Next Y = (Y + H) + 8 ' Note 8 is your offset in Y Next Call NumerosAleatorios() Call CarregarNumeros() End Sub Private Sub CarregarNumeros() For J As Integer = 1 To 81 Lbl_Array(J).Text = CStr(Tab_numeros(J - 1)) Next End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click For x As Integer = 1 To 81 Lbl_Array(x).Text = "" Next ' Array.Clear(Lbl_Array, 0, Lbl_Array.Length) End Sub Private Sub NumerosAleatorios() Dim i As Integer 'Var aux p/contador Dim Temp As Integer 'Var aux Dim flag As Boolean 'Flag de controle 'Zerar vectores For i = 0 To Numeros - 1 Tab_numeros(i) = 0 Next 'Gerar números i = 0 Do While i < Numeros Randomize() 'Baralhar Temp = CInt(Int((Rnd() * 81) + 1)) 'def um nº à sorte entre 1 e 81 'Verificar se já existe flag = False For j As Integer = 0 To Numeros - 1 If Tab_numeros(j) = Temp Then flag = True End If Next 'se não, atribuir nº e actualizar contador If flag = False Then Tab_numeros(i) = Temp i += 1 End If Loop End Sub
  12. Saudações amigos, gostaria muito de uma ajuda, Estou desenvolvendo um software de envio de email's, mais também estou fazendo com que ele receba os email's da minha base de dados, estou tentando carregar eles todos de uma só vez da datagridview para o meu textbox, mais estou com dificuldade, como apresenta a imagem abaixo: E tentei o seguinte código, mais só carrega um único email: With datalista If txtendereco.Text = "" Then If .SelectedCells.Count > 0 Then For i As Integer = .SelectedCells.Count - 1 To 0 Step -1 txtendereco.Text = datalista.SelectedCells.Item(6).Value + "," Next End If End If End With Desde Já agradeço
  13. artroc

    CTT Expresso Web Services

    Boa tarde, Alguem sabe como trabalhar com os CTT webservice expedição de encomendas através de http://cttexpressows.qa.ctt.pt/CTTEWSPool/CTTShipmentProviderWS.svc?wsdl cumprimentos, Artur
  14. electric

    Discord.net

    Viva, Estava a tentar implementar num software meu um envio de menssagens para o discord no entanto todos os tutoriais que encontrei sao xe 2017 e usam como por exemplo discord.connect(token) que nsste momento nao existe... Questao a minha alguem que tenha usado e tenha algum material com exemplo que me recomende ? Abraço e obrigado
  15. Boas Alguém já tem algum código , ou alguma ideia de como fazer a importação automática dos documentos existentes no portal do E-Fatura. Sem ser pelo ficheiro que eles lá tem da importação (e-fatura.csv), pois essa importação não separa os documentos por taxas de IVA .. Já tenho um código para fazer o login automático no site .. que é o seguinte: Try Dim IE IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.FullScreen = False IE.AddressBar = True IE.StatusBar = True IE.Toolbar = False ' IE.Width = Ambiente.Width - 200 ' IE.Height = Ambiente.Height - 200 IE.top = 100 IE.left = 100 IE.Navigate("https://faturas.portaldasfinancas.gov.pt/consultarDocumentosAdquirente.action") Do While IE.Busy System.Threading.Thread.Sleep(100) Loop IE.Navigate("https://faturas.portaldasfinancas.gov.pt/consultarDocumentosAdquirente.action") Do While IE.Busy System.Threading.Thread.Sleep(100) Loop IE.Document.All("username").InnerText = "???????????" ' Nº Contribuinte IE.Document.all("password").focus() IE.Document.All("password").InnerText = "?????????????" ' Senha do Portal IE.Document.All("sbmtLogin").Click() Catch ex As Exception MsgBox("Erro: Volte a Tentar", MsgBoxStyle.Critical) End Try
  16. boas, estou a fazer um programa no qual necessito alterar os dados que seleciono atravez de um dategridview mas ao fazer o update os dados sao todos alterados e nao so os selecionados. Se alguem me conseguisse ajudar ficaria grato! Private Sub editar _Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim connection As New OleDbConnection Dim query As String Dim command As New OleDbCommand connection = New OleDbConnection(My.Settings.fclinicConnectionString) query = "UPDATE paciente SET [Nome Paciente]=@Nome_PacienteTextBox,[Nº Utente]=@Nº_UtenteTextBox,[Genero]=@GeneroComboBox,[Data Nascimento]=@Data_NascimentoDateTimePicker,[Morada]=@morada,[Cidade]=@cidade,[País]=@pais,[Codigo Postal]=@codpostal,[Telefone]=@telefone,=@email,[Tipo de Sangue]=@sangue,[Alergias]=@alergias" command = New OleDbCommand(query, connection) command.Parameters.Add("@Nome_PacienteTextBox", OleDbType.VarChar).Value = Nome_PacienteTextBox.Text command.Parameters.Add("@Nº_UtenteTextBox", OleDbType.VarChar).Value = Nº_UtenteTextBox.Text command.Parameters.Add("@GeneroComboBox", OleDbType.VarChar).Value = GeneroComboBox.Text command.Parameters.Add("@Data_NascimentoDateTimePicker", OleDbType.VarChar).Value = Data_NascimentoDateTimePicker.Text command.Parameters.Add("@morada", OleDbType.VarChar).Value = MoradaTextBox.Text command.Parameters.Add("@cidade", OleDbType.VarChar).Value = CidadeTextBox.Text command.Parameters.Add("@pais", OleDbType.VarChar).Value = PaísComboBox.Text command.Parameters.Add("@codpostal", OleDbType.VarChar).Value = Codigo_PostalTextBox.Text command.Parameters.Add("@telefone", OleDbType.VarChar).Value = TelefoneTextBox.Text command.Parameters.Add("@email", OleDbType.VarChar).Value = EmailTextBox.Text command.Parameters.Add("@sangue", OleDbType.VarChar).Value = Tipo_de_SangueComboBox.Text command.Parameters.Add("@alergias", OleDbType.VarChar).Value = AlergiasTextBox.Text Dim Olido As Integer connection.Open() Olido = command.ExecuteNonQuery() If (Olido < 1) Then MsgBox("Erro ao actualizar", MessageBoxButtons.OK, MessageBoxIcon.Error) Else MessageBox.Show("Os dados foram alterados com sucesso!") End If connection.Close() connection.Dispose() End Sub
  17. Camarao69

    PHC FRONT WEB

    Bom dia Estou com dificuldade na introdução das referencias seleccionadas num form para as linhas do dossier. For z = 1 To nsts 'cAddRefParas.Referencia = System.Web.HttpContext.Current.Request.Form("st_" & z.ToString()) cAddRefParas.Referencia = "xpto" cAddRefParas.Quantidade = 1
  18. electric

    Conecçao Rcon

    Bom dia a todos, Estive a procura no forum e nao encontrei nada referente a Rcon no campo de vb.net, Online existem algumas coisas mas tambem nada que me tenha realmente ajudado.. Questao a minha é a seguinte Preciso fazer uma conneccao por Rcon Tenho o ip a porta e a porta rcon Alguem me da uma luzinha de como fazer a coneccao ? Obrigado desde ja Abraço
  19. Eduarda Pinto

    Impressão de uma factura

    Boa tarde, eu estou ja na parte final do meu projeto de prova de aptidão Profissional e no meu projeto em visual basci eu necessito de fazer a impressão de uma fatura e de uma encomenda e o meu código está a dar erro na parte do RectPrint Dim snapshot As Bitmap = GetWindowImage(window, New Rectangle(Me.Location.X + 10, Me.Location.Y + 30, RectPrint.Width, RectPrint.Height)) Necessito mesmo de ajuda, pois vou fazer a terceira avaliação esta quinta-feira!!!! Obrigada pela compreensão!!!
  20. Mendes_PT

    Pesquisa entre datas

    Boa tarde, Estou a criar um desenvolvimento que permite visualizar todos os movimentos de stock da referência em uma datagridview. Ate aqui eu consegui colocar tudo a funcionar mas queria ir mais longe. Queria que quando fizesse uma pesquisa a primeira linha da datagridview me mostrasse o saldo anterior dos movimentos. Ou seja desde a primeira data dos movimentos de stock até a data inicial da pesquisa. E na ultima linha o total desde a data inicial ate a data final do filtro. Nao sei se me fiz entender espero que sim. Podem me ajudar se for possível fazer isto?
  21. Olá pessoal!!! Podem me ajudar??? Tenho um DataGridView onde ao clicar nas células de determinadas colunas retora o seu texto em uma textbox. Segue o código: Private Sub DgvCE_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DgvCE.CellClick Dim ColName As String = DgvCE.Columns(e.ColumnIndex).Name If ColName = "ImgEditar" Or ColName = "ImgDeletar" Or ColName = "ImgCE" Or ColName = "ImgPID" Or ColName = "ImgAP" Then TxtLeitor.Text = "" Else '---Quando o usuário clicar em uma célula do DgvCE, exibe o seu conteudo no txtLeitor TxtLeitor.Text = DgvCE.Rows(e.RowIndex).Cells(e.ColumnIndex).Value End If End Sub O problema é que quando clico no CABEÇALHO () ocorre o seguinte erro: System.ArgumentOutOfRangeException: 'O índice estava fora do intervalo. Ele deve ser não-negativo e menor que o tamanho da coleção. Arg_ParamName_Name'
  22. Chamuanza

    Aviso sobre "MSDATASRC"

    Um Bem Aja a todos Tenho uma aplicação feita por mim, para meu uso que agora quando inicio aparece este aviso. Aviso Não é possível localizar o assembly do wrapper para a biblioteca de tipos "MSDATASRC". Verifique se (1) o componente COM está registrado corretamente e (2) sua plataforma de destino é a mesma que a bitness do componente COM. Por exemplo, se o componente COM for de 32 bits, sua plataforma de destino não deverá ser de 64 bits. ChamuanzasAB42012. Qual a melhor maneira de resolver? Estou com o Windows 10 Pro 64bits e Visual Studio2015 Agradeço desde já a atenção
  23. marlonwg

    Impressao com PrintDocument

    Boas pessoal estou a usar PrintDocument para criar uma impressão so tem um porem quando a impressao passa de X linhas a impressora para de imprimir e sempre mantem no Modo A4??? ta ai abaixo um trecho do codigo que uso para definir o Papersize mas sem sucesso somente consigo quando imprimi em impressora XPS , passa normal mas se entrar nas cupom Continuo tipo bematech , elgin , etc ... a impressora corta quando alcança A4 Codigo... Dim pd As Printing.PrintDocument = New Printing.PrintDocument() Dim QtdProd As Decimal = DgvVendas.RowCount ' Quantidade linhas da venda Dim AltTotal As Decimal = QtdProd * (Tln * 2) ' divisao para saber tamanho do cupom Dim Alt As Short = 671 + AltTotal ' Soma a base + altura total 'Seleciona a Impressao tipo Cupom PapelPersonal = New PaperSize("personal", 300, Alt) ' Papel personalizado Pd.PageSettings.PaperSize = PapelPersonal ' Definiçao de papel Pd.Print()
  24. Ola amigos , estou a realizar um protejo em Visual BASIC 2017 sobre Contador Electrónico, o que é isto, é nada mais nada menos que um programa que tem 10 mesas em que se pode adicionar ou remover mesas á medida da capacidade do estabelecimento e disponibilidade , contudo eu nao sou mesmo nada perito em vb e tenho alguma dificuldade em entender mas gostava de saber se me podiam dar uma ajudinha em explicarem-me como devo de fazer e a melhor forma para que eu possa através de um outro Form clicar num botão que diz "Recolher Registo" e no qual esse botao envia-se um email para o administrador que só á um no programa e mostrar no email um anexo em acess ou excel ou word ,assim qualquer coisa como um modelo que ficasse bem bonitinho para que depois o dito administrador pudesse tirar uma cópia desse tal anexo para guardar , nao tenho código em relação a isso de enviar email e capa do anexo,apenas tenho um sistema de login e registo e o principal do programa que é a parte das mesas disponiveis e assim que um cliente comeca e acaba um jogo , gostava primeiro de entender o raciocínio de como devo fazer ,é baseado Num software que existe na net com o nome de "Contelec", baseado nisso, obrigado por alguma resposta e espero que tenha sido claro na minha duvida cumprimentos
  25. Boas sou novo nestas zonas e gostaria de saber como faço para executar um backup da minha base de dados e também para restaurar. Se alguém me poder ajudar fico imenso grato. Obrigado.
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.