Programação

datagridview groupbox picturebox radiobutton Checkbox
Numericupdown
Combobox

DECLARAR AO INÍCIO
Imports System.Net.Mail Declarar o Mail

Public Class btntotalfatura Dim timedata As DateTime = DateTime.Now Declarar a data
Definição de variáveis para abrir a aplicação Word e um documento do Word

Dim dt As New DataTable Dim WordApp As New Microsoft.Office.Interop.Word.Application() Dim thisDoc As Microsoft.Office.Interop.Word.Document Dim vtotalhoras As Integer Private Sub btntotal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load lbldata.Text = timedata inicio() End Sub

CRIAR A GRIDVIEW
Não esquecer que temos de criar a Gridview no Formulário.

Exercício a funcionar

Frequência do Bexiga
Function inicio()

dt.Columns.Add(New DataColumn("V", GetType(Boolean))) dt.Columns.Add(New DataColumn("Nº de empregado", GetType(String))) dt.Columns.Add(New DataColumn("Nome", GetType(String))) dt.Columns.Add(New DataColumn("Morada", GetType(String))) dt.Columns.Add(New DataColumn("email", GetType(String))) dt.Columns.Add(New DataColumn("Data", GetType(String))) dt.Columns.Add(New DataColumn("Preço/hora", GetType(String))) dt.Columns.Add(New DataColumn("Nº de Horas", GetType(String))) dt.Columns.Add(New DataColumn("Total a Receber", GetType(String)))

dgtabela.DataSource = dt

dgtabela.Columns(0).Width = 20 dgtabela.Columns(1).Width = 20 dgtabela.Columns(2).Width = 100 dgtabela.Columns(3).Width = 150 dgtabela.Columns(4).Width = 75 dgtabela.Columns(5).Width = 50 dgtabela.Columns(6).Width = 30 dgtabela.Columns(7).Width = 30 dgtabela.Columns(8).Width = 80 Return (0) End Function

Exercício da factura
Function