HTML - Layout, tabele

Tabele asimetrice si Spatierea celulelor

http://www.tutorialehtml.com/htmlt/tabele.php



Layout standard

http://www.tutorialehtml.com/htmlt/layouts.php

Visual Basic _ Aplicatia 1

Private Sub Command1_Click()
If Form1.Text1.Text = "florin" Then
Form1.Hide
Form2.Show
End If
End Sub



Private Sub Command1_Click()
If Form2.Command1 Then
Form2.Label1.Caption = "Acum schimbati culoarea pentru fundal"
End If
End Sub
Private Sub Command10_Click()
If Form2.Label1.Caption = "Acum schimbati culoarea pentru fundal" Then
Form2.Text1.BackColor = &HFFFFFF
End If
If Form2.Label1.Caption = "Acum schimbati culoarea caracterelor" Then
Form2.Text1.ForeColor = &HFFFFFF
End If
End Sub
Private Sub Command11_Click()
If Form2.Label1.Caption = "Acum schimbati culoarea pentru fundal" Then
Form2.Text1.BackColor = &H40&
End If
If Form2.Label1.Caption = "Acum schimbati culoarea caracterelor" Then
Form2.Text1.ForeColor = &H40&
End If
End Sub
Private Sub Command12_Click()
Form2.Text1.FontSize = Val(Form2.Text2.Text)
End Sub
Private Sub Command13_Click()
If Form2.Text3.Text = "B" Then
Form2.Text1.FontBold = True
End If
If Form2.Text3.Text = "I" Then
Form2.Text1.FontItalic = True
End If
If Form2.Text3.Text = "U" Then
Form2.Text1.FontUnderline = True
End If
If Form2.Text3.Text = "BI" Then
Form2.Text1.FontBold = True
Form2.Text1.fonditalic = True
End If
End Sub
Private Sub Command2_Click()
If Form2.Command2 Then
Form2.Label1.Caption = "Acum schimbati culoarea caracterelor"
End If
End Sub
Private Sub Command3_Click()
If Form2.Label1.Caption = "Acum schimbati culoarea pentru fundal" Then
Form2.Text1.BackColor = &HFF&
End If
If Form2.Label1.Caption = "Acum schimbati culoarea caracterelor" Then
Form2.Text1.ForeColor = &HFF&
End If
End Sub
Private Sub Command4_Click()
If Form2.Label1.Caption = "Acum schimbati culoarea pentru fundal" Then
Form2.Text1.BackColor = &H80FF&
End If
If Form2.Label1.Caption = "Acum schimbati culoarea caracterelor" Then
Form2.Text1.ForeColor = &H80FF&
End If
End Sub
Private Sub Command5_Click()
If Form2.Label1.Caption = "Acum schimbati culoarea pentru fundal" Then
Form2.Text1.BackColor = &HFFFF&
End If
If Form2.Label1.Caption = "Acum schimbati culoarea caracterelor" Then
Form2.Text1.ForeColor = &HFFFF&
End If
End Sub
Private Sub Command6_Click()
If Form2.Label1.Caption = "Acum schimbati culoarea pentru fundal" Then
Form2.Text1.BackColor = &H8000&
End If
If Form2.Label1.Caption = "Acum schimbati culoarea caracterelor" Then
Form2.Text1.ForeColor = &H8000&
End If
End Sub
Private Sub Command7_Click()
If Form2.Label1.Caption = "Acum schimbati culoarea pentru fundal" Then
Form2.Text1.BackColor = &HC00000
End If
If Form2.Label1.Caption = "Acum schimbati culoarea caracterelor" Then
Form2.Text1.ForeColor = &HC00000
End If
End Sub
Private Sub Command8_Click()
If Form2.Label1.Caption = "Acum schimbati culoarea pentru fundal" Then
Form2.Text1.BackColor = &H800000
End If
If Form2.Label1.Caption = "Acum schimbati culoarea caracterelor" Then
Form2.Text1.ForeColor = &H800000
End If
End Sub
Private Sub Command9_Click()
If Form2.Label1.Caption = "Acum schimbati culoarea pentru fundal" Then
Form2.Text1.BackColor = &H800080
End If
If Form2.Label1.Caption = "Acum schimbati culoarea caracterelor" Then
Form2.Text1.ForeColor = &H800080
End If
End Sub

Visual Basic _ Aplicatia 7

Aplicatia 7
Sa se construiasca o aplicatie VB.NET tip windows pentru calculul valorii si a valorii totale.
Date cunoscute: cantitate, pret. Se va calcula: valoarea. Nr Crt va fi incrementat automat.
Formule de calcul: Valoare = cantitate * pret
Cerinte: - datele se introduc in casete de dialog (folosind functia InputBox);
- rezultatele se afiseaza in casete de text.

Dim nc As Integer
Dim tval As Double

Private Sub Button1_Click() Handles Button1.Click
Dim cant As Integer
Dim pret As Integer
Dim valoare As Double
Dim r As String = "da"
While UCase(r) = "DA"
nc += 1
cant = InputBox("precizati cantitatea")
pret = InputBox("precizati pretul")
valoare = cant * pret
TextBox1.Text = TextBox1.Text + CStr(nc) + Chr(13) + Chr(10)
TextBox2.Text = TextBox2.Text + CStr(cant) + Chr(13) + Chr(10)
TextBox3.Text = TextBox3.Text + CStr(pret) + Chr(13) + Chr(10)
TextBox4.Text = TextBox4.Text + CStr(valoare) + Chr(13) + Chr(10)
tval += valoare
r = InputBox("Continuati?")
End While
End Sub

Private Sub Button2_Click() Handles Button2.Click
TextBox5.Text = CStr(tval)
End Sub

Private Sub Button3_Click() Handles Button3.Click
End
End Sub