demo.prg

MSComm控件资料,Visual Basic 6.0(以下简称VB) 是一种功能强大、简单易学的程序设计语言。它不但保留了原先Basic语言的全部功能

*  Program...........: Demo.PRG
*  Version...........: 1.0
*  Author............: Steven M. Black
*} Project...........: INTL for Visual FoxPro
*  Created...........: 04/15/97
*) Description.......: MsgSvc() Demo
*)                   : Shows a variety of ways MsgSvc() can be called
*  Calling Samples...: DO Demo
*  Parameter List....:
*  Returns...........: Nothing
*  Major change list.: 
*  Notes.............: MsgSvc() Assumes VFP 5.
*******************************************************************************
IF MSGSVC("Welcome")= "Cancel"
  RETURN
ENDIF

IF MSGSVC("Explain")= "Cancel"
  RETURN
ENDIF

****************************************
*-- Tip of the day
IF MsgSvc("See Tip?")
  MsgSvc( "Tip")
ENDIF
****************************************

****************************************
*-- Quick thermometer
X=MSGSVC(20, "This is a thermometer")
INKEY(2)
x.SetText("Progress!")
x.SetPercent( 60)
Inkey(2)
x.SetText("Almost Done!")
x.SetPercent( 99)
Inkey(2)
*-- This dismisses the thermometer
x.setpercent( 100)
msgsvc("Error Example")
****************************************

****************************************
*-- Custom Buttons
msgsvc("custom buttons")
****************************************

****************************************
*-- Sample "Working" dialog
msgsvc("working")
inkey(2)
*-- This releases the working dialog
msgsvc()
****************************************

****************************************
*-- Animated icon
x=msgsvc("Animated", 20)
 INKEY(2)
 x.SetText("Progress!")
 x.SetPercent( 60)
 Inkey(2)
 x.SetText("Almost Done!")
 x.SetPercent( 99)
 Inkey(2)
 *-- This dismisses the thermometer
 x.setpercent( 100)
***************************************** 

***************************************
* Los Endos
ACTI SCREEN
CLEAR
lnOldMemo=SET("MEMO")
SET MEMOWIDTH TO 40
?msgsvc("end of demo")
SET MEMOWIDTH TO lnOldMemo