Iranian Technology

	آموزش برنامه نویسی
	آموزش ویژوال بیسیک و ... برای دیدن تمامی مطالب به آرشیو ماهانه مراجعه کنید

آموزش ویژوال بیسیک

سلام بچه ها حالتون خوبه .

اين جمله پاييني رو مطمئنم که خيلي شنيديد

از اينکه يه چند وقتي نبودم واقعآ شرمندم اين يکي دو ماهه درگير درس و مدرسه و مخش پخش بودم. کلي دلم براتون تنگ شده بود. اميدوارم منو بخشيده باشيد و منو از ياد نبرده باشيد.

دو سه روز بود که مي خواستم يه مطلبي بنويسم اما چون چيزي به نظرم نميرسيد که آموزش بدم نتونستم تا اينکه امروز به بهونه يک آموزش کوچولو ولي کاربردي اومدم .

قبل از اينکه کارم رو شروع کنم بايد از کساني که به من و به وبلاگ خودشون نظر ميدن تشکر کنم. همچنين از داداش کامران هم به خاطر مطالبي که گذاشتن ممنونم .

پاسخ به دو سه تا نظر ( خيلي کمه بابا ابروي مارو شما يه روزي پيش رفيق رفقا مي بريد. ولي عيبي نداره نوبت منم ميشه .) و بعد هم ميريم سر آموزش.

زينب از من کمکي خواسته بود که متآسفانه نه پاسخشو بلد بودم(الگوريتم انحصاري چي چيه ديگه؟) و نه با اينترنت و وبلاگ در ارتباط بودم . شرمنده.

الهام گفته بود که ميخواد مربع هاي تو در تو بسازه براي اين کار شما بايد مختصات Z مربع بزرگتون از همه بيشتر باشه و مختصات Z مربع کوچيکتون هم از همه کمتر(البته در حالت منفي) باشه به عبارت ديگه مربع بزرگه بايد زير همه مربع ها باشه . اگه اين توضيحات کمکت کرد ( فکر نمي کنم چون خودم نفهميدم چي گفتم)خوب الحمد الله در غير اين صورت بگو سورسشو برات بزارم .

آقا داوود دستور داده بودن آموزش کاربا کنترل WinSock رو آموزش بدم که ميگم :
نمي تونم ................................. شوخي کردم بابا ميگم : به چشم قربان اما جلسه ديگه چون که الآن ميخوام آموزشهاي زير رو بدم:

کار با کنترل هاي :TreeView (نمايش درختي) - StatusBar (نوار وضعيت)

براي اضافه کردن اين کنترلها به جعبه ابزار ويژوال بيسيک اين کارا رو انجام بدين:
?- از منوي Project > Components را بزنيد يا کليدهاي crtl + T را بزنيد که در اين صورت کادر محاوره اي Components باز ميشود که در سربرگ(Tab) به نام Controls ليستي از کنترل هاي شناخته شده توسط ويژوال بيسيک مي آيد که شما بايد به دنبال Microsoft Windows Common Controls 6.0(SP4) a بگردين و تيک کنار اون رو فعال کنيد و بعد هم OK کنيد.

TreeView

شما حتمآ حالت نمايش درختي را ديده ايد و بسيار از امکانتش بهرهمند شده ايد.
براي اينکه ياد بگيرين از اين کنترل چگونه استفاده کنيد ابتدا بايد بدانيد که ساختار درختي به صورتي است که در آن يک شاخه اصلي وجود دارد که شاخه هاي فرعي به آن منتصل شده اند. به شاخه هاي فرعي گره(Node)هم گفته مي شود. ما بايد ابتدا شاخه اصلي يا تنه را بسازيم و بعد گره ها را درست کنيم. براي يادگيري کامل به مثال زير توجه کنين:

ابتدا يک کنترل TreeView از جعبه ابزار به فرم اضافه کنيد . حالا اندازه آن را به طور دلخواه تغيير دهيد . روي فرم دابل کليک کنيد تا پنجره کدها و روال Form_Load باز شود.
حالا يک متغير از نوع Node به اسم MainNode تعريف مي کينم به اين صورت:
Dim MainNode as Node
و بعد هم یک متغیر دیگه به اسم ChidNode

Dim ChildNode as Node

بعد هم باید شروع کنیم به ست کردن متغیر ها . برای درست کردن شاخه اصلی به این صورت عمل میکنیم:

Set MainNode = TreeView1.nodes.add( , , "Main" , "Main") 'x

حالا ما شاخه اصلی رو ساختیم . بهتره الآن یه بار برنامه را اجرا کنید و نتیجه را ببینید.
شما میتونید به تعداد دلخواه شاخه درست کنید فقط کافیه به جای Main یک اسم دیگه بزارید.
برای ساختن گره ها یا شاخه های فرعی به جای ست کردن متغیر MainNode متغیر ChildNode را ست می کنیم . توجه داشته باشید که اگر بخواهید یک شاخه فرعی یا گره رو به یک تنه ( که در اینجا اسم تنه Main هست) متصل کنیم باید به صورت زیر عمل کنیم:

Set ChildNode = TreeView1.Nodes.Add("Main" , tvwChild , "Node1" , "Node1") 'x

همون طور که در خط بالا می بینید آرگومان اول Nodes.Add را برابر اسم تنه گذاشتیم و در آرگومان دوم از ثابت tvwChild استفاده کردیم که نشان دهنده این است که گره ای که قرار است اضافه شود زیر شاخه Main است. آرگومان سوم کلمه کلیدی یا یک شناسه است که برای گره ای که ساخته ایم قرار میدهیم در آرگومان چهارم هم خاصیت Text یا به عبارت دیگر کلمه ای که قرار است نمایش داده شود را اضافه کردیم.

در این حالت هم شما می تونید به تعداد دلخواه گره درست کنید فقط باید "Node1" رو در دو آرگومان آخر تغییر بدین.

توضیحات بالا در کل به این صورت است:

Private Sub Form_Load() 'x

Dim MainNode as Node
Dim ChildNode as Node

Set MainNode = TreeView1.Nodes.Add(,, "Main" , "Main") 'x
Set ChildNode = TreeView1.Nodes.Add ( "Main" , tvwChild , "Node1" , "Node1") 'x

End Sub

شاید با این توضیحات درهم من چیزی دستگیرتون نشده باشه. در هر حال برای اینکه خوب بتونم آموزشم رو کامل کنم از یکی دو تا مثال استفاده می کنم.

مثال ۱ : نمایش درایو های موجود در My Computer .
یک پروژه جدید از نوع استاندارد باز کنید سپس یک کنترل TreeView به فرم برنام اضافه کنید و خاصیت آن را برابر TreeView1 قرار دهید .
حالا روی فرم برنامه دابل کلیک کنید تا روال Form_Load باز شود . کدهای زیر رو بنویسید.

Private Sub Form_Load()

Dim N as Node
Dim FSO , Drives
Set N = TreeView1.Nodes.Add(, , "HD" , "My Computer") 'x
set Fso = CreateObject("Scripting.FileSystemObject") 'x
Set Drives = Fso.Drives

For Each Drive In Drives
If Drive.isready then Set N = TreeView1.Nodes.Add("HD" , tvwChild , drive , drive) 'x
Next

End Sub

کنترل TreeView قابلیت های بسیاری داره مثل اضافه کردن یک عکس یا + و - در کنار گره ها. اگه خواستین بگین تا بعضی از قابلیت هاش رو براتون آموزش بدم.

Status Bar

کار با کنترل Status Bar بسیار سادست و نیازی به توضیحات بسیار زیاد نداره.

حالا کنترل Status Bar به جعبه ابزار شما اضافه شده . یکی از این کنترل ها رو به فرم برنامه اضافه کنید.
هر کنترل StatusBar یک خاصیت به نام Panels دارد که هر پنل یک خانه در StatusBar است.

هنگامی که شما یک کنترل StatusBar به فرم برنامه تون اضافه می کنید به صورت پیش فرض یک پنل برای شما ساخته می شود . اگر می خواهید تعداد پنل ها را زیاد کنید از کد زیر استفاده کنید.

StatusBar1.Panels.Add 2 , , "Iran" 'x

در خط بالا ۲ نشان دهنده ی شماره اندیس پنل جدید است. اگر میخواهید بیش از دو پنل داشته باشید کافی است خط بالا را دوباره بنویسید و ۲ را به ۳ تغییر دهید.

مثال:نمایش ساعت در StatusBar .
ابتدا یک کنترل StatusBar به فرم اضافه کنید و به خاصیت Name کنترل دست نزنید. یک تایمر هم به فرم اضافه کنید و خاصیت Interval کنترل تایمر رو به ۱۰۰۰ تغییر دهید . از منوی View روی Code کلیک کنید تا پنجره کدها باز شود و کدهای زیر رو بنویسید.

Private Sub Timer1_Timer

StatusBar1.Panels(1).Text = Time

End Sub

خوب این پست هم تموم شد.
نظر یادتون نره.
خداحافط شما.

|+| نوشته شده در پنجشنبه هشتم آذر 1386ساعت 16:1 توسط علی |