0 سبد-خرید-فردانش
فردانش
خانه
دسته بندی
وبلاگ تماس باما مدرسه بلاکچین

شیئ FileDialog در برنامه نویسی اکسس

یک مطلب آموزشی ساده ولی بسیار مهم و پر استفاده ! : شیئ FileDialog احتمالا در برنامه خود نیاز داشته اید که برای کاربر امکان انتخاب فایل یا پوشه خاصی را فراهم کنید. برای انجام این کار و با استفاده از ویژگی های شیء FileDialog در برنامه نویسی اکسس دو تابع نوشته ایم که به شما ارائه می شود : (مقدار برگشتی از تابع نام فایل یا پوشه انتخاب شده می باشد)

 

Public Function FolderSelection() As String
               Dim objFD As Object
               Dim strOut As String
               
               strOut = vbNullString
               'msoFileDialogFolderPicker = 4
               Set objFD = Application.FileDialog(4)
               If objFD.Show = -1 Then
               strOut = objFD.selecteditems(1)
               End If
               Set objFD = Nothing
               FolderSelection = strOut
               End Function
               
               Public Function FileSelection() As String
               Dim objFD As Object
               Dim strOut As String
               
               strOut = vbNullString
               'msoFileDialogFilePicker = 3
               Set objFD = Application.FileDialog(3)
               If objFD.Show = -1 Then
               strOut = objFD.selecteditems(1)
               End If
               Set objFD = Nothing
               FileSelection = strOut
               End Function
 
 


و در فایل پیوست مطابق تصویر زیر در یک فرم طراحی شده از این توابع استفاده کرده ایم

 

 

شیئ FileDialog در برنامه نویسی اکسس

شما می توانید حسب نیاز خود از این توابع در هر برنامه ای استفاده کنید.
نویسنده : وحید فرزام
تاریخ انتشار : 1393-01-21 04:30:00
3055

0 نظر

user

تازه ترین ها