sinta1 ritorna

semplice esempio di programma con attivazione di
alcuni oggetti,modifica di alcune proprietà,inserimento
di istruzioni codificate.
scopo:assegnare valore a due numeri,eseguire due prodotti
dichiarare variabili Integer necessarie x,y,c,d
visualizzare separatemente x,y in due etichette Label1,Label2
eseguire il loro prodotto x*y e assegnarlo a variabile c
visualizzare il loro prodotto c in Textbox1
moltiplicare il prodotto c per 10  e assegnarlo a variabile d
visualizzare il risultato in TextBox2
cancellare tutte le caselle con pulsante Cancella

preparazione degli oggetti:
creare due caselle tipo etichetta(label1,label2)
modificare il loro colore(proprietà)
creare due caselle di testo(Textbox1,textbox2)
creare un pulsante e cambiare nome e stile(esegui)
creare un pulsante e cambiare nome e stile(cancella)
cliccare su pulsante Esegui e scrivere il codice programma
cliccare su pulsante Cancella e scrivere il codice programma

codici da inserire nei due oggetti(pulsanti)
Option Explicit

Private Sub CommandButton1_Click()(esegui:cliccando su pulsante)
Dim x, y, c, d As Integer (dichiara x,y,c,d variabili intere)
x = 10			  (assegna a x il valore 10)
y = 20			  (assegna a Y il valore 20)
Label1.Caption = x	  (visualizza x in label1)
Label2.Caption = y	  (visualizza Y in label2)
c = x * y		  (assegna a c il prodotto x*y)
d = c * 10		  (assegna a d il prodotto c*10)
TextBox1.Text = c	  (visualizza c in textbox1)
TextBox2.Text = d	  (visualizza d in textbox2)
End Sub		          (fine della subroutine)

Private Sub CommandButton2_Click()(cancella:assegnando "")
Label1.Caption = ""	  (assegna a label1 spazio vuoto "")
Label2.Caption = ""	  (cfr.)
TextBox1.Text = ""	  (cfr.)
TextBox2.Text = ""	  (cfr.)

End Sub

VERSION 5.00 (così appare il codice se viene letto con Notes)
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 
   Caption         =   "UserForm1"
   ClientHeight    =   3225
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4710
   OleObjectBlob   =   "UserForm1.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "UserForm1"
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub CommandButton1_Click() (pulsante Esegui)
Dim x, y, c, d As Integer
x = 10
y = 20
Label1.Caption = x
Label2.Caption = y
c = x * y
d = c * 10
TextBox1.Text = c
TextBox2.Text = d
End Sub

Private Sub CommandButton2_Click() (pulsante cancella)
Label1.Caption = ""
Label2.Caption = ""
TextBox1.Text = ""
TextBox2.Text = ""

End Sub

Nota:durante la scrittura del codice si può passare alla
visualizzazione della finestra con gli oggetti e viceversa
selezionando Visualizza-Codice-Oggetto
Per vedere il programma in esecuzione,cliccare su menù
ESEGUI-esegui subuserform
Salvare con File-Esporta file
Nota:possibile scrivere codice con Notes e poi copiarlo-incollarlo

ritorna