微信小程序——实现图片拖拽缩放并截图

cropper组和槐团件唤橘明岩

cropper.js

cropper.json

cropper.wxml

cropper.wxcc

index.js

index.json

index.wxml

index.wxss

log.js

log.json

log.wxml

log.wxss

app.json

设置list1的OLEDropMode

属性为手动,窗体和其它控件也可以这样设置

Option

Explicit

Private

Sub

Form_Load()

'设游轮置允许List1接受拖放 *** 作

List1.OLEDropMode

=

1

End

Sub

'悔哪有东西拖放到List1上

Private

Sub

List1_OLEDragDrop(Data

As

DataObject,

Effect

As

Long,

Button

As

Integer,

Shift

As

Integer,

X

As

Single,

Y

As

Single)

Dim

i

As

Integer

'将拖放的文件碧磨码添加到列表

For

i

=

1

To

Data.Files.Count

List1.AddItem

Data.Files(i)

Next

End

Sub

---