大哥还在不,还有个小小的问题想请教一下
如下:
commondialog的filename的字符类型是不是和拖拽获取出来的路径的字符类型不一样?用commondialog打开获取的路径可以用shell进行复制操作,而拖放获取的路径就不可以,我试过cstr转换成字符型,可是也不行
代码如下
拖拽获取路径的换行符我给去掉了,获取出来的路径没问题
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
For Each n In Data.Files
s = n & n
Next
Text3.Text = s
End Sub
timer的判断如下
If Right(Text3.Text, 3) = "png" Then
Text2.Text = CStr(Text3.Text)
Text3.Text = ""End If
End Sub
If Right(Text3.Text, 3) = "jpg" Then
Text1.Text = CStr(Text3.Text)
Text3.Text = ""End If
End Sub
判断正常
但是就是再用shell进行复制时没反应
求解!
如下:
commondialog的filename的字符类型是不是和拖拽获取出来的路径的字符类型不一样?用commondialog打开获取的路径可以用shell进行复制操作,而拖放获取的路径就不可以,我试过cstr转换成字符型,可是也不行
代码如下
拖拽获取路径的换行符我给去掉了,获取出来的路径没问题
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
For Each n In Data.Files
s = n & n
Next
Text3.Text = s
End Sub
timer的判断如下
If Right(Text3.Text, 3) = "png" Then
Text2.Text = CStr(Text3.Text)
Text3.Text = ""End If
End Sub
If Right(Text3.Text, 3) = "jpg" Then
Text1.Text = CStr(Text3.Text)
Text3.Text = ""End If
End Sub
判断正常
但是就是再用shell进行复制时没反应
求解!

