vb.netで現在の画像の場所を設定する方法

Question

ドラッグアンドドロップを使用すると、vb.netで現在の画像の場所を設定するにはどうすればよいですか。 メッセージボックスを使ってイメージの位置を出力しようとしたため、イメージの配置がうまくいかないようです。しかし、それは何も表示されませんでした。ピクチャボックスにドロップしたファイルのイメージの場所を取得して、別のディレクトリに転送できるようにするにはどうすればよいですか？

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プロパティがここで動作しないのか分かりません。