1. Kako napraviti hyperlink na nekon buttonu ?
--------------------------------
Hyperlink ka cemu? Budi precizniji.
___________________________/
2. Preskacem.
___________________________/
3.Kako postaviti sat ?
3.1 Digitalni sat nije problem.
Potrebno ti je:
-Label1
Propreties:
Caption=""
-Timer1
Propreties:
Enabled=False
Interval=500
Code:
Private Sub Form_Load()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time$
End Sub
3.2 Analogni (onaj sa kazaljkama)
To je vec malo komplikovanije i zato ti preporucujem da se drzis digitalnog.
___________________________/
4. kako napraviti formu koja trazi pass prije ulaska ?
Ovo je veoma prosto.
Code:
Dim Sifra As String
Private Sub Form_Load()
Sifra = InputBox("Unesite sifru kako bi ste dobili dozvolu za rad.", "Potrebna sifra")
If Sifra <> "izmedju navodnika se upisuje sifra koju zelis" Then
MsgBox "Sifra koju ste uneli je pogresna. Program se iskljucuje.", , "Pogresna sifra"
End
End If
End Sub
To je sve,
pozdrav.