DataGridView

Data de publicação: Apr 14, 2013 9:22:34 PM

Exercício 05 - GRELHAS_02

Registar a informação de 10 alunos numa ESTRUTURA DE VETOR, utilizando uma GRELHA (DataGridView) PARA MOSTRAR VISUALMENTE OS DADOS DA ESTRUTURA DE VETOR.

'Definir da estrutura do Vetor de Registo

Structure DADOS

Dim num as integer

Dim nome as string

Dim turma as string

End Structure

Dim ALUNOS(10) as DADOS

Dim conta as integer

BOTÃO REGISTAR ALUNO ********************************

'Acrescentar um aluno à variável conta

conta = conta + 1

'Verificar se já atingiu o número máximo de registos (10)

If conta <=10 then

'Abrir uma nova linha na grelha

DataGridView1.RowCount = DataGridView1.RowCount + 1

'Registar dados na Estrutura do vetor

alunos(conta).num = NumericUpDown1.value

alunos(conta).nome = TextBox1.Text

alunos(conta).turma = TextBox2.Text

'Adicionar valores do vetor de registo na grelha

DataGridView1.Rows(conta-1).Cells(0).Value = alunos(conta).num

DataGridView1.Rows(conta-1).Cells(1).Value = alunos(conta).nome

DataGridView1.Rows(conta-1).Cells(2).Value = alunos(conta).turma

'Mensagem informativa de registo efetuado com sucesso

MsgBox("Aluno nº" & conta & "registado com sucesso!!!")

Else

MsgBox("Número máximo de alunos registado")

EndIf

*********************************************************************