Scrivere la data sulla barra del titolo di una Form VB 6

Applicazioni desktop con Visual Basic 6
Impara a creare applicazioni gestionali col Visual Basic

Scritto da Luca Ruggiero nella sezione Visual Basic

Visual Basic possiede una serie di comode e potenti funzioni per la manipolazione delle date; un utile riferimento in questo Articolo. Vediamo come scrivere la data sulla barra del titolo di una Form, incastrandola in un messaggio di benvenuto. Si crei una Form e la si nomini frmData; doppio click in un punto qualsiasi della Form per accedere alla sub Form_Load() e si inserisca il seguente codice nella parte generale, al di fuori della sub:

Option Explicit
Dim data As Date
Dim ora As Date
Dichiaro le variabili data e ora tipizzandole come Date; di seguito il codice della sub lanciato al caricamento della Form:
Private Sub Form_Load()
    data = Date
    ora = Time
    Me.Caption = "Benvenuti, oggi è il " & data & " e sono le ore " & ora
End Sub
Valorizzo le variabili data e ora assegnando rispettivamente le funzioni Date() e Time(); avrei potuto utilizzare genericamente la funzione Now() memorizzandola in un'unica variabile, ma non avrei potuto lanciare il messaggio di benvenuto come nell'esempio riportato. Utilizzo la forma Me.Caption utilizzando Me come riferimento generico a se stesso ma avrei potuto usare la forma frmData.Caption ottenendo lo stesso risultato. Di seguito un'anteprima della Form:

I più cliccati della sezione Visual Basic

:: Guida a Visual Basic 6 (177.016)

:: Una rubrica in VB e Ms Access (98.026)

:: Richiamare una form da un'altra form in Visual Basic (24.159)

:: Una semplice calcolatrice in VB 6 (22.245)

:: Interazione tra Visual Basic ed MS Excel (22.213)

:: Leggere un file Xml col DOM in VB 6 (21.737)

:: Inviare email con CDO in Visual Basic 6 (21.309)

:: Un visualizzatore di immagini in VB 6 (14.302)

:: Un semplice sistema di Login in VB 6 (12.580)

:: Scrivere un file MS Word in VB6 (12.474)

IN EVIDENZA
DOWNLOAD