ارسال شده در دوشنبه بیست و یکم اردیبهشت 1388 و ساعت 14:44
درس سوم
برنامه نمایش تصویر
ابزار های مورد نیاز به این شرح اند: یک Image برای نمایش تصویر، Drivelistbox، Dirlistbox ، Filelistbox ، Listbox برای نمایش فایل های موجود در کامپیوتر ، Combobox برای محدود کردن فایل ها به قالب های خاص ، 2 تا OptionButton و در آخر یک Frame برای OptionButtonها .
دستورات زیر را وارد می کنیم:
Private Sub Dir_Change()
fil.Path = Dir.Path
End Sub
Private Sub drv_Change()
Dir.Path = drv.Drive
End Sub
برنامه را اجرا کنید. شما می توانید همه فایل های کامپیوتر خود را ببینید. تعجب نکنید شما برنامه نویس قابلی هستید .
Private Sub Form_Load
Cbo.AddItem "*.bmp;*.jpg;*.gif"
Cbo.AddItem "*.bmp"
Cbo.AddItem "*.jpg"
Cbo.AddItem "*.gif"
Cbo.Text = Cbo.List(0)
fil.Pattern = Cbo.Text
End Sub
Private Sub Cbo_Click()
File.Pattern = Cbo.Text
End Sub
همانطور که گفتم از Combo برای محدود کردن برنامه برای استفاده از فایلهای خاص است. با دستور AddItem میتوانیم داده ها را در Combo وارد می کنیم (نوع فایل را برای برنامه تعریف می کنیم). با نوشتن دستور(Cbo.Text = Cbo.List(0 با کلیک بر Combo آیتم انتخاب شده را در خاصیت Text از Combo نشان می دهیم و در آخر نوع فایل را به متن Combo محدود می کنیم یعنی اگر "*.bmp" را انتخاب کردیم تنها این نوع فایل ها در شی Filelistbox(fil) نمایش داده میشود.
برای نمایش تصویر یک زیر برنامه می نویسیم. زیر برنامه یک نوع تابع است که ما برای کنترل برنامه از آن استفاده می کنیم.
Private Sub Preview()
pth = Fil.Path
If Right(pth, 1) <> "\" Then pth = pth + "\"
Img.Picture = LoadPicture(pth + Fil.FileName)
End Sub
البته متغیر pth را در برنامه تعریف می کنیم. Dim pth As String را در بالاترین قسمت قرار دهید.
با دستور\"" + If Right(pth, 1) <> "\" Then pth = pth به برنامه می گویم که کاراکتر "\" در انتهای آدرس دایرکتوری قرار دهد. دستور Right(pth, 1) اولین کاراکتر سمت راست رشته pth را نشان می دهد. دستور انتهایی تصویر را در شی image بار گزاری می کند.
حالا ما باید کد قسمتی از برنامه را بنویسیم که با کلیک کردن بر روی نام فایلی در شی Filelistbox آن فایل نمایش داده شود.:
Private Sub Fil_Click()
Lst.AddItem Fil.FileName
Preview
End Sub
این درس هم تمام شد.
تمرین
ما شی Listbox را در برنامه برای نمایش فایلهایی که در زمان جاری از آن استفاده کرده ایم به کار بردیم. اما شما میبینید که با کلیک بر روی نام فایلها در Listbox (Lst) تصویر تغییر نمیکند.
راهنمایی: به خواص List و ListIndex از شی Listbox نگاهی بیندازید.
برای پنهان کردن تصویر از 2OptionButton و یک Frame استفاده کنید و کدهای مربوطه را بنویسید.
راهنمایی: استفاده از رویداد کلیک برای OptoinButtonها و خاصیت Visible برای Image (img)
نویسنده : [ محمد ..mft*.. D&M* ] موضوع : [ آموزش ویژوال بیسیک درس 3 ]
[ ]
[ لینک مطلب ]
[ 5 ]
