끌어서 놓기를 사용하는 경우 vb.net에서 현재 이미지 위치를 어떻게 설정합니까? 메시지 상자를 사용하여 이미지 위치 출력을 시도했기 때문에 imagelocation이 작동하지 않는 것 같습니다. 하지만 아무 것도 나타나지 않았습니다. Picturebox에 놓은 파일의 이미지 위치를 다른 디렉토리로 옮길 수있는 방법은 무엇입니까?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
질문과 별도로 사용하지만 Path.Combine ("C : \ pics", textbox1.text + ".jpg")을 사용하십시오. 또한 "C : \ pics"부분을 구성 요소로 추상화하십시오. –