全局代码定义好了，但是不知道怎么把监听挂钩上去上传事件
Dim endpoint As String = "http://oss-cn-shenzhen.aliyuncs.com" '阿里云oss深圳地域
Dim accessKeyId As String = "LTAInxxxmNxxxxUBg"
Dim accessKeySecret As String = "8EjqqYxxxxxxxxY5en1Irl8vHmSj"
Dim bucketName As String ="mbldt" '存储空间的名称
Dim LocalPath As String = "c:/123.jpg" '设置上传的文件的本地路径
Dim UpLoadPath As String = "demo/321.jpg" '上传后的文件路径
Dim client As New Aliyun.OSS.OssClient(endpoint, accessKeyId, accessKeySecret) '根据SDK创建阿里云oss对象
Try
Dim fs As System.IO.FileStream = System.IO.File.Open(LocalPath, System.IO.FileMode.Open)
Dim putObjectRequest = New Aliyun.oss.PutObjectRequest(bucketName, UpLoadPath , fs)
AddHandler putObjectRequest.StreamTransferProgress, AddressOf streamProgressCallback ‘感觉应该放窗口的afterload，但是不知道怎么放
client.PutObject(putObjectRequest)
'client.PutObject(bucketName, UpLoadPath , LocalPath) '执行上传
messagebox.show("上传成功" )
Catch ex As Exception
messagebox.show("上传失败,原因" & ex.Message)
End Try
[此贴子已经被作者于2019/3/21 16:48:02编辑过]
加好友 
发短信
Post By：2019/3/21 10:50:00 [只看该作者]
此主题相关图片如下：1.png
