[farzad]

مطمئنا تا بحال در ويندوز از كادرهاي محاوره‌اي زيادي مثل پنجره هاي Open، Save، نمايش خصوصيات چاپگر (Printer)،كادر انتخاب رنگ، كادر انتخاب Font و پنجره Help ويندوز استفاده كرده ايد.
در VBبراي نمايش اينگونه پنجره‌هاي محاوره‌اي از كنترل DialogBox استفاده مي‌كنيم. اين كنترل يكي از كنترل‌هاي Non - Visual ويژوال بيسيك مي‌باشد. Non-Visual Controls همانطور كه قبلا هم آمده است، انواعي از كنترل‌ها هستند كه فقط در زمان طراحي (Design Time) بر روي فرم ديده مي‌شوند و در Run Run Time فقط مي‌توان از اثر آنها بهره برد.
كنترل مذكور بطور پيش فرض در ToolBar وجود ندارد. براي اضافه كردن آن به ToolBar بايد از منوي Project گزينه Components را انتخاب كنيم و در ليست Componentها، گزينه Microsoft Common Dialog Control 6 را چك مارك بزنيم و آن را تاييد (OK) نماييم. در اينصورت يك كنترل به شكل به ToolBar افزوده خواهد شد كه مي توانيد آن را با دابل كليك بر روي فرم قرار دهيد. توجه داريم كه كنترل مذكور Non-Visual است و لذا نيازي به تنظيم مكان اين كنترل بر روي فرم نداريد.
كنترل Dialog Box داراي متدهاي زير مي باشد:
ShowColor براي نمايش پنجره محاوره‌اي تعيين رنگ در زمان فراخواني اين متد.
ShowFont براي نمايش پنجره محاوره‌اي تعيين فونت در زمان فراخواني اين متد.
ShowHelp براي نمايش پنجره محاوره‌اي راهنماي ويندوز در زمان فراخواني اين متد.
ShowOpen براي نمايش پنجره محاوره‌اي باز كردن يك فايل در زمان فراخواني اين متد.
ShowPrinter براي نمايش پنجره محاوره‌اي تعيين خصوصيات چاپگر در زمان فراخواني اين متد.
ShowSave براي نمايش پنجره محاوره‌اي ذخيره كردن در يك فايل در زمان فراخواني اين متد.

Private Sub cmd_Click ( )
cdb.ShowColor
lbl.ForeColor = cdb.Color
End Sub

يا اگر بخواهيم توسط دکمه‌ای ديگر به نام cmd2، پنجره Open باز شود، و هر فايلی از هر مسيری را که کار بر انتخاب کرد، در lbl نمايش داده شود، می‌نويسيم:

Private Sub cmd2_Click ( )
cdb.ShowOpen
lbl.Caption = cdb.FileName
End Sub