Tworzymy własną pseudo-kontrolkę
Czasami się zdarza, że dla jednej małej kontroliki dodajesz do projektu OCX'a. Kiedy jest to np. RichTextBox, to nic się nie da zrobić, ale jeśli dodajesz np. ProgressBar, to można samemu zaprojekować taką zastępczą kontrolkę !!! Po co dodawać do projektu OCXa który zajmuje 2MB (internet nie jest tani) skoro można w kilka minut zaprojektować zastępczy Progress Bar z dwóch labli i nie trzeba będzie dołączać 2 megowego OCXa. Ma to inne zalety: czasami u niektóryc
h jest inna wersja OCX'a i program się nie uruchomi. Czasami są problemy z rejestracją OCXa. A dzięki naszej wyobraźni przyszły użytkownik programu zaoszczędzi na rachunku telefonicznym i na nerwach. No to zaczynamy:1) Tworzymy ProgressBar
Public Sub UstawProgressBar(LabelTło As Label, NiebieskiLabel As Label, IleProcent As Integer)
Dim Szer As Integer
Szer = Int(LabelTło.Width / 100)
Szer = Szer * IleProcent
'Czasami 100% wygląda jak 99, przy małych lablach
'Te linie zapobiegną temu
If IleProcent = 0 Then Szer = 0
If IleProcent = 100 Then Szer = LabelTło.Width
NiebieskiLabel.Width = Szer
End Sub
Kodu chyba nie muszę komentować. Jeśli czegoś nie rozumiesz, to zawsze możesz pobawić się załączonym przykładem.
2) Tworzymy ToolBar
Dobra. To było którtkie omówienie, co to jest tablica kontrolek. Jeśli chcemy zrobić toolbar, to robimy t
ablicę kontrolek buttonów. Najpierw ustawmy parametry 1 buttona, a później go skopiujmy do schowka. Na pierwszy ogień musimy mu nadać jakieś wymiary. Nie zapomnijmy ustawić parametru Caption na pusty ciąg. Teraz cechę Style zmieniamy na 1 (graphical). Kopiujemy buttony i wklejamy je. Teraz możemy wybrać jakieś obrazki (cecha picture). Jeśli buttony są obok siebie, to mamy ładny ToolBar !!! Musimy usunąć Focus, który psuje efekt. Więcej szczegółów znajdziesz w dołączonym programieTo tyle. Mam nadzieję, że zachęciłem was do tworzenia własnych pseudo-kontrolek. W załączonym
pliku są przykłady Toolabra i ProgressBara. Zachęcam do tworzenia własnych pseudo-kontrolek !!! najciekawsze będu tutaj opublikowane !!!Jelcyn