آشنایی با ابزارهای ویژوال بیسیک
ComboBox: وسیله است که با استفاده از آن می توان تعدادی رشته یا عدد را به عنوان عناصر یک آرایه درون یک لیست کشویی قرار داد.
ListBox: ابزاری است که مانند Combo Box عمل می کند با این تفاوت که عناصر را درون لیست کشویی قرار نمی گیرند.
DriveListBox: کنترلی است که درایو های داخل ویندوز را نمایش می دهد.
DirListBox: کنترلی است که با مرتبط شدن با DriveListBox فولدر های داخل درایو جاری درون DriveListBox را نمایش می دهد.
Data: کنترلی است که فرم کاری را با فایل های بانک اطلاعاتی مرتبط می کند.
ساخت برنامه ای که آدرس عکسی را از DriveListBox و DirlistBox و FileListBox دریافت کرده و آن را نمایش دهد.
ابتدا فرمی با یک کنترل DriveListBox, DirListBox, FileListBox, Image ایجاد کرده و سپس دستورهای های زیر را وارد کنید.
()Private Sub Dir1_Change
If Drive1.Drive <> "" Then
File1.Path = Dir1.Path
End If
End Sub
()Private Sub Drive1_Change
Dir1.Path = Drive1.Drive
End Sub
()Private Sub File1_Click
If Len(File1.Path) <= 3 Then
(Image1.Picture = LoadPicture(File1.Path & File1.FileName
Else
(Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName
End If
End Sub
()Private Sub Form_Load
"\:Drive1.Drive = "c
"File1.Pattern = "*.jpg
End Sub
توضیحات: در رویداد Click کنترل FileListBox، در سطر اول از تابع Len استفاده کردیم. این تابع تعداد کاراکتر های آرگومان خود را برمی گرداند که در این مثال آرگومان تابع File1.path می باشد. نوشتن این شرط برای این است که در بعضی مواقع شما می خاهید به طور مثال عکسی از آدرس :
C:\Documents and Settings\All Users.WINDOWS\Documents\My Pictures\Sample Pictures\Sunset.Jpg
فرا بخوانید. اگر از شرط استفاده نکنید مقدار File1.Path برابر:
C:\Documents and Settings\All Users.WINDOWS\Documents\My Pictures\Sample Pictures
و مقدار File1.Filename برابر Sunset.Jpg می شود که اگر در کنار یکدیگر قرار گیرند رشته ای معادل:
C:\Documents and Settings\All Users.WINDOWS\Documents\My Pictures\Sample PicturesSunset.jpg
می شود. اگر دقت کنید خواهید دید که بین File1.Path و File1.Filename نشانه \ قرار نگرفته است و تمام رشته به صورت دنبال هم نوشته شده است و هنگام اجرا برنامه چنین فایلی را نمی تواند پیدا کند.
اما در مواقعی شما می خواهید که فایلی را مستقیما از داخل یک درایو به صورت بی واسطه انتخاب کنید. مانند آدرس زیر:
D:\Sunset.jpg
در این حالت آدرس درایو \:D و File1.Filename برابر Sunset.jpg است که هیچ مشکلی ندارد و کاراکتر \ در میان دو رشته وجود دارد.
مسئله دیگر استفاده از از File1.Pattern می باشد که باعث می شود تا در کادر FileListBox تنها فایلهای با پسوند Jpg. نمایش داده شوند (مانند Filter در Commondialog عمل می کند).