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
*********************************************************************