计时器演示文稿.pptm
直接vba源码上传,直接在破werpoint中打开,在宏里面编辑和运行。基本的功能,可以根据自己需要修改和完善.
自己开发的类似ShotGraph的绘图组件,实现大多数ShotGraph组件中的绘图和图形输出功能,接口基本保持一致,除了颜色设置。ShotGraph中需要SetColor进行颜色预设,WebGraph中涉及颜色直接传入颜色值,其他的基本无差别,包括创建和调用方法。 <HTML> <HEAD> </HEAD> <body> <img src="webGraphExec.asp"></img> </body> </HTML> <% Response.ContentType="image/gif" Set obj = Server.CreateObject("WebGraph.wImage") Size = 201 obj.CreateImage Size, Size ' obj.SetColor 0, 255, 255, 255 ' obj.SetColor 1, 0, 0, 0 ' obj.SetColor 2, 255, 108, 0 ' obj.SetColor 3, 0, 0, 204 obj.SetBgColor RGB(128, 128, 128) obj.FillRect 0, 0, Size - 1, Size - 1 obj.SetDrawColor RGB(255, 0, 0) obj.vbLine Size - 1, 0, 0, Size - 1 obj.SetBgColor RGB(255, 108, 0) obj.Ellipse 5, 5, Size - 6, Size - 6 obj.SetBgColor RGB(0, 0, 204) obj.Ellipse 5, (Size - 5) / 4, Size / 2, (Size - 5) * 3 / 4 ' img = obj.jpegImage(90, 0, "e:/abc.jpg") ' img = obj.jpegImage(90, 0, "") ' img = obj.bmpImage(True, "e:/abc.bmp") ' img = obj.bmpImage(True, "") img = obj.gifImage(-1, 0, "") Response.BinaryWrite img %>
简单TIN创建方法类,支持极端数据创建,比如两个或多个点非常接近情况。 1、dataSet方法用于数据传入 2、create方法开始创建TIN 3、sizeTin方法获取三角网个数 4、dataTin方法获取指定三角网的三个顶点的索引值 该类在前人基础上完成,修正了N个BUG。