نیاز به دستور برای استفاده از چند checkbox

[ILYA20]

با سلام و درود خدمت دوستان عزیز

تو پروژه بنده چهار تا چک باکس هست که جلوی هر کدوم یه تکست باکس و یک button دارم

حالا اینجا میخوام وقتی روی باتون کلیک شد اول تیک دار بودن چک باکس رو چک کنه سپس وجود محتوای تکست باکسش رو هم چک کنه و اگر در تکست ، تکست باکس محتوایی بود و اگر چک باکس تیک دار بود یه دستوری رو انجام بده

سپس بعد از بررسی و اتمام چک باکس و تکست باکس اولی بره روی دومی و بعدی اونا رو هم به اون ترتیب اجرا کنه ...

من از دستور زیر استفاده میکنم اما این دستور فقط چک باکس اولی رو چک و اجرا میکنه و نتونستم کاری کنم بعد از اتمام دستور اولی بعدی رو هم چک کنه ...

If PictureBox1.BackColor = Color.Blue Then


If CheckBoxboot.Checked = True Then
If Trim(textboxboot.Text).Length > 0 Then
TextBox1.AppendText(Environment.NewLine & Fastboot.ExecuteFastbootCommand(Fastboot.FormFastb ootCommand("flash boot", textboxboot.Text)))
Else
TextBox1.AppendText(Environment.NewLine & "You did not select the file. Please choose, then try again.")
End If
Else
TextBox1.AppendText(Environment.NewLine & "You did not select an option to perform the operation!")
End If
Else
TextBox1.AppendText(Environment.NewLine & "Device Not Connected In Fastboot Mode")
End If
End Sub





به دستوری نیاز دارم که از اول چک کنه بعد خروجی ها رو ارائه بده سپس بره روی بعدی تا الی آخر ....

راهنمایی لطفا

[hamidrezax1]

شلام شما چرا از چند تا IF استفاده نمی کنید؟

If Me.CheckBox1.Checked = False And Me.CheckBox2.Checked = False And Me.CheckBox3.Checked = False And Me.CheckBox1.Checked = False Then


MsgBox("کاربر گرامی یک گزینه را انتخاب نمایید")
Else


If Me.CheckBox1.Checked = True And Me.TextBox1.Text <> "" Then
MsgBox("CheckBox1&TextBox1")
End If


If Me.CheckBox2.Checked = True And Me.TextBox2.Text <> "" Then
MsgBox("CheckBox2&TextBox2")
End If


If Me.CheckBox3.Checked = True And Me.TextBox3.Text <> "" Then
MsgBox("CheckBox3&TextBox3")
End If


If Me.CheckBox4.Checked = True And Me.TextBox4.Text <> "" Then
MsgBox("CheckBox4&TextBox4")
End If


End If

[ILYA20]

شلام شما چرا از چند تا IF استفاده نمی کنید؟
If Me.CheckBox1.Checked = True And Me.TextBox1.Text <> "" Then
MsgBox("CheckBox1&TextBox1")
End If
If Me.CheckBox2.Checked = True And Me.TextBox2.Text <> "" Then
MsgBox("CheckBox2&TextBox2")
End If
If Me.CheckBox3.Checked = True And Me.TextBox3.Text <> "" Then
MsgBox("CheckBox3&TextBox3")
End If
If Me.CheckBox4.Checked = True And Me.TextBox4.Text <> "" Then
MsgBox("CheckBox4&TextBox4")
End If

درود
این دستور کار میکنه ولی یک مشکلی هست

من میخوام در صورتی که کاربر تیک چک باکس رو نزنه یک پیغام بده که گذینه ای انتخاب نشده و در صورتی که تکست باکس محتوایی نداشته باشه بگه فایلی انتخاب نشده برای همین از چند دستور if پشت سر هم استفاده کردم تا هر کدام را بتونم تعریف کنم

الا اگر else تعریف کنم دیگه دستور بعدی رو اجرا نمیکنه

[hamidrezax1]

دوست عزیز قبل از کد یه شرط بزار تا اول چک باکس ها رو چک کنه
کد بالا اصلاح شده تست کنید و نتیجه رو بگین، در ضمن برای تکست باکس ها هم میتونید داخل خود
IF ها شرط بزارید
موفق باشید

[ILYA20]

با این دستور کارم راه افتاد ممنون از دوستان


If PictureBox1.BackColor = Color.Blue Then
If CheckBoxboot.Checked = True Or CheckBoxrecovery.Checked = True Or CheckBoxsystem.Checked = True Or CheckBoxuserdata.Checked = True Or CheckBoxsplash.Checked = True Or CheckBoxradio.Checked = True Or CheckBoxmodem.Checked = True Then
If Trim(textbox1.Text).Length > 0 Then
TextBox1.AppendText(Environment.NewLine & "..........")
End If
If Trim(textbox2.Text).Length > 0 Then
TextBox1.AppendText(Environment.NewLine & "..........")
End If
If Trim(textbox3.Text).Length > 0 Then
TextBox1.AppendText(Environment.NewLine & "..........")
End If
If Trim(textbox4.Text).Length > 0 Then
TextBox1.AppendText(Environment.NewLine & "..........")
End If
If Trim(textbox5.Text).Length > 0 Then
TextBox1.AppendText(Environment.NewLine & "..........")
End If
If Trim(textbox6.Text).Length > 0 Then
TextBox1.AppendText(Environment.NewLine & "..........")
End If
If Trim(textbox7.Text).Length > 0 Then
TextBox1.AppendText(Environment.NewLine &"..........")
End If
Else
TextBox1.AppendText(Environment.NewLine &"..........")
End If
Else
TextBox1.AppendText(Environment.NewLine & "Device Not Connected In Fastboot Mode !")
End If

[ILYA20]

دوستان یه مشکلی در کد هست

اینکه در صورتی که در textbox چیزی وجود نباشه چیزی نمینویسه اگه به اینها

If Trim(textbox7.Text).Length > 0 Then
TextBox1.AppendText(Environment.NewLine &"..........")

else اضافه بشه چه تیکشونو بزنم یا نه در صورتی که یکیشون تیک دار باشه else همه این ها اجرا میشه
چطور میشه اضافه کرد کسی میتونه دستور منو اصلاح کنه؟

سپاس

[hamidrezax1]

دوست عزیز من همون بالا هم به این موضوع اشاره کردم اگر دوستان راهنمایی کردن که هیچ در غیر اینصورت فردا.فقط بدونین معمولا بهترین کار از کار انداختن چک باکس و تکست باکس مربوطه است.مثلا هر چک باکس و تکست باکس مربوطه در یک پنل باشه که با تیک خوردن آن تکست باکس مربوطه فعال و بقیه چک باکس ها و تکست باکس ها غیر فعال میشن

[ROSTAM2]

Dim CekeckAll As Boolean = CBool(Check1.Cecked and Text1.Text.Length >0 ) And CBool(Check2.Cecked and Text2.Text.Length >0 ) And CBool(Check3.Cecked and Text3.Text.Length >0 ) And CBool(Check4.Cecked and Text4.Text.Length >0 )
Dim Option1 = CBool(Check1.Cecked and Tex1.Text.Length >0 )
Dim Option2 = CBool(Check2.Cecked and Tex2.Text.Length >0 )
Dim Option3 = CBool(Check3.Cecked and Tex3.Text.Length >0 )
Dim Option4 = CBool(Check4.Cecked and Tex4.Text.Length >0 )
IF CheckAll = False Then
' Error Message
Exit Sub
End If
If Option1 = True Then
' Statements..
End If
If Option2 = True Then
' Statements..
End If
If Option3 = True Then
' Statements..
End If
If Option4 = True Then
' Statements..
End If