鹰之翼

    摘要：*     程序...........:   Copy2xls.prg  
*     作者............:   Daniel   Gramunt  
*     项目...........:   common  
*     创建...........:   11.10.2000     17:25:06  
*)   说明.......:   替换   VFP   自己的   COPY   TO   TYPE   XL5   命令.  
*)                           &nb    （全文共16272字）——点击此处阅读全文

    摘要：关于VFP9所需运行库的说明 出处 http://www.softser.com/blog/article.asp?id=136    （全文共1836字）——点击此处阅读全文

PUBLIC goForm
goForm = CREATEOBJECT("Pentacle")
goForm.Show()

DEFINE CLASS Pentacle AS FORM

    Caption = "Pentacle: 双击保存"
    Width = 340
    Height = 340
    AllowOutput = .F.
    TempFile = ""
  
    PROCEDURE Init
        = SYS(602, 0)
        SET CLASSLIB TO HOME() + "FFC\_GDIPLUS.VCX" ADDITIVE
    ENDPROC

    PROCEDURE Paint
        LOCAL loGraphics
        loGraphics = CREATEOBJECT("GpGraphics")
        loGraphics.CreateFromHWND(THIS.HWnd)
        THIS.DrawPentacle(loGraphics, 170, 140, 130, 0)
        THIS.DrawString(loGraphics, "红星闪闪放光彩", 0, 260, 320, 60)
    ENDPROC

    PROCEDURE DblClick
        LOCAL lcFileName
        lcFileName = PUTFILE("", "temp", "jpg")
        IF EMPTY(lcFileName) = .T.
            RETURN
        ENDIF
        THIS.SavePicture(lcFileName)
        IF FILE((THIS.TempFile)) = .T.
            DELETE FILE (THIS.TempFile)
        ENDIF
        THIS.Paint()
    ENDPROC
   
    PROCEDURE Destroy
        = SYS(602, 1)
    ENDPROC

    PROCEDURE DrawPentacle
        LPARAMETERS toGraphics, tnX, tnY, tnR, tnA
        LOCAL loPen, loBrush, loBrush2, lnR, laArray[11, 2], lnA, lnX, lnY, ;
        laPoints[3, 2]
        loPen = CREATEOBJECT("GpPen", CREATEOBJECT("GpColor", 255, 0, 0))
        loBrush = CREATEOBJECT("GpSolidBrush", CREATEOBJECT("GpColor", 255, 0, 0))
        loBrush2 = CREATEOBJECT("GpSolidBrush", ;
            CREATEOBJECT("GpColor", 255, 120, 120))
        tnA = tnA - 90
        lnR = SIN(DTOR(18))*tnR/SIN(DTOR(126))
        FOR i = 1 TO 5
            lnA = tnA + 72*i
            lnX = tnR*COS(DTOR(lnA)) + tnX
            lnY = tnR*SIN(DTOR(lnA)) + tnY
            laArray[i*2 - 1, 1] = lnX
            laArray[i*2 - 1, 2] = lnY
            lnA = tnA + 36 + 72*i
            lnX = lnR*COS(DTOR(lnA)) + tnX
            lnY = lnR*SIN(DTOR(lnA)) + tnY
            laArray[i*2, 1] = lnX
            laArray[i*2, 2] = lnY
        ENDFOR
        laArray[11, 1] = tnX
        laArray[11, 2] = tnY
        FOR i = 1 TO 11
            FOR j = 1 TO 11
                IF ABS(i - j) = 1 OR ABS(i - j) = 9 OR INLIST(11, i, j) = .T.
                    toGraphics.DrawLine(loPen, laArray[i, 1], laArray[i, 2], ;
                        laArray[j, 1], laArray[j, 2])
                ENDIF
            ENDFOR
        ENDFOR
        FOR i = 1 TO 5
            laPoints[1, 1] = laArray[i*2 - 1, 1]
            laPoints[1, 2] = laArray[i*2 - 1, 2]
            laPoints[2, 1] = laArray[i*2, 1]
            laPoints[2, 2] = laArray[i*2, 2]
            laPoints[3, 1] = laArray[11, 1]
            laPoints[3, 2] = laArray[11, 2]
            toGraphics.FillPolygon(loBrush, @laPoints, 1, 1)
            laPoints[1, 1] = laArray[i*2, 1]
            laPoints[1, 2] = laArray[i*2, 2]
            laPoints[2, 1] = laArray[IIF(i = 5, 1, i*2 + 1), 1]
            laPoints[2, 2] = laArray[IIF(i = 5, 1, i*2 + 1), 2]
            laPoints[3, 1] = laArray[11, 1]
            laPoints[3, 2] = laArray[11, 2]
            toGraphics.FillPolygon(loBrush2, @laPoints, 1, 1)  
        ENDFOR
    ENDPROC
    
    PROCEDURE DrawString
        LPARAMETERS toGraphics, tcString, tnLeft, tnTop, tnWidth, tnHeight
        LOCAL loBounds, loBrush, loFont, loStringFormat
        tcString = STRCONV(tcString, 5) + CHR(0)
        loBounds = CREATEOBJECT("GpRectangle", tnLeft, tnTop, tnWidth, tnHeight)
        loBrush = CREATEOBJECT("GpSolidBrush")
        loBrush.Create()       
        loFont = CREATEOBJECT("GpFont")
        loFont.Create("楷体_GB2312", 32, 3, 2)

        loStringFormat = CREATEOBJECT("GpStringFormat")
        loStringFormat.Create()        
        loStringFormat.FormatFlags = 4096
        loStringFormat.Alignment = 1
        loStringFormat.LineAlignment = 1
        loStringFormat.Trimming = 1
        loBounds.X = loBounds.X + 3
        loBounds.Y = loBounds.Y + 3
        loBrush.BrushColor = CREATEOBJECT("GpColor", 120, 120, 120)
        toGraphics.DrawStringW(tcString, loFont, loBounds, loStringFormat, loBrush)
        loBounds.X = loBounds.X - 3
        loBounds.Y = loBounds.Y - 3
        loBrush.BrushColor = CREATEOBJECT("GpColor", 255, 255, 0)
        toGraphics.DrawStringW(tcString, loFont, loBounds, loStringFormat, loBrush)
    ENDPROC
    
    PROCEDURE SavePicture
        LPARAMETERS tcFileName
        LOCAL lcTempFile, lcData, loImage, loForm, loGraphics
        lcTempFile = ADDBS(SYS(2023)) + SUBSTR(SYS(2015), 3, 10) + ".BMP"
        lcData = [424D3A0000000000000036000000280000000100000001000000010018] + ;
                 [000000000004000000C40E0000C40E00000000000000000000FFFFFF00]
        = STRTOFILE(STRCONV(lcData, 16), lcTempFile)
        loImage = CREATEOBJECT("GpImage")
        loImage.CreateFromFile(lcTempFile)
        loImage = loImage.GetThumbnailImage(THIS.Width, THIS.Height)
        loGraphics = CREATEOBJECT("GpGraphics")
        loGraphics.CreateFromImage(loImage)
        THIS.DrawPentacle(loGraphics, 170, 140, 130, 0)
        THIS.DrawString(loGraphics, "红星闪闪放光彩", 0, 260, 320, 60)       
        loImage.SaveToFile(tcFileName, "image/jpeg", "quality=100")
        THIS.TempFile = lcTempFile  
    ENDPROC

ENDDEFINE

 

    摘要：

此处阅读全文 发表于 @ 2007年06月02日 6:58 PM | 评论 (0) 导入EXCEL数据的几种途径     摘要：最近要用，但一直被迫使用最原始的方法，性能可想而知。所以上网找了些这方面资料。    （全文共1266字）——点击此处阅读全文 发表于 @ 2007年04月15日 5:14 PM | 评论 (0) VFP中利用WIN32API函数实现系统文件夹列表     摘要：关于使用SHBrowseForFolder的一些资料。    （全文共4913字）——点击此处阅读全文 发表于 @ 2007年02月01日 6:22 PM | 评论 (0) VFP中链接ACCESS的几种不同方法示例代码     摘要： ODBC方式： A：需配ODBC数据数据源 *--------------------------- &&ODBC的配制方法在这里不再介绍，以下finger3为数据源名 sz_data=SQLCONNECT("finger3") IF sz_data<0 MESSAGEBOX("数据库连接失败！！！",16, '错误信息') RETURN ELSE Ac=SQLEXEC(nhandle,"Select * From worker_info","Temp1") IF Ac<0 MESSAGEBOX("读取数据错误！",16, '错误信息') RETURN ENDIF SELECT Temp1 BROWSE ENDIF B：无需配ODBC数据数据源，即用字符串方式连    （全文共2306字）——点击此处阅读全文 发表于 @ 2006年09月11日 9:45 AM | 评论 (0) 防止GRID控件内单选控件丢失代码     摘要：代码收藏    （全文共203字）——点击此处阅读全文 发表于 @ 2005年05月19日 1:42 PM | 评论 (0) VFP9实现读取硬盘序列号     摘要：VFP9实现读取硬盘序列号    （全文共4020字）——点击此处阅读全文 发表于 @ 2005年04月30日 9:51 PM | 评论 (0) VFP导成XLS     摘要：vfp导出EXCEL代码收藏    （全文共3534字）——点击此处阅读全文 发表于 @ 2005年04月30日 9:47 PM | 评论 (0) 第1页，共2页 第一页 上一页 下一页 最后一页 Powered by: Copyright © 黑鹰