Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/blackberry/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何在vb.net中设置当前图像位置_Vb.net - Fatal编程技术网

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

如何在vb.net中设置当前图像位置,vb.net,Vb.net,如果我使用拖放偶数,如何在vb.net中设置当前图像位置。 似乎imagelocation不起作用,因为我尝试使用messagebox输出图像位置。但它什么也没出现。如何获取刚刚放入picturebox的文件的图像位置,以便将其传输到另一个目录 Private Sub pb_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles pb.DragDrop

如果我使用拖放偶数,如何在vb.net中设置当前图像位置。 似乎imagelocation不起作用,因为我尝试使用messagebox输出图像位置。但它什么也没出现。如何获取刚刚放入picturebox的文件的图像位置,以便将其传输到另一个目录

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

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

请与您的问题分开,但使用Path.Combine(“C:\pics”,textbox1.text+“.jpg”)。还将“C:\pics”部分抽象为一个配置元素。FileToMove=CType(例如Data.GetData(DataFormats.FileDrop)、Array.GetValue(0)。ToString-如果我这样做,它将不起作用