微信小程序常用的贝塞尔曲线

$easeInSine: cubic-bezier(0.47, 0, 0.745, 0.715)

$easeOutSine: cubic-bezier(0.39, 0.575, 0.565, 1)

$easeInOutSine: cubic-bezier(0.445, 0.05, 0.55, 0.95)

$easeInQuad: cubic-bezier(0.55, 0.085, 0.68, 0.53)

$easeOutQuad: cubic-bezier(0.25, 0.46, 0.45, 0.94)

$easeInOutQuad: cubic-bezier(0.455, 0.03, 0.515, 0.955)

$easeInCubic: cubic-bezier(0.55, 0.055, 0.675, 0.19)

$easeOutCubic: cubic-bezier(0.215, 0.61, 0.355, 1)

$easeInOutCubic: cubic-bezier(0.645, 0.045, 0.355, 1)

$easeInQuart: cubic-bezier(0.895, 0.03, 0.685, 0.22)

$easeOutQuart: cubic-bezier(0.165, 0.84, 0.44, 1)

$easeInOutQuart: cubic-bezier(0.77, 0, 0.175, 1)

$easeInQuint: cubic-bezier(0.755, 0.05, 0.855, 0.06)

$easeOutQuint: cubic-bezier(0.23, 1, 0.32, 1)

$easeInOutQuint: cubic-bezier(0.86, 0, 0.07, 1)

$easeInExpo: cubic-bezier(0.95, 0.05, 0.795, 0.035)

$easeOutExpo: cubic-bezier(0.19, 1, 0.22, 1)

$easeInOutExpo: cubic-bezier(1, 0, 0, 1)

$easeInCirc: cubic-bezier(0.6, 0.04, 0.98, 0.335)

$easeOutCirc: cubic-bezier(0.075, 0.82, 0.165, 1)

$easeInOutCirc: cubic-bezier(0.785, 0.135, 0.15, 0.86)

$easeInBack: cubic-bezier(0.6, -0.28, 0.735, 0.045)

$easeOutBack: cubic-bezier(0.175, 0.885, 0.32, 1.275)

$easeInOutBack: cubic-bezier(0.68, -0.55, 0.265, 1.55)

推荐这个，微信小程序 记录体重Pro

优势：

1、多端支持，无论Iphone、Ipad、安卓手机、华为、小米、电脑、打开微信就能用。

2、云端同步，无需注册，无需授权，打开即用，用完即走。

3、简单易用，界面简单，无广告，添加记录历史数据。

4、数据可视化，简单明了可查看体重走势，BMI健康走势，方便分析控制调节体重。

vb6将图片和数据保存到word中的方法：

前提是你已经在vb程序中将图形画好了，而且数据已经计算出来了。

得新建一个text（名字为Text1，并设置为不可见）和picturebox（名字为Final，并设置为不可见）

On Error Resume Next

Public MyWord As Object

Public NewDoc As Object

Set MyWord = CreateObject("Word.Application") '创建一个word对象

MyWord.Visible = True

MyWord.Caption = "文档名字"

Set NewDoc = MyWord.Documents.Add

'图片保存

Me.Final.Height = Me.picture1.Height

Me.Final.Width = Me.picture1.Width

Me.Final.Height = Me.picture1.Height 'picture1为待存入word的图片

Me.Final.Width = Me.picture1.Width

'vbSrcCopy：源位图直接覆盖目标位图

BitBlt Me.Final.hdc, 0, 0, Me.Final.Width, Me.Final.Height, Me.picture1.hdc, 0, 0,vbSrcCopy

Me.Final.Picture = Me.Final.Image

Set Me.Final.Picture = Me.Final.Image

SavePicture Me.Final.Picture, "C:\1.bmp" '将图像Final保存到 C:\1.bmp

Clipboard.Clear '清除剪贴板

Clipboard.SetData Me.Final.Picture 'vbCFBitmap 图片框中图片装入剪贴板

MyWord.Selection.Paste '将剪贴板中的图像复制到Word文档中

MyWord.Selection.TypeText (vbCrLf) '换行

'数据保存

Me.Text1.Text = "***" &data 'data为存数据的变量

'如果需要换行

Me.Text1.Text = Me.Text1.Text &vbCrLf &“***” ’vbCrLf 用来换行

Clipboard.Clear ' 清除剪贴板。

Clipboard.SetText Me.Text1.Text ' 将正文放置在剪贴板上。

MyWord.Selection.Paste

MyWord.Selection.TypeText (vbCrLf)

Kill "C:\1.bmp" '删除创建的图像

Clipboard.Clear '清除剪贴板

Me.Final.Cls

Set NewDoc = Nothing

Set MyWord = Nothing '清除对象

图像和数据存入word后，就可以使用word自带的打印功能了。

---