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


Blogs

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

Forums

  • Bem-vindos ao Portugal-a-Programar
    • Sugestões, Críticas ou Dúvidas relativas ao P@P
    • Acerca do P@P
    • Apresentações
  • 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 / XHTML
    • 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
    • SharePoint
    • Apresentação de Software
  • Informática Extra-Programação
    • Interfaces Visuais
    • Computação Gráfica
    • Algoritmia e Lógica
    • Segurança e Redes
    • Hardware
    • Electrónica
    • Automação Industrial
    • Dúvidas e Discussão de Programação
    • Notícias de Tecnologia
  • Outras Áreas
    • Matemática
    • Dúvidas Gerais
    • Discussão Geral
    • Eventos
    • Anúncios de Emprego
    • Tutoriais
    • Snippets / Armazém de Código
    • Arquivo Morto

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

Found 298 results

  1. Olha eu aqui novamente rsrs. Boa tarde, gostaria da ajuda de vocês. Vamos lá tenho 3 tabelas diferentes no meu BD Produtos, Retirada e Vendedoras, fiz uma query no mysql que utiliza insert+ select para inserir na tabela de Retirada o produtos que está na tabela Produtos, valor, preço e imagem do produto, e pegar o código da Vendedora, e fiz outra query de update para atualizar os valores de quantidade da tabela de Produtos, mas notei que quando o código de barra do produto é digitado incorretamente a quantidade em estoque atualiza do mesmo jeito, gostaria que vocês me ajudassem a atualizar a quantidade de preço somente quando o código de barra do produto estiver certo e for inserido na tabela de Retirada. Public Function gravar() If (CodigoBarra.Text = "") Then MsgBox("adicione valores no campo") Else 'função que inicia a conexão' connection() Try Dim datevalue As Date = Date.Now 'query em string' SQL = "INSERT INTO retirada (codvend,codigobarra,imgp,tipo,valor,diaretira) SELECT codvend,codigobarra,imgp,tipo,valor,current_date FROM produtos,vendedoras WHERE produtos.codigobarra= @codigobarra and vendedoras.codvend=@codvend" 'comando recebe a string e a conexão que ela vai entrar' cmd = New MySqlCommand(SQL, conn) 'paramentros para adicionar valores aos campos sqls descritos com @ cmd.Parameters.AddWithValue("@codigobarra", CodigoBarra.Text) cmd.Parameters.AddWithValue("@codvend", CInt(Recebecodigo.Text)) 'executa o comando' cmd.ExecuteNonQuery() cmd.Dispose() 'altera quantidade em estoque' Try 'sql update' Dim sqlupdate As String = "update produtos set quantidade = quantidade-1 where codigobarra = '" & CodigoBarra.Text & "'" 'executa o update com a string e a conexão' cmd = New MySqlCommand(sqlupdate, conn) 'executa o comando' cmd.ExecuteNonQuery() Catch ax As MySqlException MsgBox(ax) End Try Catch ex As MySqlException MsgBox(ex) End Try End If Return True End Function Agradeço desde Já.
  2. Olá, eu estou a criar um programa para postar em grupos do facebook. Mas para conseguir clicar num botão, preciso que o web browser faça isso pela class, pois o ID é random. Espero que me ajudem!
  3. Bom dia, Tenho uma aplicação, criada por mim em vb.net, que funciona numa rede local. Mas sempre que ligo o meu pc à internet "Wireless", a aplicação não funciona, ou tenho aplicação a funcionar e fico sem internet. Como posso ter os dois sistemas a funcionar ao mesmo tempo. Se possível gostava de que fosse a própria aplicação a corrigir o erro. Obrigado
  4. Um Bem Aja a Todos Tenho uma aplicação criada por mim para meu uso pessoal, que vai buscar ao site da santa casa os números saídos do Euromilhões/Totoloto, através do código abaixo descrito que me foi passado em tempos por um companheiro do forum e que estava a funcionar bem. Secede que não consigo aceder agora aos dados, penso que devido a alteração da página / código da santa casa. Agradecia se possível uma ajuda no sentido de poder reverter a situação. Private Sub butObterChaveEuromilhoes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butObterChaveEuromilhoes.Click Dim oWebRequest As WebRequest Dim oWebResponse As WebResponse = Nothing Dim strBuffer As String = "" Dim objSR As StreamReader = Nothing Dim leitor As Object Dim ler As Boolean = False Dim valores As String = String.Empty Dim i As Integer = 0 Dim num_final As String = String.Empty Dim estrela_final As String = String.Empty 'conecta com o website Try oWebRequest = HttpWebRequest.Create("https://www.jogossantacasa.pt/web/SCCartazResult/euroMilhoes") oWebResponse = oWebRequest.GetResponse() 'Le a resposta do web site e armazena em uma stream objSR = New StreamReader(oWebResponse.GetResponseStream) strBuffer = objSR.ReadToEnd leitor = Split(strBuffer, vbNewLine) For Each linha In leitor If ler = True Then valores += linha.ToString + vbNewLine i += 1 End If If linha.Contains("Chave") Then ler = True End If If linha.Contains("Data do Sorteio") Then 'Obtem o valor da linha Retira caracteres a string Label17.Text = (linha.ToString.Remove(34, 7)) End If If i > 8 Then ler = False End If Next Catch ex As Exception MsgBox(ex.ToString) Finally objSR.Close() oWebResponse.Close() End Try 'Retira caracteres a string Label18.Text = Label17.Text.Remove(0, 6) Dim WC As New Net.WebClient Dim Rsp As String = WC.DownloadString("https://www.jogossantacasa.pt/web/SCCartazResult/euroMilhoes") Dim m As Match = Regex.Match(Rsp, "<li>(?<resultado>(?<num1>\d+) (?<num2>\d+) (?<num3>\d+) (?<num4>\d+) (?<num5>\d+) \+ (?<est1>\d+) (?<est2>\d+))</li>", RegexOptions.IgnoreCase) MsgBox(Label18.Text & vbNewLine & vbNewLine & "Chave: " & m.Groups("resultado").ToString(), MsgBoxStyle.Information, "Obter Chave EuroMilhões da Santa Casa") 'Transfere on numeros para as caixas de texto NS1TextBox.Text = m.Groups("num1").ToString() NS2TextBox.Text = m.Groups("num2").ToString() NS3TextBox.Text = m.Groups("num3").ToString() NS4TextBox.Text = m.Groups("num4").ToString() NS5TextBox.Text = m.Groups("num5").ToString() ES1TextBox.Text = m.Groups("est1").ToString() ES2TextBox.Text = m.Groups("est2").ToString() End Sub
  5. Boa Tarde Pessoal Estou com um problema que perdura há algumas semanas e ainda não consegui uma solução para tal. Tenho um Datagrid com uma coluna ComboBox. O objetivo é fazer uma associação de códigos, por exemplo, na coluna 1 tenho o código 88888 e na coluna 2 um ComboBox com vários outros códigos onde seu seleciono o que desejo associar. Esta parte de selecionar e gravar no banco de dados está funcionando bem. O problema é quando tenho que carregar estes dados e exibir novamente para que eu possa fazer alguma alteração. Não estou conseguindo exibir o item selecionado da coluna 2 (ComboBox) conforme o que está gravado no banco de dados. Exemplo: Na linha 0 coluna 1 tenho o código 88888 e na coluna 2 tenho ComboBox com 30 itens e quero que o item 10 seja selecionado e exibido (SetIndex = 9). E não estou conseguindo fazer isso. Já pesquisei em vários sites e todas as alternativas que testei não deram certo. Aqui no fórum pesquisei alguns tópicos e também tentei aplicar e não funciona. Consigo montar o Grid novamente com a coluna 1 toda preenchida mais a coluna 2 fica sem informação. Aí tenho que abrir o ComboBox e ter que selecionar tudo novamente. Correto seria: Coluna 1 = 88888 / Coluna 2 = 589786 mais fica assim Coluna 1 = 88888 / Coluna 2 = vazio e preciso clicar, abrir o ComboBox e selecionar o item desejado. Os colegas tem alguma sugestão que eu possa usar? Obrigado Siqueira
  6. Bom dia amigos. Tenho uma pergunta para fazer. Tenho em meu sistema vários relatórios com Crystal Report. Porem a algum tempo tenho algumas duvidas sobre como trabalhar com o Crystal Report. Já vi varios videos ensinando a fazer impressão com Crystal Report mas em nenhum deles explica como é feita a autenticação do sistema com o banco de dados. Ai as minhas duvidas. Bom vou explicar como eu faço e se alguém tiver uma sugestão melhor ficaria muito grato. EXEMPLO: Cadastro de Funcionários. No form tem os dados do cadastro, um DataGridViwer que recebe os dados da consulta do cadastro selecionado. E um botão de imprimir. Este botão abre o crystal Report que apresenta os dados do DataGrid. O código é assim: Dim dv As DataView = New DataView() Dim dt As New DataTable Dim R As New CRP_Print_Form '' nome do formulario Dim cr As New CRP_CF_Beneficios2 ''nome do crystal report dv = DirectCast(DataGrid_Dados_Report.DataSource, DataView) ''crio uma DataView com os dados da DataSource da DataGrid_dados dt = dv.ToTable().Clone() ''clona a estrutura da DataView para a DataTable dt For Each dr In dv.ToTable().Select() ''percorre as rows da DataView e selecciona a actual dt.ImportRow(dr) ''importa cada row para a DataTable dt Next cr.SetDataSource(dt) R.CRP_Documents.ReportSource = cr ''nome do crystal report viewer R.ShowDialog() Até aqui funciona perfeitamente se o Crystal Report tiver apenas uma tabela do banco de dados. Porem meu sistema trabalha com segregação de empresas. Ou seja o sistema pode ter varias empesas cadastradas. E cada empresa tem um cabeçalho diferente. Então eu em cadas Crystal Report tem pelo menos 2 tabelas anexadas, sendo uma do Cadastro de Empresa e outra dos Dados em questão. Assim quando um usuário logar no sistema seja de qualquer empresa o cabeçalho do formulário é alterado automaticamente. Eu entendo que a autenticação do Windows é feita pelo Domínio AD (Active Directory) e se os computadores estiverem no mesmo domínio é possível fazer a autenticação integrada. Assim ao abrir o Crystal Report não é necessário colocar o usuário e senha do banco de dados. Mas a minha questão é que na rede onde esta o sistema os computadores não estão em um domínio pois são computadores com windows 7, incluindo o servidor onde está o banco de dados. Então não da para fazer autenticação integrada então toda vez q alguém abre um Crystal Report é necessário colocar o usuário e senha do Banco de Dados. Meu cenário: 01 servidor de Banco de Dados e aplicação - Windows 7 15 estações de trabalho na rede com windows 7 Como posso fazer o Crystal Report não pedir autenticação?
  7. Viva povo. Estou com dúvidas no Visual Studio Installer... Criei um instalador para a minha aplicação através da extensão do Install Project para o Visual Studio. O meu projeto contém uma base de dados ACCESS. Mas ao utilizar o programa depois de instalado, esta a dar-me o seguinte erro: “system.data.oledb.oledbexception a operação tem que utilizar uma consulta actualizavel”. Isto tem a ver com as permissões nas pastas. O que fiz foi selecionar o controlo total dos utilizadores nas propriedade da pasta onde a minha aplicação é instalada. Existe forma de colocar a pasta onde o programa é instalado sem restrições para o utilizador? Obrigada!!
  8. Olá Boa tarde Estou com um problema que não consegui resolver se alguém puder me ajudar ficarei muito agradecido. Eu preciso adicionar os valores de data que a pessoa colocar no TextBox(Que seria a data que ela nasceu) Imports MySql.Data.MySqlClient Imports System.IO Public Class CadastroVendedoras Dim conn As New MySqlConnection Dim cmd As New MySqlCommand Dim myData As New DataTable Dim SQL As String Private Sub BTlimpar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTlimpar.Click TBcep.Text = 0 TBcpf.Text = 0 TBrg.Text = 0 TBendereco.Text = "" TBnome.Text = "" End Sub Private Sub Vendedoras_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TBcep.Text = 0 TBcpf.Text = 0 TBrg.Text = 0 TBendereco.Text = "" TBnome.Text = "" End Sub Private Sub BTconfirmar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTconfirmar.Click Try ''Abre conexão connection() Try Catch ex As Exception End Try ''sql= query para banco de dados SQL = "INSERT INTO vendedoras (codvend,nome,endereco,rg,cpf,cep,datanasc) VALUES (@cvend,@nome,@endereco,@rg,@cpf,@cep,@data)" ''campos a serem especificados cmd.Parameters.Add("@cvend", MySqlDbType.Int32, 5) cmd.Parameters.Add("@nome", MySqlDbType.VarChar, 70) cmd.Parameters.Add("@endereco", MySqlDbType.VarChar, 100) cmd.Parameters.Add("@rg", MySqlDbType.VarChar, 13) cmd.Parameters.Add("@cpf", MySqlDbType.VarChar, 13) cmd.Parameters.Add("@cep", MySqlDbType.Int32, 8) cmd.Parameters.Add("@data", MySqlDbType.Date) ''valor a ser cadastrado cmd.Parameters("@cvend").Value = Cvend.Text cmd.Parameters("@nome").Value = TBnome.Text cmd.Parameters("@endereco").Value = TBendereco.Text cmd.Parameters("@rg").Value = TBrg.Text cmd.Parameters("@cpf").Value = TBcpf.Text cmd.Parameters("@cep").Value = TBcep.Text cmd.Parameters("@cpf").Value = TBcpf.Text cmd.Parameters("@data").Value = Datan.Text cmd = New MySqlCommand(SQL, conn) cmd.ExecuteNonQuery() MsgBox("Cadastro Realizado") Catch ex As Exception MsgBox(ex.Message) conn.close() End Try End Sub ''função que abre conexão Public Function connection() Try conn = New MySqlConnection conn.ConnectionString = "server=***; user id=***; password=***; database=***" conn.Open() If conn.State = ConnectionState.Open Then MsgBox("conexão aberta com sucesso") End If Catch ex As Exception MsgBox(ex.Message) End Try Return True End Function End Class
  9. Olá, estou com um impasse como posso/devo realizar de maneira correta a verificação de que se um usuário já estiver cadastrado no db eu não conseguir cadastrar outro meu code para registrar: como posso adptar? Private Sub kRegistraUsuario() Using con As OleDbConnection = GetConection() Try con.Open() Dim sql As String = "INSERT INTO tbl_Kan (Usuario,Senha,Perfil) VALUES (?,?,?)" Dim cmd As OleDbCommand = New OleDbCommand(sql, con) cmd.Parameters.Add(New OleDb.OleDbParameter("@Usuario", txbUsuario.Text)) cmd.Parameters.Add(New OleDb.OleDbParameter("@Senha", txbSenha.Text)) cmd.Parameters.Add(New OleDb.OleDbParameter("@Perfil", cmbPerfil.Text)) cmd.ExecuteNonQuery() MsgBox("Usuário cadastrado no sistema com sucesso!", MsgBoxStyle.Information, "Informativo") Catch ex As Exception MsgBox(ex.Message) Finally con.Close() End Try End Using End Sub Agradeço desde já! att 'A.J
  10. Boas alguém me consegue ajudar como a apagar dados de um FTP de um tipo por exemplo *.zip com uma data por exemplo superior a 5 dias. Outro ponto também preciso de fazer download de um ficheiro mas isso eu penso que seja fácil fazer e a enciclopedia google deve ter alguns exemplos, mas queria descompacta lo por exemplo e msm substituindo ficheiros se eles forem iguais
  11. Boas! Estou usando o Microsoft Windows Image Acquisition Library v2.0 (WIA) para digitalizar imagens. Porém, cada imagem está ficando com 25mb em média (jpg, bmp, png, gif ou tiff da na mesma). A ideia é converter para PDF após a digitalização; mesmo assim, o arquivo PDF está ficando com 8mb em média. Pensei então em diminuir a resolução da imagem digitalizada, mas estou encontrando dificuldade para lidar com essa propriedade. Alguém pode ajudar? Ou sugerir alguma outra forma de obter imagens menores em MB? Obrigado. Código da Class usada. Imports WIA Public Class class_cp_Scanner Private ReadOnly _deviceInfo As DeviceInfo Public Sub New(deviceInfo As DeviceInfo) Me._deviceInfo = deviceInfo End Sub Public Function Scan() As ImageFile ' Connect to the device Dim device = Me._deviceInfo.Connect() 'define dialogo para telas de scan (para scan com barra de progresso) Dim dialog = New WIA.CommonDialogClass() ' Start the scan Dim item = device.Items(1) 'scan sem barra de progresso ''''Dim imageFile = DirectCast(item.Transfer(FormatID.wiaFormatJPEG), ImageFile) AdjustScannerSettings(item, 300, 0, 0, 1010, 620, 0, 0) 'scan com barra de progresso Dim imageFile = TryCast(dialog.ShowTransfer(item, WIA.FormatID.wiaFormatJPEG), WIA.ImageFile) ' Return the imageFile Return imageFile End Function Public Overrides Function ToString() As String Return Me._deviceInfo.Properties("Name").Value.ToString() 'get_Value().ToString() End Function Public Sub SetWIAProperty(properties As IProperties, propName As Object, propValue As Object) Dim prop As [Property] = properties.get_Item(propName) prop.set_Value(propValue) End Sub Public Sub AdjustScannerSettings(scannnerItem As IItem, scanResolutionDPI As Integer, scanStartLeftPixel As Integer, scanStartTopPixel As Integer, scanWidthPixels As Integer, scanHeightPixels As Integer, _ brightnessPercents As Integer, contrastPercents As Integer) Const WIA_HORIZONTAL_SCAN_RESOLUTION_DPI As String = "6147" Const WIA_VERTICAL_SCAN_RESOLUTION_DPI As String = "6148" Const WIA_HORIZONTAL_SCAN_START_PIXEL As String = "6149" Const WIA_VERTICAL_SCAN_START_PIXEL As String = "6150" Const WIA_HORIZONTAL_SCAN_SIZE_PIXELS As String = "6151" Const WIA_VERTICAL_SCAN_SIZE_PIXELS As String = "6152" Const WIA_SCAN_BRIGHTNESS_PERCENTS As String = "6154" Const WIA_SCAN_CONTRAST_PERCENTS As String = "6155" SetWIAProperty(scannnerItem.Properties, WIA_HORIZONTAL_SCAN_RESOLUTION_DPI, scanResolutionDPI) SetWIAProperty(scannnerItem.Properties, WIA_VERTICAL_SCAN_RESOLUTION_DPI, scanResolutionDPI) SetWIAProperty(scannnerItem.Properties, WIA_HORIZONTAL_SCAN_START_PIXEL, scanStartLeftPixel) SetWIAProperty(scannnerItem.Properties, WIA_VERTICAL_SCAN_START_PIXEL, scanStartTopPixel) SetWIAProperty(scannnerItem.Properties, WIA_HORIZONTAL_SCAN_SIZE_PIXELS, scanWidthPixels) SetWIAProperty(scannnerItem.Properties, WIA_VERTICAL_SCAN_SIZE_PIXELS, scanHeightPixels) SetWIAProperty(scannnerItem.Properties, WIA_SCAN_BRIGHTNESS_PERCENTS, brightnessPercents) SetWIAProperty(scannnerItem.Properties, WIA_SCAN_CONTRAST_PERCENTS, contrastPercents) End Sub End Class Erro obtido na linha: AdjustScannerSettings(item, 300, 0, 0, 1010, 620, 0, 0) An unhandled exception of type 'System.MissingMemberException' occurred in Microsoft.VisualBasic.dll Additional information: Public member 'get_Item' on type 'PropertiesClass' not found. Referência: http://www.nakov.com/blog/2009/11/17/playing-with-the-scanner-with-wia-and-c/ Usando: VB.NET 2013
  12. Olá , boa noite . estou precisando de ajuda... Eu queria colocar um atalho para apertar o botão do formulário quando ele estive-se minizimado. obrigado pela atenção !
  13. Ola pessoal , preciso de uma ajuda , nao sei quase nada de vb.net. Eu quero cria um programa em que tenha um arquivo dentro dele , e quando um processo do computador iniciar esse arquivo que esta dentro do programa ser exportado para uma determinada pasta , e quando o processo for fechado o arquivo que foi exportado se auto delete. Supondo que o nome do processo fosse : processo1.exe O nome do arquivo : crash.ini Diretorio da pasta : uma pasta aberta pelo openfilediog.
  14. Preciso de Ajuda, Estou Criando um programa e tem uma parte que tem CombBox, Preciso que faça assim, Ex: CrossFire AL/BR CrossFire Fantasy Point Blank Combat Arms ----------------- Botão escrito: Verificar Cheats Online Mas Eu preciso que quando eu escolher uma dessas Opções eu Clicko no botão botão e vai para outro Form... Vo ficar aguardando
  15. Olá a todos, existe um método replace para imagens? Exemplo: texto = texto.Replace("<foto>", PictureBox1.Image) Deixando claro que esse método não funciona, pois "<foto>" é uma string e "PictureBox1.Image" é um objeto, esse é um exemplo, tem algum método de fazer essa substituição? Código completo: Dim texto As String Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click texto = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\modelo.rtf") texto = fileReader.Replace("<nome>", TextBox1.Text) 'texto = texto.Replace("<foto>", PictureBox1.Image) - Não funciona SaveFileDialog1.ShowDialog() End Sub
  16. Olá, eu estou tentando editar um arquivo .RTF via vb.net, utilizo ele como modelo pra não precisar usar nenhum tipo de relatório, assim eu o abro toda vez, substituo as informações necessárias e salvo uma cópia. Estou usando o seguinte: 'Abrir Dim fileReader As String fileReader = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\modelo.rtf") fileReader = fileReader.Replace("<nome_da_pessoa>", TextBox1.Text) 'Salvar Dim StreamW As New IO.StreamWriter(SaveFileDialog1.FileName, True, System.Text.Encoding.Default) StreamW.Write(fileReader) StreamW.Close() Tudo certo até aí, mas agora gostaria de substituir a string "foto_da_pessoa" por uma imagem e salvar essa imagem no arquivo RTF, como posso fazer isso de uma maneira bem simplificada? Obrigado
  17. Olá, estou a fazer a quinta versão do meu programa "Facebook Auto-Post". Como é um programa que trabalha com WebBrowser tenho de dar algum tempo para o programa processar informações. Já experimentei com o "sleep", porém, este para a execução do programa. Antes utilizava os timers mas confundia muito na hora de programar. Bem, espero que tenham percebido e se puderem ajudem!
  18. Boas, Estou com dificuldade em acertar o fuso horário para uma aplicação que tenho que fazer para correr em PDA (.net compact framework). Eu quero meter o fuso horário de lisboa mas por alguma razão é-me colocado o fuso de Monróvia (a Hora é igual mas é uma timezone diferente) O meu código é este (Estou a usar a class de Opennet): Dim TZC As New TimeZoneCollection TZC.Initialize(0) For Each tzi As TimeZoneInformation In TZC If tzi.StandardName = "GMT Standard Time" Then Application.DoEvents() DateTimeHelper.SetTimeZoneInformation(tzi) Exit For End If Quando imprimo em messagebox a variavel tzi ela surge com o fuso de Londres, Lisboa mas coloca com o de Monrovia Alguma ideia? Obrigado!
  19. Boa tarde, tenho uma dúvida de como posso guardar imagens na base de dados com o openfiledialog e como mostrar imagens que estão guardadas na mesma base de dados Por exemplo quando o utilizador clicar no botão "Carregar Foto" pudesse escolher a foto que deseja e quando fosse para clicar no botão registar a foto fosse guardada na base de dados Problemas: Não sei como deva criar a tabela das imagens e como guardar essa imagens e mostrar no perfil do cliente(um diferente form)
  20. Bom, tenho a seguinte situação: Em BackgroundWorker1_DoWork coloquei For i = 0 To lista.Items.Count - 1 , cada item percorrido nessa lista eu adiciono 1 a uma contagem. Dentro do FOR tenho o seguinte código If contagem.text = 5 then Timer1.Start() 'esse timer, é apenas para fazer contagem regressiva para voltar a percorrer a lista else contagem = contagem +1 Enf If Minha intenção é a seguinte, percorrer 5 itens, pausar um tempo de acordo com o timer, e voltar a percorrer a partir de onde parou, o problema aqui é que o IF está dentro do FOR, então quando chega a 5 ele pára, inicia o timer, mas não reinicia de onde parou, inicia tudo novamente a partir do primeiro item da lista. Gostaria de ajuda, uma solução para eu poder "Pausar" o BackgroundWorker, ou "Lembrar" onde parou na lista. Já tentei salvar o valor index do FOR, mas ele salva o último item sempre, não aquele que parou. Alguma solução?
  21. Olá, eu gostava de saber como acessar uma pasta que está no diretório da aplicação Ex.: A pasta dados está dentro da pasta aplicação que contém o executável, e nessa pasta (dados) há um ficheiro que pretendo abrir. Já agora obrigado
  22. Boas pessoal. Tenho uma dúvida. Eu tenho uma dúvida. Imagem que eu tenho esta página de programa: Quando eu requisito por exemplo o livro "Razvan" (o que está a azul), eu quero que ele desapareça dessa tabela. Como é que eu posso fazer isso? Obrigado!
  23. Boa noite, tenho uma ListView com a coluna "usuarios", vou percorrer uma lista de usuários, e preciso conferir quantas vezes o nome de cada um aparece na coluna "usuarios" da listview. Me parece simples, mas não estou recordando da solução, se alguém puder me refrescar a memória, agradeço.
  24. Boas pessoal. Eu estou com um grande problema. Quero criar um programa de gestão de uma biblioteca, e agora estou na parte em que quero requisitar um livro. Já criei uma base de dados para alunos *aqueles que requisitam*, e para os livros *os que são requisitados*. Agora estou completamente perdido e não sei como fazer para requisitar um livro. O que aconselham fazer? Não precisa de ser grande dica, apenas um buraco p/ começar a pensar. Provavelmente até é fácil, mas estou perdido. Obrigado!
  25. Boa noite, Preciso de uma ajudinha, tenho um erro no meu programa, O Programa consiste em mostrar o estado da bateria do meu PC. O código que estou a usar é este, e funciona bem: // Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Dim ESTADO As Type = GetType(PowerStatus) Dim PROPIEDADES As PropertyInfo() = ESTADO.GetProperties Dim CARGA As PropertyInfo = PROPIEDADES(3) Dim VALOR As Object = CARGA.GetValue(SystemInformation.PowerStatus, Nothing) Label1.Text = (VALOR * 100) & " %" ProgressBar1.Value = VALOR * 100 Dim CONECTADO As PropertyInfo = PROPIEDADES(0) Dim CONEXION As Object = CONECTADO.GetValue(SystemInformation.PowerStatus, Nothing) If CONEXION = 1 Then PictureBox4.Visible = True SendMessage(ProgressBar1.Handle, 1040, 3, 0) Else PictureBox4.Visible = False SendMessage(ProgressBar1.Handle, 1040, 1, 0) End If Dim TIEMPO As PropertyInfo = PROPIEDADES(4) Dim SEGUNDOS As Object = TIEMPO.GetValue(SystemInformation.PowerStatus, Nothing) End Sub Agora adicionei o código seguinte é que dá o erro (imagem em baixo),queria quando a bateria tivesse nos 10% ( Label1 = 10 ) mostra-se uma MsgBox. // Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick If Label1.Text = 10 Then '----> erro aqui MessageBox.Show("Bateria Fraca,Ligue o Tablet à corrente.") End If End Sub Obrigado