1. I have question regarding the InputBox function. I tried the one of the sample in
hmg.3.1.5/samples/controls\activex\ACTIVEX.1\demo1.prg : ( with adding msginfo( cAddress))
Code: Select all
/*
* HMG - Harbour Win32 GUI library Demo
*
* Copyright 2002-2008 Roberto Lopez <mail.box.hmg@gmail.com>
* http://www.hmgforum.com//" onclick="window.open(this.href);return false;
* Activex Sample: Inspired by Freewin Activex inplementation by
* Oscar Joel Lira Lira (http://sourceforge.net/projects/freewin).
*/
#include "hmg.ch"
FUNCTION Main()
DEFINE WINDOW Win1 ;
AT 0,0 ;
WIDTH 800 ;
HEIGHT 500 ;
TITLE 'HMG ActiveX Support Demo' ;
MAIN
DEFINE MAIN MENU
POPUP "Test"
MENUITEM "Navigate" ACTION TestNavigate()
END POPUP
END MENU
@ 10 , 50 ACTIVEX Test ;
WIDTH 700 ;
HEIGHT 400 ;
PROGID "shell.explorer.2"
END WINDOW
Center Window Win1
Activate Window Win1
RETURN NIL
*------------------------------------------------------------------------------*
Procedure TestNavigate()
*------------------------------------------------------------------------------*
Local oObject
Local cAddress := ''
* Look at other samples for alternatives
cAddress := InputBox ('Navigate:','Enter Address','http://www.hmgforum.com/')
If .Not. Empty ( cAddress )
Win1.Test.Object:Navigate(cAddress)
Else
MsgInfo( cAddress) && addition
EndIf
Return
4. Pls help and point out where I have done wrong
5. BTW, I wonder if this issue ever been posted, how can I search and look for it ?
Thks