محبوبترینها
از کجا بفهمیم قاشق چنگال اصل است | قاشق چنگال تقلبی نخرید!
با چاپ روی وسایل یک کسب و کار پرسود بسازید
قیمت دیگ بخار و تولیدکننده اصلی دیگ بخار
معروف‌ترین هدیه و سوغاتی یزد مشخص شد!
آشنایی با انواع دوربین مداربسته ضد آب
پرداخت اینترنتی قبوض ساختمان (پرداخت قبض گاز، برق و آب)
بهترین دوره آموزش سئو محتوا در سال 1403 با نام طوفان ۱۴۰۳ در فروردین ماه شروع می شود
یک صرافی ارز دیجیتال چه امکاناتی باید داشته باشد؟
تعمیرگاه مجاز تعمیر ماشین لباسشویی در شرق تهران
تعمیرگاه مجاز تعمیر ماشین لباسشویی در شرق تهران
جراحی و درمان ریشه دندان عفونی با خانم دکتر صفوراامامی
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1799046009
کار با لیست باکس و کومبو باکس در وی بی -
واضح آرشیو وب فارسی:سایت ریسک: کار با لیست باکس و کومبو باکس در وی بی Majid 3D 02 اسفند 1386, 14:52من یه لیست باکس یا یک کمبو باکس دارم ... فرض کنید هر دو دارای سه گزینه هم هستند مثل : آبی، قرمز، سبز. حالا میخوام وقتی کاربر از لیست باکس یا کمبو باکس مثلا گزینه ی آبی رو انتخاب میکنه، رنگ بک گراند به آبی عوض شه. الان مشکل من فقط اینجاست که نمیدونم چه جوری باید به ویبی بگم : - اگر گزینه ی انتخاب شده ی کومبو باکس مساوی آبی بود. saalek110 02 اسفند 1386, 15:04از MSDN : ComboBox Control A ComboBox control combines the features of a TextBox control and a ListBox control— users can enter information in the text box portion or select an item from the list box portion of the control. Syntax ComboBox Remarks To add or delete items in a ComboBox control, use the AddItem or RemoveItem method. Set the List, ListCount, and ListIndex properties to enable a user to access items in the ComboBox. Alternatively, you can add items to the list by using the List property at design time. Note A Scroll event will occur in a ComboBox control only when the contents of the dropdown portion of the ComboBox are scrolled, not each time the contents of the ComboBox change. For example, if the dropdown portion of a ComboBox contains five items and the top item is highlighted, a Scroll event will not occur until you press the down arrow six times (or the PGDN key once). After that, a Scroll event occurs for each press of the down arrow key. However, if you then press the up arrow key, a Scroll event will not occur until you press the up arrow key six times (or the PGUP key once). After that, each up arrow key press will result in a Scroll event. saalek110 02 اسفند 1386, 15:14منبع: ----------------------------------------------------------------- برای اضافه کردن به لیست کومبو: Private Sub Command 1_Click() Combo1.AddItem "Item" Combo1.AddItem "Item2" End Sub برای تنظیم یک آیتم : Private Sub Command 2_Click() Combo1.ListIndex = 1 End Sub saalek110 02 اسفند 1386, 15:16اطلاعات کامل تر در اینجا: saalek110 02 اسفند 1386, 16:29(VS.80).aspx یک باتون و یک لیبل و یک کومبوباکس به فرم بیافزایید و کد زیر را استفاده کنید: Private Sub Form_Load() Combo1.AddItem "Nancy Davolio" Combo1.ItemData(Combo1.NewIndex) = 12345 Combo1.AddItem "Judy Phelps" Combo1.ItemData(Combo1.NewIndex) = 67890 End Sub Private Sub Command 1_Click() Label1.Caption = "Empoyee #" & CStr(Combo1.ItemData(Combo1.ListIndex)) End Sub بعد اجرا در کومبو دو انتخاب داریم. که کاربر یکی را انتخاب و دکمه را می زند و عددی بعد عبارت Empoyee # چاپ می شود که همان اعدادی است که در رویداد فرم_لود اضافه شده. =========================== حالا میخوام وقتی کاربر از لیست باکس یا کمبو باکس مثلا گزینه ی آبی رو انتخاب میکنه، رنگ بک گراند به آبی عوض شه. گمانم شما بتوانید از کد بالا استفاده کنید. به جای رویداد کلیک باتون از رویدادهای خود کومبوباکس استفاده کنید. به جای اسامی بالا شما اسامی رنگها را قرار دهید. و به جای آن اعداد شما شماره های مناسب آن رنگها را جایگزین کنید. در رویداد مربوطه رنگ بک گراند را تغییر دهید. saalek110 02 اسفند 1386, 16:41 آموزش مصور خوبی در سایت بالا وجود دارد. ------------------------------ مقداری را نقل می کنم: saalek110 03 اسفند 1386, 03:12در ضمن در تاپیک: آموزش ویژوال بیسیک توسط حمید احمدی () هم مطالب مفیدی در این مورد وجود دارد. the_king 03 اسفند 1386, 05:01این کد برنامه مورد نظر شماست : فرض می کنیم که شما یک ComboBox دارید با نام Combo1. با این کد شما نام سه رنگ را در لیست آن درج می کنید : With Combo1 .Clear .AddItem "Red" .AddItem "Green" .AddItem "Blue" End With اکنون با اضافه کردن این کد به رخداد Click، رنگ زمینه تغییر خواهد کرد : Private Sub Combo1_Click() Me.BackColor = Choose(Combo1.ListIndex + 1, vbRed, vbGreen, vbBlue) End Sub () برای یک ListBox این کدها تغییری نخواهند کرد، فقط نام Combo1 را با نام کنترل مربوطه عوض کنید، مثلا List1. کد کامل برنامه به همراه فایل اجرایی exe ضمیمه این پست می باشد. saalek110 03 اسفند 1386, 13:43جناب علی سعید شما مهارت خاصی در کد نویسی دارید. و برنامه بالا را خیلی زیبا نوشتید. ======================= اما یک سئوال راجع به کومبوباکس: تعریف رویداد غالب را من برای خود چنین گفته ام. رویدادی است که با کلیک روی ابزار کدش باز شود. مثلا وقتی روی باتون دابل کلیک کنیم رویداد کلیک آن برای کدنویسی باز می شود. خیلی ابزارها رویداد کلیک همان رویداد غالب است. بعضی هم رویداد Change . من جمله همین کومبوباکس. و سئوال من این است که هم آقای حمید احمدی در آموزشهای خود و هم جناب علی سعید از رویداد کلیک به جای رویداد غالب که Change است استفاده کرده اند. من می خواستم فقط این را مطرح کنم تا دوستان در ذهنشان باشد. و احیانا اگر کسی اطلاعات آماده ای داشت اینجا برای استفاده همه بگذارد. اما خود من اگر بخواهم قضیه را دنبال کنم یا هر دو رویداد را امتحان می کنم و اگر یکی یا هر دو نیاز من را برآورده می کرد از آن استفاده می کردم. و یا سرچ می کردم تا ببینم نظر دیگران چیست. the_king 03 اسفند 1386, 14:05جناب saalek110 عزیز، از لطف شما خیلی ممنونم. کنترل های CmboBox ترکیبی از TextBox و ListBox هستند بطوری که بر اساس مقدار مشخصه Style آنها عملکرد متفاوتی دارند : vbComboDropDown (0) در این حالت که شیوه پیشفرض می باشد، کاربر هم می تواند متنی را تایپ کند و هم می تواند از لیست آیتمی را انتخاب کند. رخداد Change زمانی رخ می دهد که کاربر متنی را تایپ کند. رخداد Click زمانی رخ می دهد که کاربر آیتمی را از لیست انتخاب کند. vbComboSimple (1) در این حالت دیگر دکمه ای برای باز کردن لیست وجود ندارد و کنترل در همان اندازه ای قابل مشاهده است که در هنگام طراحی ایجاد می شود. کاربر هم متنی را تایپ کند و هم می تواند از لیست آیتمی را انتخاب کند. بصورت پیشفرض فقط قسمت TextBox کنترل قابل مشاهده است و لیست با کلید های فلش به سمت بالا و پایین مرور می شود. رخداد Change زمانی رخ می دهد که کاربر متنی را تایپ کند. رخداد Click زمانی رخ می دهد که کاربر آیتمی را از لیست انتخاب کند. vbComboDrop-DownList (2) در این حالت دیگر قسمت TextBox در کنترل وجود ندارد و کاربر فقط مجاز به انتخاب یکی از آیتم های موجود در لیست است. رخداد Change در این حالت مفهومی ندارد و رخ نمی دهد. رخداد Click زمانی رخ می دهد که کاربر آیتمی را از لیست انتخاب کند. saalek110 03 اسفند 1386, 14:34جناب علی سعید واقعا عالی بود. من این تاپیک را محل بحث برای این دو ابزار یعنی لیست باکس و کومبوباکس قرار می دهم. یعنی اگر کسی سئوالی در این مورد داشت به این تاپیک منتقل می کنم یا اگر مطلب یا سورسی پیدا کردم در این تاپیک می زنم. تا باعث سرعت در استفاده شود. دوستان دیگر هم هر مطلبی داشتند اضافه کنند. Majid 3D 03 اسفند 1386, 19:50عجب انجمن باهالی ... چه قدر سریع به سوالا جواب میدن !!! saeidpes 21 اسفند 1386, 21:58با سلام با تشكر از پست the _king كد ذخيره اطلاعات در ليست باكس خيلي عالي بود مي خواهم كد برنامه جستجو به پروژه اضافه شود كه با بتوان محتويات ليست باكس را با آن جستجو نمود خيلي ممنون ومتشكرم the_king 22 اسفند 1386, 01:07کافیست که یک دکمه به نام Command 4 به فرم اضافه کرده و کد زیر را برای آن بنویسید : Private Sub Command 4_Click() Dim Text As String Dim Index As Long Dim Count As Long Static PrevText As String Text = Trim(InputBox("Look for :", "Search", PrevText)) If Len(Text) > 0 Then PrevText = Text Index = List1.ListIndex For Count = 1 To List1.ListCount Index = (Index + 1) Mod List1.ListCount If InStr(1, List1.List(Index), Text, vbTextCompare) > 0 Then List1.ListIndex = Index Exit Sub End If Next MsgBox "Search text is not found.", vbInformation, "Search" List1.ListIndex = -1 End If End Sub فرض کنیم که در لیست چند آیتم با یک کلمه کلیدی مشترک وجود دارد، مثلا در نام چند تا از آنها "Ali" وجود دارد. در اولین جستجو، اولین مورد مشخص می شود و در لیست فعال می گردد. در جستجوی بعدی عبارتی که دفعه قبل وارد شده پیشفرض جستجو است و عملیات جستجو از آیتم های بعدی ادامه می یابد. بدین ترتیب به سادگی مورد های مشابه بعدی هم پیدا می شوند. saeidpes 22 اسفند 1386, 12:42با سلام از اينكه بزنامه جستجو را ارسال نموديد ممنون و متشكرم Majid 3D 15 ارديبهشت 1387, 19:18فرض کنید که من سه تا عدد (1 و 2 و 3) دارم و حالا میخوام کاری کنم که با زدن یک دکمه خود برنامه اونا رو به ترتیب بزرگ کوچیکی در یک لیست باکس قرار بده.چه جوری باید این کار رو کنم ؟ و سوال دوم ... فرض کنید در یک لیست باکس به ترتیب از بالا به پایین اعداد 1و2و3 هست و حالا من میخوام با زدن یک باتن عدد سه به اول لیست باکس بیاد. خیلی ممنونم. vrwh 15 ارديبهشت 1387, 19:26این لینک را ببینید the_king 16 ارديبهشت 1387, 15:26ماژول ListBoxExt.bas را که ضمیمه این پست شده به پروژه تان اضافه کنید. این ماژول دو روتین Public دارد که برای ListBox ها و ComboBox ها طراحی شده است: روتین SortListBox می تواند هر لیست باکسی (یا کومبو باکسی) را بصورت دلخواه شما مرتب کند. در پیاده سازی آن از الگوریتم مرتب سازی Quick Sort استفاده شده تا در لیست های بزرگ سرعت مناسبی داشته باشد. این روتین سه پارامتر دارد که عبارتند از : پارامتر ListBox لیست باکسی است که قرار است مرتب شود. پارامتر Descending اختیاری است و اگر True باشد بجای مرتب سازی صعودی، مرتب سازی نزولی انجام می شود. پارامتر Method اختیاری است و شیوه مقایسه عناصر را مشخص می کند که سه حالت دارد : SortBinary ساده ترین شیوه مقایسه دو عنصر است و بر اساس کد باینری کاراکتر ها عمل می کند. مثلا کاراکتر "B" از کاراکتر "a" کوچکتر است چون کد باینری کاراکتر "B" برابر 66 است و کد باینری کاراکتر "a" برابر 97 است. یا مثلا رشته "100" از رشته "2" کوچکتر است، چون کد کاراکتر "1" (اولین کاراکتر رشته "100") از کد کاراکتر "2" کوچکتر است. SortText شیوه منطقی تری است، چون در هنگام مرتب سازی حروف الفبا حروف بزرگ و کوچک را در یک گروه قرار می دهد. مثلا کاراکتر "B" از کاراکتر "a" بزرگتر است و رشته "ALI" با رشته "ali" برابر است. اما رشته "100" همچنان از رشته "2" کوچکتر است، چون کد کاراکتر "1" (اولین کاراکتر رشته "100") از کد کاراکتر "2" کوچکتر است. SortIntuitive مرتب سازی هوشمندی است که حالت پیشفرض روتین است. این روتین تقریبا مشابه شیوه ای است که ویندوز XP در مرتب سازی نام فایلها بکار می برد. بر اساس این الگوریتم این رشته ها بر اساس ترتیب صعودی به درستی مرتب شده اند : 00001 02 003 04 00005 Date 1386/002/14 DATE 1386/4/7 Date 1386/0005/0021 date 1386/05/22 Date 1386/012/009 dAtE 1387/1/10 fILEnAME006 fileNAME7 FileName08 filename00009 FILEname10 مثلا برای مرتب سازی List1 می نویسیم (بصورت پیشفرض مرتب سازی صعودی با شیوه SortIntuitive انجام می شود) : SortListBox List1 و مثلا برای مرتب سازی نزولی List1 با شیوه SortBinary می نویسیم : SortListBox List1, True, SortBinary روتین Public دومی که در این ماژول وجود دارد MoveListBoxItem است. این روتین آیتم ای را در یک لیست باکس (یا کومبو باکس) جابجا می کند و سه پارامتر دارد : پارامتر ListBox لیست باکسی است که قرار است جابجایی در آن صورت پذیرد. پارامتر Index اندیس آن آیتمی است که می خواهیم جابجا شود. پارامتر NewIndex اندیس جدیدی است که آیتم می بایستی در آن قرار بگیرد. (اندیس ها از صفر شروع می شوند) مثلا کد زیر در لیست باکس List1 آیتم پنجم (اندیس 4 ام خواهد بود چون اندیس ها از صفر شروع می شوند) را به ابتدای لیست (یعنی اندیس 0) می برد. MoveListBoxItem List1, 4, 0
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 10800]
-
گوناگون
پربازدیدترینها