Site feedback

StevenLow-0580 avatar image
0 Votes"
StevenLow-0580 suggested Reza-Ameri commented

Need URGENT Help on VFOX run in Windows 10

Dear sir/madam

I have no problem to run the following coding on Fox 2.5 in Windows 7 but not on VFOX 9, kindly advise why "QMARK2.bmp, Click your choice, Continue and Cancel" disappear before I make the selection.


PROCEDURE SELECT

PARAMETERS option
PRIVATE pshbutton, topwin

STORE 1 TO pshbutton
topwin = UPPER(ALLTRIM(WONTOP()))

IF ! EMPTY(topwin)
IF AT(" ", topwin) > 0
STORE LEFT(topwin, AT(" ", ;
ALLTRIM(topwin)) -1) TO topwin
ENDIF

HIDE WINDOW (topwin)
ENDIF

STORE 1 TO pshbutton
ACTIVATE SCREEN
DEFINE WINDOW bugbox ;
AT 0.000, 0.000 ;
SIZE 4.474,42.857 ;
FONT "Arial", 12 ;
FLOAT ;
TITLE m_wname ;
NOMINIMIZE ;
DOUBLE ;
COLOR R++/*W

MOVE WINDOW bugbox CENTER

ACTIVATE WINDOW bugbox noshow
@ 0.632,1.714 SAY "QMARK2.bmp" BITMAP ;
SIZE 1.684,8.571 ;
STYLE "T"
@ 0.947,12.571 SAY "Click your choice" ;
FONT "Arial", 12 ;
STYLE "BT"
@ 2.895,9.286 GET pshbutton ;
PICTURE "@*HT \<Continue;\<Cancel" ;
SIZE 1.769,13.667,1.333 ;
DEFAULT 1 ;
FONT "MS Sans Serif", 8 ;
STYLE "B"

SHOW WINDOW bugbox

READ

RELEASE WINDOW bugbox

IF pshbutton = 1

option = "Y"


ELSE

option = "N"

ENDIF (pshbutton = 1)

IF ! EMPTY(topwin)
ACTIVATE WINDOW (topwin)
ENDIF

SET COLOR TO N*/BG++,GR*+++/R

RETURN option
* End procedure SELECT




Thank you very much
Steven

windows-10-application-compatibility
5 |1600 characters needed characters left characters exceeded

Up to 10 attachments (including images) can be used with a maximum of 3.0 MiB each and 30.0 MiB total.

1 Solution

Reza-Ameri avatar image
0 Votes"
Reza-Ameri commented

Please post your question on the Windows 10 forum and this feedback portal is for the feedbacks related to the Microsoft Q&A issues.
For urgent issue, it is better to contact the Microsoft Support:
https://support.microsoft.com/

5 |1600 characters needed characters left characters exceeded

Up to 10 attachments (including images) can be used with a maximum of 3.0 MiB each and 30.0 MiB total.

Your Opinion Counts

Share your feedback, or help out by voting for other people's feedback.