Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Graficzny przycisk
shatek




Typ: neutral
Postów: 6
Zarejestrowany: May 2005
Graficzny przycisk

Hi.

Chciałbym zrobić w swoim prościutkim programiku fajny graficzny przycisk używany zamiast buttona.
Byłoby super, gdyby przycisk ten (a w zasadzie napisik tylko) zmniejszał się po najechaniu na niego myszką i/lub naciśnięciu - po zwolnieniu chciałbym, aby wracał do swoich pierwotnych wymiarów.

Zacząłem coś kombinować z Picture'm. Jak nacisnę na obrazek, to dzieje się tak, jak powinno, ale nie do końca Program niby idzie dalej, ale nie wiem jak zrobić ten efekt zmniejszania się przycisku.

Czy ktoś wie, jak to zrobić?

Jestem początkujący w VB, także prosiłbym o jak najbardziej szczegółowy i prosty opis.

Pozdr,
Jakub


_____________________________________________
Pozdrawiam,
Jakub

-^-----------------------------------------------^-
skype: jakub_szatkowski
msn: 
yahoo: jakub_szatkowski
tlen: 
GG:    2790939
-^-----------------------------------------------^-

22-05-2005 11:12
Pokaż profil shatek  Wyślij email do shatek        2790939
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Wstaw labelę:


Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.FontBold = True
End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.FontBold = False
End Sub

Ale pewnie nie o to ci chodziło?


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

22-05-2005 11:25
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
shatek




Typ: neutral
Postów: 6
Zarejestrowany: May 2005

No, wielkie dzięki. To właśnie mniej więcej o to chodziło, ale...

Czy jest jeszcze jakaś możliwość zrobienia, żeby ten napis się pogrubiał po najechaniu na niego wskaźnikiem myszki, bez naciskania LMB?


_____________________________________________
Pozdrawiam,
Jakub

-^-----------------------------------------------^-
skype: jakub_szatkowski
msn: 
yahoo: jakub_szatkowski
tlen: 
GG:    2790939
-^-----------------------------------------------^-

22-05-2005 11:36
Pokaż profil shatek  Wyślij email do shatek        2790939
HejHo




Typ: neutral
Postów: 66
Zarejestrowany: Apr 2003

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.FontBold = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.FontBold = False
End Sub

22-05-2005 12:03
Pokaż profil HejHo  Wyślij email do HejHo        6384729
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Też o tym myślałem, ale lepsze by było chyba zrobienie na Api. Bo jeżeli wstawisz więcej obiektów, to przykład HejHo już nie będzie działał. Jednak nie chce mi się pisać, tym bardziej, jeżeli to ci wystarczy. Ale jeżeli będziesz potrzebował przez api, to powiedz, napiszę.


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

22-05-2005 13:47
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1