主题：请问AddressOf这个回调指针，怎么使用？我现在用阿里云oss上传文件，想上传时显示进度条，里面有这个东西，实在看不懂

StreamTransferProgressArgs

改成

Aliyun.OSS.Common.StreamTransferProgressArgs

或者

在全局代码写代码啊。每上传一点，就会触发一次事件的啊，你在里面写进度条的代码就行啊。

比如

msgbox(CExp("ProgressCallback - TotalBytes:{0}, TransferredBytes:{1}, IncrementTransferred:{2}", args.TotalBytes, args.TransferredBytes, args.IncrementTransferred))

或者

output.show(CExp("ProgressCallback - TotalBytes:{0}, TransferredBytes:{1}, IncrementTransferred:{2}", args.TotalBytes, args.TransferredBytes, args.IncrementTransferred))

在上传的时候，绑定事件啊

AddHandler putObjectRequest.StreamTransferProgress, AddressOf streamProgressCallback

Dim putObjectRequest = New Aliyun.oss.PutObjectRequest(bucketName, UpLoadPath , fs)

改成

Dim putObjectRequest as New Aliyun.oss.PutObjectRequest(bucketName, UpLoadPath , fs)

代码改成 chen37280600

Dim endpoint As String = "http://oss-cn-shenzhen.aliyuncs.com" '阿里云oss深圳地域
Dim accessKeyId As String = "LTAInCHeElRmNUBgabc"
Dim accessKeySecret As String = "8EjqqYKDBlWu47uvY5en1Irl8vHmSj123"
Dim bucketName As String ="mbldt" '存储空间的名称
Dim LocalPath As String = "d:/test.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 As New Aliyun.oss.PutObjectRequest(bucketName, UpLoadPath , fs)
    putObjectRequest.StreamTransferProgress = AddressOf streamProgressCallback
    client.PutObject(putObjectRequest)
    'client.PutObject(bucketName, UpLoadPath , LocalPath) '执行上传
    messagebox.show("上传成功" )
Catch ex As Exception
    messagebox.show("上传失败,原因" & ex.Message)
End Try

改成 Aliyun.OSS.StreamTransferProgressArgs