لطفا کد یا سورسی ارائه دهید که ویندوز اکسپلورر را کاملا در وی بی شبیه سازی (اصلا خودش باشه) کند.
Printable View
لطفا کد یا سورسی ارائه دهید که ویندوز اکسپلورر را کاملا در وی بی شبیه سازی (اصلا خودش باشه) کند.
برای اینکار از منوی Project آیتم Reference را انتخاب کن ، سپس آیتم Microsoft Shell Controls and Automaton را انتخاب کن.
یاکد:Private Sub Command1_Click()
Dim SH As New Shell
SH.Explore "c:"
End Sub
کد:Public Sub eRoot(rootpath As String, fldrs As Boolean)
On Error Resume Next
Dim EX, ARGU, path, X
If fldrs = True Then
EX = "explorer.exe"
ARGU = " /e,/root, "
path = rootpath$
X = Shell(EX & ARGU & path, 1)
ElseIf fldrs = False Then
EX = "explorer.exe"
ARGU = " n/e,/,root, "
path = rootpath$
X = Shell(EX & ARGU & path, 1)
End If
End Sub
Private Sub Command1_Click()
eRoot ("c:"), True
End Sub
دوست عزیز ممنون از زحمتی که کشیدی اما منظور من چیز دیگه ای بود. من میخوام خود ویندوز اکسپلورر داخل برنامه باشه. با همون شکل و شمایل و با همون آیکونهای ویندوز (البته بدون منوها و ابزارهاش). صد در صد با TreeView کار کردی. درسته؟
می تونی از سورس زیر استفاده کنی :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]