Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: głupio mrugający ScrollBar
Usercontrol
mr. Tom



Typ: neutral
Postów: 191
Zarejestrowany: Oct 2003
głupio mrugający ScrollBar

Dlaczego scrollbar z palety narzędzi mruga gdy dostanie fokusa? Jak to zlikwidować?

24-01-2005 18:05
Pokaż profil Usercontrol  Wyślij email do Usercontrol   Odwiedź stronę Usercontrol       1518548
Viper87



Typ: neutral
Postów: 490
Zarejestrowany: Oct 2002

Ech... Tak po prostu jestw VB. Aby to ominąć wstaw taki kod:

Private Sub scroll1_GotFocus()
frame1.SetFocus
End Sub

Powyzszy kod w momencie otrzymania fokusu przez scrolla przekazuje go formatce. Proste i skuteczne .


_____________________________________________
Viper

"Savoir c`est prevoir, prevoir c`est prevenir". 
(Wiedzieć to przewidzieć, przewidzieć to zapobiegać) 


24-01-2005 18:12
Pokaż profil Viper87  Wyślij email do Viper87   Odwiedź stronę Viper87  
Usercontrol
mr. Tom



Typ: neutral
Postów: 191
Zarejestrowany: Oct 2003

ehh...kontrolka frame nie ma takiej metody...No ale dobra, użyłem już wcześniej przycisku, ale nie o to chodzi. Chcę, aby fokus powracał na kontrolkę, która go miała przed kliknięciem w kontrolkę Scrollbar

24-01-2005 18:37
Pokaż profil Usercontrol  Wyślij email do Usercontrol   Odwiedź stronę Usercontrol       1518548
bisiek




Typ: neutral
Postów: 487
Zarejestrowany: Jul 2003

Pokombinuj z czymś takim:

Dim obj As Object
Private Sub Command3_Click()
Set obj = Command3
End Sub

Private Sub Command2_Click()
Set obj = Command2
End Sub

Private Sub Command1_Click()
Set obj = Command1
End Sub

Private Sub HScroll1_GotFocus()
obj.SetFocus
End Sub

może da się to zrobić bez wstawiania w każdej konstrolce, nie wiem.


_____________________________________________
www.mob.abc.pl - moja strona o VB

24-01-2005 18:42
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
Viper87



Typ: neutral
Postów: 490
Zarejestrowany: Oct 2002

Ech... Bisiek mnie uprzedził.

Tak, masz rację, chodziło mi o Frame, a nie frame. To wszystko przez to, że jestem przeziębiony...


_____________________________________________
Viper

"Savoir c`est prevoir, prevoir c`est prevenir". 
(Wiedzieć to przewidzieć, przewidzieć to zapobiegać) 


24-01-2005 19:11
Pokaż profil Viper87  Wyślij email do Viper87   Odwiedź stronę Viper87  
Chudy
[TLHW]Wiktor



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

Może coś takiego:
Dim tmpPic As Object
Private Sub Form_Load()
    Set tmpPic = Controls.Add("VB.PictureBox", "tmpPic", Me)
    tmpPic.Left = -tmpPic.Width
    tmpPic.Visible = True
End Sub


Private Sub VScroll1_GotFocus()
    tmpPic.SetFocus
End Sub


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

24-01-2005 19:15
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
Usercontrol
mr. Tom



Typ: neutral
Postów: 191
Zarejestrowany: Oct 2003

mam tych kontrolek chyba z 200 Robienie czegoś takiego, co zaproponował bisiek zajęłoby dużo czasu...

24-01-2005 19:35
Pokaż profil Usercontrol  Wyślij email do Usercontrol   Odwiedź stronę Usercontrol       1518548
Wszystkich odpowiedzi: 6 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1