Dugmad
Zaključano
Zakačeno
Pogledaj :
https://www.elitesecurity.org/t5670
a, ako je komplikovano onda nadji neki ActiveX koji zavrsava ovaj posao. Pitaj Krstu.
pozdrav
https://www.elitesecurity.org/t5670
a, ako je komplikovano onda nadji neki ActiveX koji zavrsava ovaj posao. Pitaj Krstu.
pozdrav
Potpis
fire, walk with me
OK.Hvala!
Mozda ti ovaj program pomogne, postavis kontrolu na dialog napises kod koji ucitava skin i promenice ti izgled celog programa.. ima raznih efekata.. razlikuju se od skina do skina. Ovo je adresa, u neregistrovanoj verziji izbacuje poruku pre startovanja programa.
http://www.softshape.com/download/activeskin.zip
http://www.softshape.com/download/activeskin.zip
Potpis
'This is a unique time in our history, in the history of any civilization, it's the moment of the acquisition of technology, that's the moment when contact becomes possible'
I ja sam imao sa tim problema svi su mi nesto objasnjavali i nista dok sam nisam skontao...
Ako je to sto ti trazis a ja mislim onda ovako:
Ja sam na ovom primjeru radio sa Labelama a ti mozes postaviti comandnu dugmad ali onda mjenjaj i u kodu odnosno na formi klikni na svako komandno dugme pa dopisi ovaj kod ili prekopiraj ali gdje gd se spominje Labela kod tebe treba da se spominje Command ....
Kod ide ovako :
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.ForeColor = vbBlue
Label5.ForeColor = vbBlue
Label6.ForeColor = vbBlue
End Sub
Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.ForeColor = vbRed
Label5.ForeColor = vbBlue
Label6.ForeColor = vbBlue
End Sub
Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.ForeColor = vbBlue
Label5.ForeColor = vbRed
Label6.ForeColor = vbBlue
End Sub
Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.ForeColor = vbBlue
Label5.ForeColor = vbBlue
Label6.ForeColor = vbRed
End Sub
I to je to ako bude problema javise !!!
Ako je to sto ti trazis a ja mislim onda ovako:
Ja sam na ovom primjeru radio sa Labelama a ti mozes postaviti comandnu dugmad ali onda mjenjaj i u kodu odnosno na formi klikni na svako komandno dugme pa dopisi ovaj kod ili prekopiraj ali gdje gd se spominje Labela kod tebe treba da se spominje Command ....
Kod ide ovako :
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.ForeColor = vbBlue
Label5.ForeColor = vbBlue
Label6.ForeColor = vbBlue
End Sub
Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.ForeColor = vbRed
Label5.ForeColor = vbBlue
Label6.ForeColor = vbBlue
End Sub
Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.ForeColor = vbBlue
Label5.ForeColor = vbRed
Label6.ForeColor = vbBlue
End Sub
Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.ForeColor = vbBlue
Label5.ForeColor = vbBlue
Label6.ForeColor = vbRed
End Sub
I to je to ako bude problema javise !!!