FoxClub Forums > Visual Foxpro, Foxpro for DOS > Foxclub на _screen VFP

• Войти

Foxclub на _screen VFP - Работаем и читаем
JS Автор Сообщений: 12264 Откуда: Эстония Дата регистрации: 04.09.2000	JS 27.06.05 12:11:47 Перемещено из форума Флейм Скопировать, запустить и работать дальше не отрываясь от полезного просмотра новостей фокс-клуба. Код от Calvin Hsia (один из лекторов пражского девкона) P.S. Для девятки можете изменить ADD OBJECT txtURL as textbox WITH width=400,value="www.foxclub.ru" на ADD OBJECT txtURL as textbox WITH width=400,value="www.foxclub.ru",autocomplete=3 PUBLIC ox ox=NEWOBJECT("myformx") BINDEVENT(_screen,"resize",ox,"resize") ox.show DEFINE CLASS myformx as Form ADD OBJECT txtURL as textbox WITH width=400,value="www.foxclub.ru" ADD OBJECT cmdRefresh as commandbutton WITH caption="\<Refresh",left=400,height=20 ADD OBJECT cmdBack as commandbutton WITH caption="\<Back",left=500,height=20 ADD OBJECT cmdForward as commandbutton WITH caption="\<Forward",left=600,height=20 ADD OBJECT oweb as cweb WITH top=30 width=800 height=800 alwaysonbottom=.t. allowoutput=.f. titlebar=0 PROCEDURE init this.oweb.width=thisform.Width thisform.resize this.oweb.height=thisform.height-thisform.txtURL.height-2 thisform.txtURL.valid PROCEDURE resize thisform.Width=_screen.Width thisform.Height=_screen.height this.oweb.top=30 this.oweb.height=thisform.Height-100 this.oweb.width=thisform.width-thisform.left PROCEDURE txtURL.valid thisform.oweb.navigate(this.value) PROCEDURE cmdRefresh.click thisform.oweb.refresh PROCEDURE cmdBack.click try thisform.oweb.goback() CATCH endtry PROCEDURE cmdForward.click try thisform.oweb.goForward() CATCH endtry ENDDEFINE DEFINE CLASS cweb as olecontrol oleclass="shell.explorer.2" PROCEDURE refresh nodefault ENDDEFINE Отредактировано (27.06.05 14:17) ------------------ Knowledge is better than ignorance! Website: juri.foxhelp.eu

Foxclub на _screen VFP - Работаем и читаем

JS
Автор

Сообщений: 12264
Откуда: Эстония
Дата регистрации: 04.09.2000

27.06.05 12:11:47

Перемещено из форума Флейм

Скопировать, запустить и работать дальше не отрываясь от полезного просмотра новостей фокс-клуба.
Код от Calvin Hsia (один из лекторов пражского девкона)

P.S. Для девятки можете изменить


ADD OBJECT txtURL as textbox WITH width=400,value="www.foxclub.ru"

на


ADD OBJECT txtURL as textbox WITH width=400,value="www.foxclub.ru",autocomplete=3


PUBLIC ox
ox=NEWOBJECT("myformx")
BINDEVENT(_screen,"resize",ox,"resize")
ox.show


DEFINE CLASS myformx as Form
      ADD OBJECT txtURL as textbox WITH width=400,value="www.foxclub.ru"
      ADD OBJECT cmdRefresh as commandbutton WITH caption="\<Refresh",left=400,height=20
      ADD OBJECT cmdBack as commandbutton WITH caption="\<Back",left=500,height=20
      ADD OBJECT cmdForward as commandbutton WITH caption="\<Forward",left=600,height=20

      ADD OBJECT oweb as cweb WITH top=30
      width=800
      height=800
      alwaysonbottom=.t.
      allowoutput=.f.
      titlebar=0

      PROCEDURE init
            this.oweb.width=thisform.Width
            thisform.resize
            this.oweb.height=thisform.height-thisform.txtURL.height-2
            thisform.txtURL.valid

      PROCEDURE resize
            thisform.Width=_screen.Width
            thisform.Height=_screen.height
            this.oweb.top=30
            this.oweb.height=thisform.Height-100
            this.oweb.width=thisform.width-thisform.left

      PROCEDURE txtURL.valid
            thisform.oweb.navigate(this.value)

      PROCEDURE cmdRefresh.click
            thisform.oweb.refresh

      PROCEDURE cmdBack.click
            try
                  thisform.oweb.goback()
            CATCH
            endtry

      PROCEDURE cmdForward.click
            try
                  thisform.oweb.goForward()
            CATCH
            endtry
ENDDEFINE

DEFINE CLASS cweb as olecontrol
      oleclass="shell.explorer.2"
      PROCEDURE refresh
            nodefault
ENDDEFINE

Отредактировано (27.06.05 14:17)

------------------
Knowledge is better than ignorance!
Website: juri.foxhelp.eu

Re: Foxclub на _screen VFP - Работаем и читаем
JS Автор Сообщений: 12264 Откуда: Эстония Дата регистрации: 04.09.2000	JS 27.06.05 12:16:04 В определение класса добавьте ADD OBJECT cmdQuit as commandbutton WITH caption="\<Quit",left=700,height=20 и PROCEDURE cmdQuit.click thisform.Release Отредактировано (27.06.05 14:35) ------------------ Knowledge is better than ignorance! Website: juri.foxhelp.eu

Re: Foxclub на _screen VFP - Работаем и читаем
JS Автор Сообщений: 12264 Откуда: Эстония Дата регистрации: 04.09.2000	JS 27.06.05 12:38:34 Желательно поиметь AutoComplete для всех версий foxpro - используем объект MSMask.MaskEdBox ------------------ Knowledge is better than ignorance! Website: juri.foxhelp.eu

Re: Foxclub на _screen VFP - Работаем и читаем
piva Сообщений: 18655 Откуда: Курган Дата регистрации: 24.03.2004	piva 27.06.05 12:45:02 Прикольно - прямо из фокса и пишу ответ ------------------ Часто бывает так, что есть над чем задуматься, а нечем.

Re: Foxclub на _screen VFP - Работаем и читаем
JS Автор Сообщений: 12264 Откуда: Эстония Дата регистрации: 04.09.2000	JS 27.06.05 12:56:23 Вариант с использованием MSMask.MaskEdBox - возможность AutoComplete в поле адреса PUBLIC ox ox=NEWOBJECT("myformx") BINDEVENT(_screen,"resize",ox,"resize") ox.show DEFINE CLASS myformx as Form ADD OBJECT txtURL as UrlTextbox with width=400 ADD OBJECT cmdRefresh as commandbutton WITH caption="\<Refresh",left=400,height=20 ADD OBJECT cmdBack as commandbutton WITH caption="\<Back",left=500,height=20 ADD OBJECT cmdForward as commandbutton WITH caption="\<Forward",left=600,height=20 ADD OBJECT cmdQuit as commandbutton WITH caption="\<Quit",left=700,height=20 ADD OBJECT oweb as cweb WITH top=30 width=800 height=800 alwaysonbottom=.t. allowoutput=.f. titlebar=0 PROCEDURE init this.oweb.width=thisform.Width thisform.resize this.oweb.height=thisform.height-thisform.txtURL.height-2 thisform.txtURL.valid PROCEDURE resize thisform.Width=_screen.Width thisform.Height=_screen.height this.oweb.top=30 this.oweb.width=thisform.width-thisform.oweb.left this.oweb.height=thisform.Height-thisform.oweb.top ! this.oweb.height=thisform.Height-100 ! this.oweb.width=thisform.width-thisform.left ! PROCEDURE txtURL.valid ! thisform.oweb.navigate(this.value) PROCEDURE cmdRefresh.click thisform.oweb.refresh PROCEDURE cmdBack.click try thisform.oweb.goback() CATCH endtry PROCEDURE cmdForward.click try thisform.oweb.goForward() CATCH endtry PROCEDURE cmdQuit.click thisform.Release ENDDEFINE DEFINE CLASS UrlTextBox AS olecontrol OleClass = "MSMask.MaskEdBox" TextValue = "www.foxclub.ru" nLastKey = 0 PROCEDURE Init This.Object.Text = This.TextValue DECLARE INTEGER SHAutoComplete IN Shlwapi.dll ; INTEGER hwndEdit, INTEGER dwFlags =ShAutoComplete( This.hWnd, 0x4 ) PROCEDURE LostFocus() This.Valid() PROCEDURE Valid thisform.oweb.navigate(this.TextValue) RETURN .T. ENDDEFINE DEFINE CLASS cweb as olecontrol oleclass="shell.explorer.2" PROCEDURE refresh nodefault ENDDEFINE Отредактировано (27.06.05 15:19) ------------------ Knowledge is better than ignorance! Website: juri.foxhelp.eu

Re: Foxclub на _screen VFP - Работаем и читаем

JS
Автор

Сообщений: 12264
Откуда: Эстония
Дата регистрации: 04.09.2000

27.06.05 12:56:23

Вариант с использованием MSMask.MaskEdBox - возможность AutoComplete в поле адреса


PUBLIC ox
ox=NEWOBJECT("myformx")
BINDEVENT(_screen,"resize",ox,"resize")
ox.show


DEFINE CLASS myformx as Form
      ADD OBJECT txtURL as UrlTextbox with width=400
      ADD OBJECT cmdRefresh as commandbutton WITH caption="\<Refresh",left=400,height=20
      ADD OBJECT cmdBack as commandbutton WITH caption="\<Back",left=500,height=20
      ADD OBJECT cmdForward as commandbutton WITH caption="\<Forward",left=600,height=20
      ADD OBJECT cmdQuit as commandbutton WITH caption="\<Quit",left=700,height=20
      ADD OBJECT oweb as cweb WITH top=30
      width=800
      height=800
      alwaysonbottom=.t.
      allowoutput=.f.
      titlebar=0

      PROCEDURE init
            this.oweb.width=thisform.Width
            thisform.resize
            this.oweb.height=thisform.height-thisform.txtURL.height-2
            thisform.txtURL.valid

      PROCEDURE resize
            thisform.Width=_screen.Width
            thisform.Height=_screen.height
            this.oweb.top=30
            this.oweb.width=thisform.width-thisform.oweb.left 
            this.oweb.height=thisform.Height-thisform.oweb.top 
*!*               this.oweb.height=thisform.Height-100
*!*               this.oweb.width=thisform.width-thisform.left

*!*         PROCEDURE txtURL.valid

*!*               thisform.oweb.navigate(this.value)

      PROCEDURE cmdRefresh.click
            thisform.oweb.refresh

      PROCEDURE cmdBack.click
            try
               thisform.oweb.goback()
            CATCH
            endtry

      PROCEDURE cmdForward.click
            try
                  thisform.oweb.goForward()
            CATCH
            endtry

     PROCEDURE cmdQuit.click  
           thisform.Release

ENDDEFINE

DEFINE CLASS UrlTextBox AS olecontrol 
   OleClass = "MSMask.MaskEdBox" 
   TextValue = "www.foxclub.ru" 
   nLastKey = 0
   
   PROCEDURE Init 
      This.Object.Text = This.TextValue 
      DECLARE INTEGER SHAutoComplete IN Shlwapi.dll ; 
         INTEGER hwndEdit, INTEGER dwFlags 
      =ShAutoComplete( This.hWnd, 0x4 ) 

   PROCEDURE LostFocus() 
      This.Valid() 

   PROCEDURE Valid 
      thisform.oweb.navigate(this.TextValue)
      RETURN .T. 
ENDDEFINE 

DEFINE CLASS cweb as olecontrol
      oleclass="shell.explorer.2"
      PROCEDURE refresh
            nodefault
ENDDEFINE

Отредактировано (27.06.05 15:19)

------------------
Knowledge is better than ignorance!
Website: juri.foxhelp.eu

Re: Foxclub на _screen VFP - Работаем и читаем
borman Сообщений: 11046 Откуда: Москва Дата регистрации: 29.07.2004	borman 27.06.05 14:28:02 Проста кайф!Юр, вот эта спасиб так спасиб! ------------------ Многие вещи нам непонятны не потому, что наши понятия слабы, а потому, что сии вещи не входят в круг наших понятий.

Re: Foxclub на _screen VFP - Работаем и читаем
borman Сообщений: 11046 Откуда: Москва Дата регистрации: 29.07.2004	borman 27.06.05 14:36:17 все!Брузера фсе нафик! ------------------ Многие вещи нам непонятны не потому, что наши понятия слабы, а потому, что сии вещи не входят в круг наших понятий.

Re: Foxclub на _screen VFP - Работаем и читаем
piva Сообщений: 18655 Откуда: Курган Дата регистрации: 24.03.2004	piva 28.06.05 04:48:54 2borman Юра, сменил свою любимую оперу на движок IE ------------------ Часто бывает так, что есть над чем задуматься, а нечем.

Re: Foxclub на _screen VFP - Работаем и читаем
borman Сообщений: 11046 Откуда: Москва Дата регистрации: 29.07.2004	borman 28.06.05 06:51:29 Пив, здарофф, я вже давно под нетскейпом......... да и разница то какая..... в принципе все одинаково...... ------------------ Многие вещи нам непонятны не потому, что наши понятия слабы, а потому, что сии вещи не входят в круг наших понятий.

Re: Foxclub на _screen VFP - Работаем и читаем

borman

Сообщений: 11046
Откуда: Москва
Дата регистрации: 29.07.2004

borman

28.06.05 06:51:29

Пив, здарофф, я вже давно под нетскейпом......... да и разница то какая..... в принципе все одинаково......

------------------
Многие вещи нам непонятны не потому, что наши понятия слабы, а потому, что сии вещи не входят в круг наших понятий.

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 21 (Гостей: 21)