Ir para o conteúdo

Pesquisar na Comunidade

A mostrar resultados para tags ''vb.net''.



Mais opções de pesquisa

  • Pesquisa por Tags

    Introduza as tags separadas por vírgulas.
  • Pesquisar por Autor

Tipo de Conteúdo


Fórum

  • 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
    • 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
    • Projectos Descontinuados
    • System Empires

Blogs

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

Categorias

  • 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



Filtrar por número de...

7510 resultados

  1. Datagrid com dataset de csv

    Boas, Peço a vossa ajuda experiente ! Sou muito verde nestas coisas da programação, e ando a aprender á base de exemplos que vejo o código. Eu não sei, exactamente como fazer a coisa acontecer, ando a pesquisar por guias e informações que mostrem um exemplo a funcionar . Mas basicamente o conceito base será este. Utilizar o datagrid que tera acesso a uma base dados access, com 2 campos. Artigo | Valor 1; 1000 2; 500 3: 20 4; 100 A esse datagrid/form quero adicionar uma função de importar um ficheiro CSV, que tem os dados: 1; 1200 3; 50 No data grid apenas vai aparecer as colunas com os dados: Artigo | Valor(em base dados) | Valor 2 (do CSV) | Diferença 1; 1000; 1200; 200 3;20;50; 30 e e depois a função de salvar os dados das colunas Valor2 na base dados acces. Podem indicar o caminho certo, ou algo em que eu veja o funcionamento ? Obrigado, Cumprimentos,
  2. Copiar ficheiros usando PenDrive

    Boa tarde, Alguem para dar uma ajuda, Numa pendrive tenho uma pasta (Files) com um ficheiro Teste.txt, queria copiar esse ficheiro para o D: por exemplo. Colocando os caminhos e as letras das unidades é facil. Agora a minha dúvida é em relação a letra da unidade da pendrive. Nao da para definir uma letra porque em Pcs diferentes sao atribuidas letras diferentes. Como posso fazer? Obrigado
  3. Base Dados Local para Cloud

    Bom Dia, Caros Amigos Espero que esteja tudo bem convosco. Estou num projecto em que tenho que passar uma aplicação com BD acess para web. Tenho uma base de dados MDB que tenho acesso e o meu objectivo é fazer um syncronizador em REALTime. Já alugei uma VPS com Linux e já instalei lá o MYSQL e APACHE... A minha ideia é quando alguem altera algum nesse mdb o meu aplicativo vai actualizar no MySQL depois o desenvolvimento WEB já não será comigo. Mas qualquer um pode desenvolver web sobre um APACHE com MYSQL... O que pergunto é quem seja já experiente como vou passar o MDB (tabelas alteradas para o MYSQL de forma mais simples e que não tenha que fazer 190 querys de SELECTS e depois UPDATE na BASE DE DADOS MySql... Queria simplificar qual a melhor ideia para fazer da aplicação uma aplicação com sincronizador "cloud".... Deem me exemplos caso existam se fizerem me esse favor. Pois estou com tanta urgencia... não queria começar a fazer algum que depois vou desfazer etc etc etc.... Qualquer comentário é sempre bem vindo... Obrigado Abraço a todos.
  4. Ajuda jogo "4 em linha" Matriz

    Boas, eu e um amigo estamos a desenvolver um projeto em VB.net e nesse projeto estamos a fazer o jogo 4 em linha. Ainda somos inexperientes pois so temos vb a 4 meses. no nosso programa temos uma variavel chamada "marcador" (boolean) que nos permite trancar o local de jogo , para que o jogador 2 nao possa jogar no mesmo sitio.Isto funciona mas so que ouvimos uma forma mais facil de fazer isto tudo usando um (intenger) numa variavel que nos guarde os tipo de dados guardados na picturebox, sendo 0=picturebox vazia ,1= picturebox com uma peca amarela, 2= picturebox peca vermelha. Bem resumindo o que eu quero e criar uma matriz especie de tabela que me verifique se o sitio onde o jogador 1 ou 2 vai jogar esta vazio ou se tem peca, se tiver peca que bloquei o sito, e tambem precisa que ela verificasse se ela as picturebox para baixo estao vazias , so podendo colocar la uma peca se as outras estiverem preenchidas Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim i As Integer i = 0 marcador = True For i = 0 To 53 trancar(i) = False Next ' Array matris para colunas e linhas do Connect 4 ' quadro(1, 1) = Me.PB11 quadro(1, 2) = Me.PB12 quadro(1, 3) = Me.PB13 quadro(1, 4) = Me.PB14 quadro(1, 5) = Me.PB15 quadro(1, 6) = Me.PB16 quadro(1, 7) = Me.PB17 quadro(1, 8) = Me.PB18 quadro(1, 9) = Me.PB19 quadro(2, 1) = Me.PB21 quadro(2, 2) = Me.PB22 quadro(2, 3) = Me.PB23 quadro(2, 4) = Me.PB24 quadro(2, 5) = Me.PB25 quadro(2, 6) = Me.PB26 quadro(2, 7) = Me.PB27 quadro(2, 8) = Me.PB28 quadro(2, 9) = Me.PB29 quadro(3, 1) = Me.PB31 quadro(3, 2) = Me.PB32 quadro(3, 3) = Me.PB33 quadro(3, 4) = Me.PB34 quadro(3, 5) = Me.PB35 quadro(3, 6) = Me.PB36 quadro(3, 7) = Me.PB37 quadro(3, 8) = Me.PB38 quadro(3, 9) = Me.PB39 quadro(4, 1) = Me.PB41 quadro(4, 2) = Me.PB42 quadro(4, 3) = Me.PB43 quadro(4, 4) = Me.PB44 quadro(4, 5) = Me.PB45 quadro(4, 6) = Me.PB46 quadro(4, 7) = Me.PB47 quadro(4, 8) = Me.PB48 quadro(4, 9) = Me.PB49 quadro(5, 1) = Me.PB51 quadro(5, 2) = Me.PB52 quadro(5, 3) = Me.PB53 quadro(5, 4) = Me.PB54 quadro(5, 5) = Me.PB55 quadro(5, 6) = Me.PB56 quadro(5, 7) = Me.PB57 quadro(5, 8) = Me.PB58 quadro(5, 9) = Me.PB59 quadro(6, 1) = Me.PB61 quadro(6, 2) = Me.PB62 quadro(6, 3) = Me.PB63 quadro(6, 4) = Me.PB64 quadro(6, 5) = Me.PB65 quadro(6, 6) = Me.PB66 quadro(6, 7) = Me.PB67 quadro(6, 8) = Me.PB68 quadro(6, 9) = Me.PB69 Label1.Text = ("Player's 1 turn") End Sub ' Verifica se o jogador 1 e 2 já jogaram e tambem verifica se a peça ja foi colocada no local onde se clicou! ' Private Sub PictureBox11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PB11.Click If trancar(1) = False Then If marcador = True Then Label1.Text = ("Player's 2 turn") quadro(1, 1).Image = My.Resources.PECAVERMELHA marcador = False Else Label1.Text = ("Player's 1 turn") quadro(1, 1).Image = My.Resources.PECAMARELA marcador = True End If trancar(1) = True End If End Sub aqui esta o nosso codigo de da nossa matriz e de uma picturebox. Desde já agradeço por qualquer ajuda que possam dar.
  5. DatagridView e checkbox

    Bom dia, estou a fazer a leitura das linhas da dgv, mas por algum motivo a checkbox que é seleccionada por ultimo não retorna o valor true, lê como se fosse false. Dim indice As Integer For indice = 0 To dgvAVenc.RowCount - 1 If dgvAVenc.Rows(indice).Cells("colEmail").Value = true Then ... envia email end if Será algum propriedade da grid? É a primeira vez que estou a usar este tipo de grid e qualquer orientação é bem vinda. Também já tentei assim: For Each row As DataGridViewRow In Me.dgvAVenc.Rows If row.Cells("colEmail").Value = True Then . . . (inclusive já alterei tambem <>0....) Obrigada pela vossa atenção..
  6. Listar SeriesChartType combobox

    Como listar SeriesChartType no combobox eu sei que vou ter que fazer um loop mais não tenho noção de como listar SeriesChartType è como essa imagem que queria ficar no combobox
  7. Consulta entre tabelas

    Pessoal e o seguinte tenho a tabela cliente e tabela parcelasvencida estou fazendo a busca pela data de vencimento passando os respectivo id para tabbela cliente buscando os cliente somando os valores conforme os id passado Private Sub CarregaVendas() Dim dr As OleDbDataReader = Nothing Using con As OleDbConnection = GetConnection() Try con.Open() Dim sql As String = "" dtinicio = dtpInicio.Value.ToString dtfim = dtpFim.Value.ToString sql = "SELECT CodCliente, NomeCliente, ValorParc FROM tblVendasParceladas WHERE DateValue(DataVenc) < DateValue('" & dtinicio & "') AND DateValue(DataVenc) < DateValue('" & dtfim & "')" ' AND (TIPO='A Prazo') ORDER BY ID" Dim cmd As OleDbCommand = New OleDbCommand(sql, con) Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd) Dim dt As DataTable = New DataTable da.Fill(dt) dgvTodasVencidas.DataSource = dt For i = 0 To dgvTodasVencidas.Rows.Count - 1 dgvTodasVencidas.CurrentCell = dgvTodasVencidas.Rows(i).Cells(0) dgvTodasVencidas.CurrentRow.Cells(2).Value = dgvTodasVencidas.CurrentRow.Cells(2).Value Dim sql1 As String = "" sql1 = "SELECT CodCliente, Nome, Devedor FROM tblCliente WHERE CodCliente=" & CInt(dgvTodasVencidas.CurrentRow.Cells(0).Value) Dim cmd1 As OleDbCommand = New OleDbCommand(sql1, con) Dim da1 As OleDbDataAdapter = New OleDbDataAdapter(cmd1) Dim dt1 As DataTable = New DataTable da1.Fill(dt1) DataGridView1.DataSource = dt1 For p = 0 To DataGridView1.Rows.Count - 1 dgvTodasVencidas.CurrentRow.Cells(0).Value = DataGridView1.CurrentRow.Cells(0).Value dgvTodasVencidas.CurrentRow.Cells(1).Value = DataGridView1.CurrentRow.Cells(1).Value dgvTodasVencidas.CurrentRow.Cells(2).Value = dgvTodasVencidas.CurrentRow.Cells(2).Value Next Next Catch ex As Exception MsgBox(ex.Message) Finally con.Close() End Try End Using End Sub
  8. [Resolvido] consulta por data

    Ola. Estou a meio de um projecto e deparei-me com o seguinte problema: quando tento fazer uma consulta no Access, filtrando os dados por uma data, reparei que, por exemplo, se pesquisar pelo dia 10-11-2012 ele retorna-me os valores correctamente, mas se pesquisar por 05-11-2012 ele ignorame-me o 0 no dia, logo não vai encontrar nada na base de dados. comando.CommandText = "Select * From reuniao Where data = #05-11-2012#" Agradeço uma ajuda
  9. Loading Form

    Boas, Preciso de ajuda para criar um Loading screen quando estou a carregar dados em datagrids, penso que nestes casos utiliza-se o background worker mas como nunca trabalhei com este componente estou um bocado as escuras. Ora bem eu tenho o seguinte: tenho vários botoes no formulario principal que quando são clicados apresentam um usercontrol no panel2 do splitcontainer (no form principal) da seguinte forma: Private Sub btn_produtos_Click(sender As Object, e As EventArgs) Handles btn_produtos.Click exibir_userControl(1) End Sub Private Sub exibir_userControl(i As Integer) Select Case i Case 1 If existe_controls() = True Then SplitContainer1.Panel2.Controls.Clear() produtos = New uc_produtos produtos.Size = SplitContainer1.Panel2.Size SplitContainer1.Panel2.Controls.Add(produtos) Else produtos = New uc_produtos produtos.Size = SplitContainer1.Panel2.Size SplitContainer1.Panel2.Controls.Add(produtos) End If Case 2 If existe_controls() = True Then SplitContainer1.Panel2.Controls.Clear() entradas = New uc_entradas entradas.Size = SplitContainer1.Panel2.Size SplitContainer1.Panel2.Controls.Add(entradas) Else entradas = New uc_entradas entradas.Size = SplitContainer1.Panel2.Size SplitContainer1.Panel2.Controls.Add(entradas) End If Case 3 If existe_controls() = True Then SplitContainer1.Panel2.Controls.Clear() saidas = New uc_saidas saidas.Size = SplitContainer1.Panel2.Size SplitContainer1.Panel2.Controls.Add(saidas) Else saidas = New uc_saidas saidas.Size = SplitContainer1.Panel2.Size SplitContainer1.Panel2.Controls.Add(saidas) End If Case 4 If existe_controls() = True Then SplitContainer1.Panel2.Controls.Clear() maquinas = New uc_maquinas maquinas.Size = SplitContainer1.Panel2.Size SplitContainer1.Panel2.Controls.Add(maquinas) Else maquinas = New uc_maquinas maquinas.Size = SplitContainer1.Panel2.Size SplitContainer1.Panel2.Controls.Add(maquinas) End If End Select End Sub no load do usercontrol carrego a datagrid do mesmo: Private Sub uc_produtos_Load(sender As Object, e As EventArgs) Handles MyBase.Load carregar_produtos(dg_produtos) txt_pesquisa.AutoCompleteCustomSource = produtos() End Sub o procedimento para carregar as datagrids está num módulo à parte. Agora tenho um form loading que gostava que fosse apresentado enquando as datagrids dos usercontrol's estão a ser preenchidas ou quando o user control está a ser carregado, não sei qual será a melhor opção. Como devo fazer? Cumpts.
  10. Tenho uma tabela de Pro_Process(Processos) que contem o Code_pro e description_pro. Ao criar um novo processo não está a verificar se existe ou não aquele Code_Pro na base de dados. Eu preciso que ao tentar usar novamente aquele código ele emita uma msg de erro. Como posso fazer isto?
  11. GetAsyncKeyState

    Boa noite, Precisava de uma simples ajuda no seguinte: Com o código seguinte detecta qualquer tecla pressionada, e inicia o Timer2. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick For i = 1 To 255 Dim Resultado = GetAsyncKeyState(i) If Resultado = -32767 Then Timer2.Start End If Next i End Sub Agora queria que quando a tecla V fosse pressionada, e o Timer2.stop For i = 86 To 86 'Key V result = 0 result = GetAsyncKeyState(i) If result = -32767 Then Timer2.Stop() End If Next i Não esta a funcionar porque no código de detectar todas as teclas, e a tecla V também, esta incluída. Tinha que ser um exceção da tecla V. Obrigado
  12. Esta 'tá difícil... Alguém sabe como posso dar a volta à seguinte situação. Numa tabela de base de dados (meses_quotas_condominos) pretendo que a matriz inicial dum ano seja: a) Todos os meses com EstadoPagamento = "-" b) CondominoID = 1 to @variavel (23 por exemplo) c) Cada mes tem nomenclatura obrigatória na seguinte sequência: "NrMes:NomeMes", exemplos: 01:JANEIRO; 02:FEVEREIRO;...12:DEZEMBRO Tentei: BEGIN DECLARE CondominoID INT SET CondominoID = 1 DECLARE NrMes INT SET NrMes = 01 DECLARE NomeMes = Monthname() WHILE CondominoID < 23 DO While NrMes < 12 DO INSERT INTO meses_quotas_condominos (MesesID,CondominoID, MES, Valor, EstadoPagamento) VALUES (DEFAULT,CondominoID,'@NrMes:@NomeMes(@NrMes)','0','-'); Set NrMes =+ 1 END while set CondominoID =+ 1 End while Estou bloqueado no Statment DECLARE. Antecipadamente grato, Jose
  13. Cairo Dock

    è possivel fazer um cairo dock dentro do mdiparent ?
  14. Pessoal, tenho um form com uma picturebox que contem um gif de loading. Estou tentando fazer com que antes de executar um método ele exiba essa imagem de carregando e feche quando terminar. ele até funciona mas em determinado momento conforme o uso ele me retorna o erro: An unhandled exception of type 'System.Threading.ThreadAbortException' occurred in System.Drawing.dll Additional information: O thread estava sendo anulado. Public Class clsModoCarregando Dim FrmLoading As New Loading Dim trdelegate As New ThreadStart(AddressOf carregarFormLoading) Dim trd As New Thread(trdelegate) Private Sub carregarFormLoading() Try FrmLoading.ShowDialog() Catch ex As ThreadAbortException Thread.ResetAbort() End Try End Sub Public Sub ExibirLoad() If Not trd.IsAlive Then trd.Name = "threadCarregando" trd.IsBackground = True trd.Start() End If End Sub Public Sub FecharLoad() If trd.IsAlive Then trd.Abort() trd.Join() End If End Sub End Class 'evento do botao pesquisar do form Private Sub btnPesquisar_Click(sender As Object, e As EventArgs) Handles btnPesquisar.Click Dim ModoCarregando As New Ambiente.clsModoCarregando If lstConsulta.Items.Count > 0 Then ModoCarregando.ExibirLoad() dtgPesquisa.DataSource = insPesquisa.pesquisar(lstConsulta, dtNomesPesquisa.Rows(0)("Tabela")) dtgPesquisa.DataMember = dtNomesPesquisa.Rows(0)("Tabela") ModoCarregando.FecharLoad() Else If txtValorPesquisa.Text = String.Empty Then MsgBox("informe o valor a ser pesquisado.", vbInformation) txtValorPesquisa.Focus() Else MsgBox("Adicione a consulta antes de pesquisar.", vbInformation) btnAdicionar.Focus() End If End If End Sub
  15. factura

    Boas, Pensei que fosse fácil de criar a factura, mas está muito complicado. Depois de alguma pesquisa da net encontrei uns crystal Report , mas pagam-se. Nem instalei. Queria saber como se faz este tipo de facturação? http://servicotaxi.topick.pt/Images/ServicoTaxis/Factura.gif
  16. Reportviewer

    Boa tarde, Estou a precisar de criar um Report em VB.NET 2010, pelo que percebi devo criar uma "Data Connection" e depois um "DataSet" para alimentar o Report. Tenho uma ligação a um servidor "Sql Server 2008" que tanto pode ser acedido por dentro da empresa como por fora, logo não posso ter uma "Data connection" estática. Desenhei a minha aplicação para que fosse dinâmica neste sentido e que quando é executada na primeira vez crie um "Wizard" para ligação à Base de Dados ou sempre que esta não consiga estabelecer conexão. Pretendia usar esta mesma informação para criar esta "Data Connection" e um "Data Set". De forma directa até consigo fazer isso mas depois não consigo manipular as querys nem se houver necessidade de alterar a Data Connection String
  17. "Adicionar","Guardar"

    Ola a todos, irei transitar para o 2º ano do meu curso e irei dar Visual Basic, porem ja comecei a trabalhar nele e estou a fazer um pequeno projecto. Eis a imagem: O ponto onde eu quero tentar chegar, gostava de saber como "adicionar" um registo por exemplo, guarda-lo no ficheiro ".txt" e depois mais tarde poder abri-lo com o programa. Também gostava de Listar no programa os registos existentes procurando por exemplo pelo o nome mas a Listagem ainda e uma ideia que esta em Stand-By. Aguardo ajuda, Obrigado. ( Peço desculpa pelo os erros ortográficos, o meu teclado nao quer por os acentos por cima das letras ).
  18. Substituir Letras

    Boa tarde, Precisava de uma ajuda no meu programa no seguinte: O meu programa gera 12 Passwords referente aos 12 mêses do Ano,com as letras (A,B e C): ------------------------------------------------------------------------------------------ Const PwdKey = &H9A Const TxtFile = "c:\Filetxt.txt" Const TxtFileSubs = "c:\Filetxt2.txt" '' Novo ficheiro a ser criado Private Months As String() = {"Janeiro", "Fevereiro", "Março", "Abril", "Maio", "Junho", "Julho", "Agosto", "Setembro", "Outubro", "Novembro", "Dezembro"} Private txtMonths(11) As TextBox Private Sub GenPwdForm_Load(sender As Object, e As EventArgs) Handles Me.Load txtMonths(0) = txtJan txtMonths(1) = txtFev txtMonths(2) = txtMar txtMonths(3) = txtAbr txtMonths(4) = txtMai txtMonths(5) = txtJun txtMonths(6) = txtJul txtMonths(7) = txtAgo txtMonths(8) = txtSet txtMonths(9) = txtOut txtMonths(10) = txtNov txtMonths(11) = txtDez End Sub Private Function GenerateRandomPassword() As String Dim Input As String = "ABC" Dim PwdBuilder As New System.Text.StringBuilder(5) While Input.Length > 0 Dim index As Integer = CInt(Math.Floor(Rnd() * Input.Length)) PwdBuilder.Append(Input.ElementAt(index)) Input = Input.Remove(index, 1) End While Return PwdBuilder.ToString() End Function Private Sub btnGuardarTxt_Click(sender As Object, e As EventArgs) Handles btnGuardarTxt.Click Try If CheckPasswords() Then Using PwdWriter As New IO.StreamWriter(TxtFile) For i As Integer = 0 To 11 PwdWriter.Write(String.Format("{0:D2}: ", i + 1)) PwdWriter.WriteLine(txtMonths(i).Text) Next End Using End If Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical) End Try End Sub --------------------------------------------------------------------------------- - Queria que o novo botão fize-se o Seguinte: Criar um ficheiro (Filetxt2.txt )igual ao do ficheiro (Filetxt.txt), criado pelo btnGuardarTxt , mas substituindo as letras A, B e C por: A= X B = T C=Z Por exemplo: 1-carregando no botão btnGuardarTxt ele cria o seguinte: 01: AACB 02: BCBA 03: CCAB .... 2- Com o novo botão para criar o ficheiro (c:\Filetxt2.txt), substituía as letras e ficava: 01: XXZT 02: TZTX 03: ZZXT .... Obrigado
  19. Rodar Picturebox

    Boa tarde, como posso rodar em varios graus um picturebox? Em vez de estar na horizontal, rodar alguns graus. Obrigado
  20. DropDownList com multipla seleção

    Tenho uma tabela defeitos e uma de processos, sendo que um defeito pode ter um ou vários processos. Por enquanto tenho a funcionar uma dropdownlist para um defeito, um processo, que alterações preciso fazer para poder seleccionar varios processos, Estou a usar vb.net segue o codigo abaixo: ' GET: DEF_DEFECT/Create Function Create() As ActionResult PopProcessDropDownList() Return View() End Function ' POST: DEF_DEFECT/Create 'To protect from overposting attacks, please enable the specific properties you want to bind to, for 'more details see http://go.microsoft.com/fwlink/?LinkId=317598. <HttpPost()> <ValidateAntiForgeryToken()> Function Create(<Bind(Include:="CODE_DEF,DESCRIPTION_DEF")> ByVal dEF_DEFECT As DEF_DEFECT) As ActionResult If ModelState.IsValid Then db.DEF_DEFECT.Add(dEF_DEFECT) Dim processSelected As String = Request.Form("ProcessesList").ToString() UpdateDefectProcess(dEF_DEFECT, processSelected) db.SaveChanges() Return RedirectToAction("Index") End If Return View(dEF_DEFECT) End Function ' GET: DEF_DEFECT/Edit/5 Function Edit(ByVal id As String) As ActionResult If IsNothing(id) Then Return New HttpStatusCodeResult(HttpStatusCode.BadRequest) End If Dim dEF_DEFECT As DEF_DEFECT = db.DEF_DEFECT.Find(id) If IsNothing(dEF_DEFECT) Then Return HttpNotFound() End If PopulateProcessesDropDownList(dEF_DEFECT.PRO_PROCESS) Return View(dEF_DEFECT) End Function Sub PopProcessDropDownList() Dim listSelectListItems As List(Of SelectListItem) = New List(Of SelectListItem) For Each p As PRO_PROCESS In db.PRO_PROCESS Dim selectItem As SelectListItem = New SelectListItem() selectItem.Text = p.CODE_PRO listSelectListItems.Add(selectItem) Next ViewBag.ProcessCode = listSelectListItems End Sub Sub PopulateProcessesDropDownList(selectedprocesses As Object) ' Dropdown Lists Dim allProcesses = From s In db.PRO_PROCESS Order By s.CODE_PRO Select s.CODE_PRO, s.DESCRIPTION_PRO Distinct ViewBag.PList = New SelectList(allProcesses, "CODE_PRO", "CODE_PRO", selectedValue:=selectedprocesses) End Sub ' POST: DEF_DEFECT/Edit/5 'To protect from overposting attacks, please enable the specific properties you want to bind to, for 'more details see http://go.microsoft.com/fwlink/?LinkId=317598. <HttpPost()> <ValidateAntiForgeryToken()> Function Edit(<Bind(Include:="CODE_DEF,DESCRIPTION_DEF")> ByVal dEF_DEFECT As DEF_DEFECT) As ActionResult If ModelState.IsValid Then Dim processToUpdate = db.DEF_DEFECT _ .Include(Function(i) i.PRO_PROCESS) _ .Where(Function(i) i.CODE_DEF = dEF_DEFECT.CODE_DEF) _ .Single() Dim processSelected As String = Request.Form("ProcessesList").ToString() UpdateDefectProcess(processToUpdate, processSelected) db.Entry(processToUpdate).State = EntityState.Modified db.SaveChanges() Return RedirectToAction("Index") End If Return View(dEF_DEFECT) End Function Private Sub UpdateDefectProcess(updateDefect As DEF_DEFECT, processSelected As String) 'Dim selectedProcessHS = New HashSet(Of String)(processSelected) Dim selectedProcessHS = processSelected Dim defectProcess As IEnumerable(Of String) = New HashSet(Of String)(updateDefect.PRO_PROCESS.Select(Function(c) c.CODE_PRO)) For Each c In db.PRO_PROCESS If selectedProcessHS.Contains(c.CODE_PRO.ToString()) Then updateDefect.PRO_PROCESS.Add(c) Else If defectProcess.Contains(c.CODE_PRO) Then updateDefect.PRO_PROCESS.Remove(c) End If End If Next End Sub
  21. DropDownList com seleção multipla

    Tenho uma tabela defeitos e uma de processos, sendo que um defeito pode ter um ou vários processos. Por enquanto tenho a funcionar uma dropdownlist para um defeito, um processo, que alterações preciso fazer para poder seleccionar varios processos, segue o codigo abaixo: ' GET: DEF_DEFECT/Create Function Create() As ActionResult PopProcessDropDownList() Return View() End Function ' POST: DEF_DEFECT/Create 'To protect from overposting attacks, please enable the specific properties you want to bind to, for 'more details see http://go.microsoft.com/fwlink/?LinkId=317598. <HttpPost()> <ValidateAntiForgeryToken()> Function Create(<Bind(Include:="CODE_DEF,DESCRIPTION_DEF")> ByVal dEF_DEFECT As DEF_DEFECT) As ActionResult If ModelState.IsValid Then db.DEF_DEFECT.Add(dEF_DEFECT) Dim processSelected As String = Request.Form("ProcessesList").ToString() UpdateDefectProcess(dEF_DEFECT, processSelected) db.SaveChanges() Return RedirectToAction("Index") End If Return View(dEF_DEFECT) End Function ' GET: DEF_DEFECT/Edit/5 Function Edit(ByVal id As String) As ActionResult If IsNothing(id) Then Return New HttpStatusCodeResult(HttpStatusCode.BadRequest) End If Dim dEF_DEFECT As DEF_DEFECT = db.DEF_DEFECT.Find(id) If IsNothing(dEF_DEFECT) Then Return HttpNotFound() End If PopulateProcessesDropDownList(dEF_DEFECT.PRO_PROCESS) Return View(dEF_DEFECT) End Function Sub PopProcessDropDownList() Dim listSelectListItems As List(Of SelectListItem) = New List(Of SelectListItem) For Each p As PRO_PROCESS In db.PRO_PROCESS Dim selectItem As SelectListItem = New SelectListItem() selectItem.Text = p.CODE_PRO listSelectListItems.Add(selectItem) Next ViewBag.ProcessCode = listSelectListItems End Sub Sub PopulateProcessesDropDownList(selectedprocesses As Object) ' Dropdown Lists Dim allProcesses = From s In db.PRO_PROCESS Order By s.CODE_PRO Select s.CODE_PRO, s.DESCRIPTION_PRO Distinct ViewBag.PList = New SelectList(allProcesses, "CODE_PRO", "CODE_PRO", selectedValue:=selectedprocesses) End Sub ' POST: DEF_DEFECT/Edit/5 'To protect from overposting attacks, please enable the specific properties you want to bind to, for 'more details see http://go.microsoft.com/fwlink/?LinkId=317598. <HttpPost()> <ValidateAntiForgeryToken()> Function Edit(<Bind(Include:="CODE_DEF,DESCRIPTION_DEF")> ByVal dEF_DEFECT As DEF_DEFECT) As ActionResult If ModelState.IsValid Then Dim processToUpdate = db.DEF_DEFECT _ .Include(Function(i) i.PRO_PROCESS) _ .Where(Function(i) i.CODE_DEF = dEF_DEFECT.CODE_DEF) _ .Single() Dim processSelected As String = Request.Form("ProcessesList").ToString() UpdateDefectProcess(processToUpdate, processSelected) db.Entry(processToUpdate).State = EntityState.Modified db.SaveChanges() Return RedirectToAction("Index") End If Return View(dEF_DEFECT) End Function Private Sub UpdateDefectProcess(updateDefect As DEF_DEFECT, processSelected As String) 'Dim selectedProcessHS = New HashSet(Of String)(processSelected) Dim selectedProcessHS = processSelected Dim defectProcess As IEnumerable(Of String) = New HashSet(Of String)(updateDefect.PRO_PROCESS.Select(Function(c) c.CODE_PRO)) For Each c In db.PRO_PROCESS If selectedProcessHS.Contains(c.CODE_PRO.ToString()) Then updateDefect.PRO_PROCESS.Add(c) Else If defectProcess.Contains(c.CODE_PRO) Then updateDefect.PRO_PROCESS.Remove(c) End If End If Next End Sub Estou a usar vb, alguem me pode dar uma ajudinha?
  22. [Resolvido] Teclas de atalho

    Boa tarde. Eu queria na minha aplicação em vb criar teclas de atalho. Eu consigo fazer mas apenas uma tecla. Mas eu quero fazer uma combinação de 2 por exemplo Ctrl + L Li que tinha mos de definir uma tecla como morta mas não faço ideia como fazer se alguem me poder dar uma luzes eu agradecia. Obrigado
  23. Datagridview Glitch

    Boas, Alguém sabe porque é que quando dou load ao usercontrol, com um tabcontrol embutido, a datagrid aparece como na imagem: Cumpts
  24. Bom dia, Como posso formatar uma coluna de uma DataGridView em formato Date - ex: "19-10-2017" Obrigado
  25. Assinar digitalmente codigo

    Olá Como não encontrei nada sobre este tema decidi criar um tópico novo. Pretendo criar um certificado e assinar digitalmente os meus ficheiros exe e doll mas não tenho experiência com este tema. Sei que tenho de criar um certificado numa entidade credível mas não conheço nenhuma nem preços. Depois, ao que parece preciso de um software para colocar o certificado nos ficheiros. Não é possível fazê-lo no visual studio? Agradeço a quem me poder ajudar.
×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade