[url=http://www.programfan.com/club/member.asp?userid=115178]梦江南[/url] 提供: [b]图像裁剪实例代码[/b] 


注:图像裁剪-运用拳击手提供的 PCT_DLL.dll

[url=http://www.programfan.com/club/downfile.asp?fileid=121]http://www.programfan.com/club/downfile.asp?fileid=121[/url]

[color=FF0000][size=3]vfp 最简单靠的，FIASH 文件播放器代码：[/size][/color]
用蓝色编码建个《 FIASH播放器.PRG 》,然后运行。

[color=0000FF]PUBLIC oform1,swfwJName
swfwJName="c:\FIASH文件.swf" [color=000000]&& 改成你要运行的FIASH文件[/color]
oform1=NEWOBJECT("form1")
oform1.Show
DEFINE CLASS form1 AS form
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
ADD OBJECT olecontrol1 AS oleflash WITH ;
Top = 24,Left = 12,Height = 192,Width = 312, ;
Name = "Ol1"
PROCEDURE Ol1.Init
this.movie = swfwJName
this.play()
ENDPROC
ENDDEFINE
Define class oleflash as OLECONTROL
OleClass="ShockwaveFlash.ShockwaveFlash"
EndDefine[/color]

chibl的小东东不错,未经chibl批准,在其代码中添了点东西如下:
-------------------------------------------------------------
PUBLIC oform1,swfwJName
oform1=NEWOBJECT("form1")
oform1.Show
DEFINE CLASS form1 AS form
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
width = 636
height = 260
ADD OBJECT olecontrol1 AS oleflash WITH ;
Top = 24,Left = 12,Height = 192,Width = 612,Name = "Ol1"
PROCEDURE Ol1.Init
this.movie = swfwJName
this.play()
ENDPROC
ADD OBJECT command1 as commandbutton WITH ;
top = 228,left = 422,height = 22,width = 98,caption = '重播FLASH动画'
PROCEDURE command1.click
  this.parent.Ol1.Init  
ENDPROC

ADD OBJECT command2 as commandbutton WITH ;
top = 228,left = 526,height = 22,width = 98,caption = '打开FLASH文件'
PROCEDURE command2.click
swfwJName=GETFILE('swf')
IF EMPTY(swfwjName)
  RETURN
ELSE
  this.parent.Ol1.Init  
ENDIF
ENDPROC
ENDDEFINE

Define class oleflash as OLECONTROL
OleClass="ShockwaveFlash.ShockwaveFlash"
ENDDEFINE

21） 商业管理系统   下载 
  22） 医药管理系统   下载 
  23） 人事管理系统   下载 
  24） 库存管理系统   下载 
  25） 汽配管理系统   下载 
  26） 门市销售管理系统   下载 
  27） 客户管理系统   下载 
  28） 酒店管理软件   下载 
  29） 服装管理系统   下载 
  30） 费用管理系统   下载 
  31） 车辆管理系统   下载 
  32） 田径运动会管理系统   下载 
  33） 图书管理系统   下载 
  34） 物业管理系统   下载 
  35） 学生管理系统   下载 
  36） 外贸管理系统   下载 

下载地址:http://www.vfper.com/source.htm

邮政汇款附言拆分代码,里面涉及到全角半角上拆分的解决方法。
附言最多以30汉字为限，拆分成三段，每段10个汉字

SET TALK OFF
SET STATUS BAR ON
clear
N=0
A=SPACE(60)

@ 18,2 SAY '请输入附言:' GET A
READ
a=a+SPACE(3)

B=SUBSTRC(A,1,10)
DO while LEN(B)<20
 b=b+SUBSTRC(A,LENC(B)+1,1)
 ENDDO 

C=SUBSTRC(A,LENC(B)+1,10)
DO while LEN(c)<20
 c=c+SUBSTRC(A,LENC(B+C)+1,1)
 ENDDO 

D=SUBSTRC(A,LENC(B+C)+1,10)
 DO while LEN(d)<20
 d=d+SUBSTRC(A,LENC(B+C)+LENC(d)+1,1)
 N=N+1
 IF N>30 THEN
  RETU
  ENDIF
 ENDDO 

@ 20,18 SAY '自动分解: '
@ 21,16 SAY '--------------------------------------------------------------------'
@ 22,18 SAY '第１行'+PADL(STR(LEN(RTRIM(B)),2),3)+'个字符：'+B+' '
@ 23,18 SAY '第２行'+PADL(STR(LEN(RTRIM(C)),2),3)+'个字符：'+c+' '
@ 24,18 SAY '第３行'+PADL(STR(LEN(RTRIM(D)),2),3)+'个字符：'+d+' '
@ 25,16 say '--------------------------------------------------------------------'
@ 26,16 say '共输入了 '+STR(LEN(RTRIM(A)),2)+'个字符' 

ZS=LEN(RTRIM(A))
    
    IF ZS>=12    
        FEE=((LEN(RTRIM(A)))-12)*0.05
    ELSE
        FEE=0.00
    ENDIF


@ 30,20 say '    '+STR((ZS/2),4,1)+'个汉字'
@ 30,38 SAY '附言费用:' 

@ 30,COL() SAY '&yen;'+LTRIM(STR(FEE,10,2))
@ 30,col() say '元'

RETURN
SET TALK ON

谢谢

楼主的提议不错，好东西收藏了！

你好~~能帮个忙吗？我没学过程序编制，老师给我出了好多考试的题目叫我们编程
一窍不通能帮帮忙吗？

好提议，好提议

3楼的程序是做什么的呀？