sintesi istruzioni vba

sintesi istruzioni per gestione colore e testo ,
posizione, dimensioni oggetti

per vedere usavba1.ppt

Private Sub CommandButton1_Click()
Label1.BackColor = vbCyan
Label2.BackColor = vbYellow
Label3.BackColor = vbCyan
Label4.BackColor = vbCyan
Label1.BackStyle = fmBackStyleOpaque ' o 1 non si vede sottostante
Label2.BackStyle = fmBackStyleTransparent ' o zero 0 si vede sottostante
Label1.BorderColor = vbRed
Label1.BorderStyle = fmBorderStyleNone
Label2.BorderStyle = fmBorderStyleSingle
Label1.Caption = "label1 con testo inserito molto lungo e WordWrap = true"
Label2.Caption = "label2 con testo inserito molto lungo e WordWrap = false"
Label3.Caption = "label3 con testo molto lungo e Autosize=true"
Label4.Caption = "label4 con testo molto lungo Autosize=true e WordWrap=true"
Label1.Font.Size = 12
Label2.Font.Underline = True
Label1.ForeColor = vbRed
Label2.ForeColor = vbBlue
Label1.TextAlign = fmTextAlignLeft
Label2.TextAlign = fmTextAlignCenter
Label3.TextAlign = fmTextAlignRight
Label1.WordWrap = True
Label2.WordWrap = False
Label3.WordWrap = False
Label3.AutoSize = True
Label4.AutoSize = True
Label4.WordWrap = True
Label1.ControlTipText = "label1"
Label2.ControlTipText = "label2"
Label3.ControlTipText = "label3"
Label4.ControlTipText = "label4"
End Sub

uso di Multiline , autosize con TextBox

Private Sub CommandButton1_Click()
TextBox1.MultiLine = True
TextBox1.Text = "testo inserito da codice con Text e avendo attivato Multiline=true"
TextBox2.MultiLine = False
TextBox2.Text = "testo inserito da codice con Text e avendo attivato Multiline=false"
TextBox3.MultiLine = False
TextBox3.Text = "testo inserito da codice con Text e avendo attivato Multiline=false e autosize=true"
TextBox3.AutoSize = True
End Sub

posizione, dimensioni oggetti

per vedere usavba2.ppt

Private Sub CommandButton1_Click()
Label1.BackColor = vbCyan
Label2.BackColor = vbCyan
Label3.BackColor = vbCyan
Label1.Height = 50 'altezza
Label2.Height = 25
Label3.Height = 40
Label1.Width = 50 'larghezza
Label2.Width = 50
Label3.Width = 60
Label1.Top = 20 'distanza da alto sinistra
Label2.Top = 30
Label3.Top = 40
Label1.Left = 10 'distanza da margine sinistro
Label2.Left = 100
Label3.Left = 200

End Sub