Você está aqui: VB.NET ::: Windows Forms ::: ListBox |
Como marcar (selecionar) todos os itens de uma ListBox de uma só vezQuantidade de visualizações: 10686 vezes |
'Este exemplo mostra como selecionar (marcar) todos os itens 'de uma ListBox de uma só vez Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click 'define o modo de seleção como MultiExtended ListBox1.SelectionMode = SelectionMode.MultiExtended ' seleciona todos os itens da lista If ListBox1.SelectionMode <> SelectionMode.One Then For i As Integer = 0 To ListBox1.Items.Count - 1 Step 1 ListBox1.SetSelected(i, True) Next End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load 'Adiciona quatro itens à lista ListBox1.Items.Add("Goiânia") ListBox1.Items.Add("São Paulo") ListBox1.Items.Add("Cuiabá") ListBox1.Items.Add("Rio de Janeiro") End Sub End Class |
![]() |
VB.NET ::: Fundamentos da Linguagem ::: Estruturas de Controle |
Como usar a instrução Continue para abandonar a iteração atual de um laço em VB.NETQuantidade de visualizações: 7939 vezes |
A instrução Continue pode ser usada com os laços do VB.NET para abandonar a iteração atual do laço. Veja como isso funciona no trecho de código abaixo:---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- For valor As Integer = 1 To 10 Step 1 If valor Mod 2 = 0 Then Continue For End If Console.WriteLine(valor) Next Este trecho de código exibirá os números ímpares de 1 a 10. Os números exibidos serão: 1, 3, 5, 7 e 9. Isso aconteceu porque temos uma instrução If que testa se o valor da variável de controle é par. Se o teste resultar verdadeiro, a instrução Continue é executada e a iteração atual é abandonada, fazendo com que o valor atual não seja exibido na tela. Veja mais um exemplo: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- Dim valor As Integer = 0 While valor < 10 valor += 1 If valor = 5 Then Continue While End If Console.WriteLine(valor) End While Este trecho de código conta de 1 a 10, mas pula o número 5. Analise-o cuidadosamente e tente descobrir o porquê. |
VB.NET ::: VB.NET para Engenharia ::: Geometria Analítica e Álgebra Linear |
Como somar os elementos da diagonal principal de uma matriz em VB.NETQuantidade de visualizações: 219 vezes |
A Matriz quadrada é um tipo especial de matriz que possui o mesmo número de linhas e o mesmo número de colunas, ou seja, dada uma matriz Anxm, ela será uma matriz quadrada se, e somente se, n = m, onde n é o número de linhas e m é o número de colunas. Em geral as matrizes quadradas são chamadas de Matrizes de Ordem n, onde n é o número de linhas e colunas. Dessa forma, uma matriz de ordem 4 é uma matriz que possui 4 linhas e quatro colunas. Toda matriz quadrada possui duas diagonais, e elas são muito exploradas tanto na matemática quanto na construção de algorítmos. Essas duas diagonais são chamadas de Diagonal Principal e Diagonal Secundária. A diagonal principal de uma matriz quadrada une o seu canto superior esquerdo ao canto inferior direito. Veja: ![]() Nesta dica veremos como calcular a soma dos valores dos elementos da diagonal principal de uma matriz usando VB.NET. Para isso, só precisamos manter em mente que a diagonal principal de uma matriz A é a coleção das entradas Aij em que i é igual a j. Assim, tudo que temos a fazer é converter essa regra para código VB.NET. Veja um trecho de código VB.NET completo no qual pedimos para o usuário informar os elementos da matriz e em seguida mostramos a soma dos elementos da diagonal superior: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- Imports System Module Program ' função principal do programa VB.NET Sub Main(args As String()) ' vamos declarar e construir uma matriz de três linhas ' e três colunas Dim matriz(2, 2) As Integer ' guarda a soma dos elementos na diagonal principal Dim soma_diagonal As Integer = 0 For i As Integer = 0 To matriz.GetUpperBound(0) For j As Integer = 0 To matriz.GetUpperBound(1) Console.Write("Informe o valor para a linha " & i & " e coluna " _ & j & ": ") ' lê o número e guarda na linha e coluna especificadas matriz(i, j) = Integer.Parse(Console.ReadLine()) Next Next ' vamos mostrar a matriz da forma que ela foi informada Console.WriteLine(vbCrLf & "Valores na matriz: " & vbCrLf) For i As Integer = 0 To matriz.GetUpperBound(0) For j As Integer = 0 To matriz.GetUpperBound(1) Console.Write(matriz(i, j).ToString().PadLeft(5) & " ") Next ' passa para a próxima linha Console.WriteLine() Next ' vamos calcular a soma dos elementos da diagonal ' principal For i As Integer = 0 To matriz.GetUpperBound(0) For j As Integer = 0 To matriz.GetUpperBound(1) If i = j Then soma_diagonal = soma_diagonal + matriz(i, j) End If Next Next ' finalmente mostramos a soma da diagonal principal Console.WriteLine(vbCrLf & "A soma dos elementos da diagonal principal é: " _ & soma_diagonal) Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...") ' pausa o programa Console.ReadKey() End Sub End Module Ao executar este código VB.NET nós teremos o seguinte resultado: Informe o valor para a linha 0 e coluna 0: 3 Informe o valor para a linha 0 e coluna 1: 7 Informe o valor para a linha 0 e coluna 2: 9 Informe o valor para a linha 1 e coluna 0: 2 Informe o valor para a linha 1 e coluna 1: 4 Informe o valor para a linha 1 e coluna 2: 1 Informe o valor para a linha 2 e coluna 0: 5 Informe o valor para a linha 2 e coluna 1: 6 Informe o valor para a linha 2 e coluna 2: 8 3 7 9 2 4 1 5 6 8 A soma dos elementos da diagonal principal é: 15 |
VB.NET ::: Dicas & Truques ::: Data e Hora |
Como retornar o mês da data atual em VB.NET usando a propriedade Month da classe DateTimeQuantidade de visualizações: 8597 vezes |
A propriedade Month da classe DateTime do VB.NET é usada quando queremos retornar o mês de uma determinada data como um número inteiro, ou seja, esta propriedade retorna um valor inteiro na faixa de 1 até 12. Veja o código VB.NET completo para o exemplo: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- Imports System Module Program Sub Main(args As String()) ' Este exemplo mostra como extrair o mês da data ' atual. Lembre-se de que o mês começa em 1 (janeiro) Dim agora As DateTime = DateTime.Now 'obtém o mês. Dim mes As Integer = agora.Month Console.WriteLine("O mês para esta data é: " & mes) Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...") ' pausa o programa Console.ReadKey() End Sub End Module Ao executar este código VB.NET nós teremos o seguinte resultado: O mês para esta data é: 7 |
Desafios, Exercícios e Algoritmos Resolvidos de VB.NET |
Veja mais Dicas e truques de VB.NET |
Dicas e truques de outras linguagens |
Python - Como usar a função type() da linguagem Python para descobrir o tipo de dados de uma variável Revit Python Shell - Como pedir para o usuário selecionar somente um elemento no Revit usando a função PickObject() do objeto Selection do Revit Python Shell |
Códigos Fonte |
![]() Diga adeus às planilhas do Excel e tenha 100% de controle sobre suas contas a pagar e a receber, gestão de receitas e despesas, cadastro de clientes e fornecedores com fotos e histórico de atendimentos. Código fonte completo e funcional, com instruções para instalação e configuração do banco de dados MySQL. Fácil de modificar e adicionar novas funcionalidades. Clique aqui e saiba mais |
![]() Tenha o seu próprio sistema de controle de estoque web. com cadastro de produtos, categorias, fornecedores, entradas e saídas de produtos, com relatórios por data, margem de lucro e muito mais. Código simples e fácil de modificar. Acompanha instruções para instalação e criação do banco de dados MySQL. Clique aqui e saiba mais |
Linguagens Mais Populares |
1º lugar: Java |