نحوه ادغام نوار آهنگ در Visual Basic: 3 مرحله

2024 نویسنده: John Day | [email protected]. آخرین اصلاح شده: 2024-01-30 08:58

بسیار خوب ، بنابراین این آسان به نظر می رسد ، اما مبتدیان هیچگونه راهنمایی در مورد نحوه انجام این کار ندارند. Trackbars می تواند ابزار مفیدی باشد. از تصمیم گیری برای بودجه گرفته تا انتخاب تعداد آتش بازی برای منفجر کردن ، استفاده از نوارهای پیست بسیار آسان است.

توجه: آیا کسی می داند چگونه می توان تعداد مکان ها را در نوار آهنگ افزایش داد؟ من فقط می توانم 11 بگیرم…

مرحله 1: فرم خود را آماده کنید

این بسیار آسان است. زمانی را ایجاد کنید که می خواهید برنامه شما شبیه به آن باشد. من چیز خاصی نمی سازم من چیزی می سازم که رنگ یک جعبه متن را تغییر می دهد. == افزودن نوار آهنگ را فراموش نکنید !!! == ^{_{بله ، بسیاری از مردم آن را فراموش می کنند}}

مرحله 2: کد

بنابراین ، شما رابط کاربری خود را انجام داده اید ، حالا چه؟ کد البته !! روی نوار آهنگ دوبار کلیک کنید. 2 خط کد باید ظاهر شود. چیزی مثل:

Private Sub TrackBar1_Scroll (فرستنده ByVal به عنوان System. Object ، ByVal e As System. EventArgs) TrackBar1. Scroll End Subاکنون با ارزشها آشنا می شویم. در این نوار آهنگ فقط می توانیم 11 مقدار ، 0-10 دریافت کنیم. مقدار 0 در سمت چپ است و مقدار 10 در سمت راست است. گرفتش؟ اجازه دهید حرکت کنیم.

برای سهولت زندگی همه متن ها در این مرحله از این پس به سبک کد خواهد بود

در بین دو خط کد ، عبارت زیر را وارد کنید: If TrackBar1. Value = placceavaluenumberhere ThenEnd Ifrecement placeavaluenumberhere with number number of the place where you want to be to be. حالا بین آن 4 خط کد نوع کاری را که می خواهید انجام دهید تایپ کنید. در این مورد: TextBox1. BackColor = Color. BlackOnce شما این کار را برای هر مکان انجام دهید. وقتی کارم تمام شد اینطور به نظر می رسید: Private Sub TrackBar1_Scroll (فرستنده ByVal As System. Object، ByVal e As System. EventArgs) TrackBar1. Scroll If TrackBar1. Value = 0 سپس TextBox1. BackColor = Color. Black End If If TrackBar1. ارزش = 1 سپس TextBox1. BackColor = Color. White پایان اگر TrackBar1. Value = 2 سپس TextBox1. BackColor = Color. Red End اگر TrackBar1. Value = 3 سپس TextBox1. BackColor = Color. Blue End اگر TrackBar1. Value = 4 سپس TextBox1. BackColor = Color. Yellow End If If TrackBar1. Value = 5 سپس TextBox1. BackColor = Color. Purple End If If TrackBar1. Value = 6 سپس TextBox1. BackColor = Color. Green End If If TrackBar1. Value = 7 then TextBox1. BackColor = Color. Orange End If If TrackBar1. Value = 8 سپس TextBox1. BackColor = Color. Brown End If TrackBar1. Value = 9 سپس TextBox1. BackColor = Color. White White If If TrackBar1. Value = 10 سپس TextBox1. BackColor = Color. White End If End Sub

مرحله 3: انجام شد

خوب ، من به هر حال بودم. اگر برنامه خود را تمام نکرده اید ، ادامه دهید. اوه ، و موفق باشید! اما برای کسانی که کارشان تمام شده است ، خوب ، خیلی سخت نبود؟ و اگر تعجب می کردید ، کد بازنشانی و بستن عبارت است از:

Private Sub Button2_Click (فرستنده ByVal As System. Object ، ByVal e As System. EventArgs) دکمه Handles2. روی End End Sub Private Sub Button1_Click (فرستنده ByVal به عنوان System. Object ، ByVal e As System. EventArgs) Handles Button 1. کلیک کنید TrackBar1. Value = 0 پایان ساب