16,722
社区成员
发帖
与我相关
我的任务
分享VB转VB.NET 2005问题，大家进来研究下
Option Explicit
Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As Long, ByVal nFolder As Integer, ppidl As Long) As Long
Private Declare Function SHGetPathFromIDList Lib "Shell32" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal szPath As String) As Long
Const DESKTOP = &H0&
Const MAX_LEN = 200
Private Sub Command1_Click()
Dim sTmp As String * MAX_LEN
Dim nLength As Long
Dim pidl As Long
SHGetSpecialFolderLocation 0, DESKTOP, pidl
SHGetPathFromIDList pidl, sTmp
FileCopy App.Path & "\" & App.EXEName & ".EXE", Left(sTmp, InStr(sTmp, Chr(0)) - 1) & "\" & App.EXEName & ".EXE"
End Sub
这段是VB的代码,谁帮我转成VB.NET 2005，因为比较急，所以上来求救了.谢谢
Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As Long, ByVal nFolder As Integer, ppidl As Long) As Long
Private Declare Function SHGetPathFromIDList Lib "Shell32" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal szPath As String) As Long
Const DESKTOP = &H0&
Const MAX_LEN = 200
Private Sub Command1_Click()
Dim sTmp As String * MAX_LEN
Dim nLength As Long
Dim pidl As Long
SHGetSpecialFolderLocation 0, DESKTOP, pidl
SHGetPathFromIDList pidl, sTmp
FileCopy App.Path & "\" & App.EXEName & ".EXE", Left(sTmp, InStr(sTmp, Chr(0)) - 1) & "\" & App.EXEName & ".EXE"
End Sub
这段是VB的代码,谁帮我转成VB.NET 2005，因为比较急，所以上来求救了.谢谢
...全文
请发表友善的回复…
发表回复
hurtsobad 2009-11-09
- 打赏
- 举报
Option Explicit
Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As Long, ByVal nFolder As Integer, ppidl As Long) As Long
Private Declare Function SHGetPathFromIDList Lib "Shell32" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal szPath As String) As Long
Const DESKTOP = &H0&
Const MAX_LEN = 200
Private Sub Command1_Click()
Dim sTmp As String * MAX_LEN
Dim nLength As Long
Dim pidl As Long
SHGetSpecialFolderLocation 0, DESKTOP, pidl
SHGetPathFromIDList pidl, sTmp
FileCopy App.Path & "\" & App.EXEName & ".EXE", Left(sTmp, InStr(sTmp, Chr(0)) - 1) & "\" & App.EXEName & ".EXE"
End Sub
这段是VB的代码,谁帮我转成VB.NET 2005，因为比较急，所以上来求救了.谢谢
Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As Long, ByVal nFolder As Integer, ppidl As Long) As Long
Private Declare Function SHGetPathFromIDList Lib "Shell32" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal szPath As String) As Long
Const DESKTOP = &H0&
Const MAX_LEN = 200
Private Sub Command1_Click()
Dim sTmp As String * MAX_LEN
Dim nLength As Long
Dim pidl As Long
SHGetSpecialFolderLocation 0, DESKTOP, pidl
SHGetPathFromIDList pidl, sTmp
FileCopy App.Path & "\" & App.EXEName & ".EXE", Left(sTmp, InStr(sTmp, Chr(0)) - 1) & "\" & App.EXEName & ".EXE"
End Sub
这段是VB的代码,谁帮我转成VB.NET 2005，因为比较急，所以上来求救了.谢谢
