Jak programová posouvání Visual FoxPro tvar

Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.

Projděte si také anglickou verzi článku:190818
Tento článek byl archivován. Je nabízen v takovém stavu, v jakém je, a nebude již nadále aktualizován.
Souhrn
Na rozdíl od ovládacího prvku mřížky, která má metodu posuvníku, může být volána programově procházejte záznamy mřížky formulář má například metodu.

Musíte použít metodu SetViewPort programově posouvání Visual FoxPro 6.0 formuláře.
Další informace
Následující ukázkový formulář posune programově pomocí Page Up a PAGE DOWN klíče:
   Sample Code   -----------				
   PUBLIC oform   oform=NewObject("ScrollForm")   oform.show   DEFINE CLASS ScrollForm AS form      Top = 0      Left = 0      Height = 101      Width = 168      ScrollBars = 2      Caption = "Use PgUp/PgDwn to Scroll Form"      vertscrollpos = 0      Name = "Form1"      ADD OBJECT shape1 AS shape WITH ;         Top = 12, ;         Left = 12, ;         Height = 421, ;         Width = 553, ;         Name = "Shape1"      ADD OBJECT command1 AS commandbutton WITH ;         Top = 24, ;         Left = 36, ;         Height = 27, ;         Width = 84, ;         Caption = "Close", ;         Name = "Command1"      PROCEDURE KeyPress         LPARAMETERS nKeyCode, nShiftAltCtrl         IF nKeyCode=3            Thisform.vertscrollpos=Thisform.vertscrollpos+Thisform.height            Thisform.SetViewPort(0,Thisform.vertscrollpos)            Thisform.Refresh         ENDIF         IF nKeyCode=18            Thisform.vertscrollpos=Thisform.vertscrollpos-thisform.height            Thisform.SetViewPort(0,Thisform.vertscrollpos)            Thisform.Refresh         ENDIF      ENDPROC      PROCEDURE command1.Click         thisform.release      ENDPROC   ENDDEFINE				
kbOOP kbVFp600

Upozornění: Tento článek je přeložený automaticky

Vlastnosti

ID článku: 190818 - Poslední kontrola: 12/05/2015 09:04:07 - Revize: 1.1

Microsoft Visual FoxPro 6.0 Professional Edition

  • kbnosurvey kbarchive kbmt kbcode kbhowto KB190818 KbMtcs
Váš názor