Question

如果我使用拖放均匀，如何在vb.net中设置当前图像位置。似乎图像位置不起作用，因为我尝试使用messagebox输出图像位置。但它并没有显示任何东西。如何获取我刚刚放入图片框的文件的图像位置，以便我可以将其传输到另一个目录？

Private Sub pb_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles pb.DragDrop
            Dim FileToMove As String
            Dim MoveLocation As String
            Try
                pb.Image = Image.FromFile(CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0).ToString)



                FileToMove = pb.ImageLocation


                MoveLocation = "C:\pics\" + TextBox1.Text + ".jpg" '"

                If System.IO.File.Exists(FileToMove) = True Then
                    System.IO.File.Move(FileToMove, MoveLocation)

                End If
            Catch ex As Exception
                MessageBox.Show("Error Doing Drag/Drop")
            End Try
        End Sub

Answer 1

为什么不将e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0).ToString保存到变量中？这是您要查找的文件路径。不确定为什么ImageLocation属性在这里不起作用。

如何在vb.net中设置当前图像位置

1 个答案: