Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Fore Color
Tamgo




Typ: neutral
Postów: 129
Zarejestrowany: Aug 2004
Fore Color

Nie wiem , może jestem ślepy. Wyraźnie nie widzę właściwości ForeColor dla buttonów na tablicy właściwości u siebie w programie ( v.6.0  Working Modell).  Co poprzestawiałem? Z góry dziękuję.

pozdrawiam Tamgo

[Post edytowany dnia 28-10-2004 22:37 przez Tamgo]

24-10-2004 21:27
Pokaż profil Tamgo  Wyślij email do Tamgo        4484571
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

Bo Commandbuttony nie mają tej właściwości. Ale jest na to pewien trik. Wystarczy zastosować CheckBoxa i dać mu właściwość Style na 1 - graphical. Następnie w kodzie tej kontrolki wpisujesz coś w tym stylu:

Private Sub Check1_Click()
    If Check1.Value = 0 Then Exit Sub
    Check1.Value = 0

    '... Tutaj twoje polecenia ...

End Sub


Po tym masz już klona commandbuttona tyle że z właściwością ForeColor.


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

24-10-2004 21:36
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
Tamgo




Typ: neutral
Postów: 129
Zarejestrowany: Aug 2004
znowu to ForeColor

Tego sie właśnie spodziewałem, czy wobec tego w kursie "Teoria" w VB4All nie trzeba czegoś  poprawić? Chyba, że słowo "korzysta" nie jest równoznaczne, że taką posiada, chociaż ja właśnie tak to interpretuję.
To kopia opisu właściwości ForeColor (jej końcowa część) z tego kursu
Lista obiektów wykorzystujących właściwość ForeColor:
Animation
CheckBox
ComboBox
CommandButton
Data
DBCombo
DBGird
DBList
DirListBox
DriveListBox
FileListBox
Form
Frame
Label
ListBox
MDIForm
OLEContainer
OptionButton
PictureBox
Printer
PropertyPage
Shape
SSTab
TextBox
UserControl
UserDocument

dzięki Tamgo

24-10-2004 22:10
Pokaż profil Tamgo  Wyślij email do Tamgo        4484571
Tamgo




Typ: neutral
Postów: 129
Zarejestrowany: Aug 2004
Chudy tam jest błąd

Ta sztuczka z CheckBoxem jest rzeczywiscie sprytna ale w linii kodu, co podałeś jest błąd. Klon nie klika jak Button, tylko zachowuje się jak CheckBox, czyli down - up - down itd. Wpisałem tam zamiast:

Private Sub Check1_Click()
    If Check1.Value = 0 Then Exit Sub
    Check1.Value = 0

    '... Tutaj twoje polecenia ...

End Sub
......................................

Private Sub Check1_Click()
    Check1.Value = False
    '... Tutaj twoje polecenia ...

End Sub   

i zaczęło działać.

28-10-2004 00:03
Pokaż profil Tamgo  Wyślij email do Tamgo        4484571
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

Hmm.. U mnie po wpisaniu np.:
Private Sub Check1_Click()
    Check1.Value = False
    MsgBox "Test"

End Sub


Wywołuje 2 msgboxy, a po wpisaniu mojego kodu fałszywy button zachowuje się jak należy.


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

28-10-2004 20:18
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
Tamgo




Typ: neutral
Postów: 129
Zarejestrowany: Aug 2004
No....tak

za szybko sprawdziłem, może coś źle wpisałem daję słowo,tak działał jak opisałem. Teraz na spokojnie przećwiczyłem i  nie bedę płakał nad rozlanym mlekiem, masz rację więc....oddaję honor.

Tamgo

[Post edytowany dnia 28-10-2004 22:40 przez Tamgo]

28-10-2004 22:36
Pokaż profil Tamgo  Wyślij email do Tamgo        4484571
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Wbiję ostatni gwóźdź do trumny przypuszczeń, że można ustawić kolor czcionki buttona. Tym gwoździem jest fakt, ze nawet programiści MS tworzący kalkulator nie potrafili tego zrobić i użyli bitmap.


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

29-10-2004 22:47
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Wszystkich odpowiedzi: 6 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1