وارد کردن عدد در کمبو باکس

[kamran8428]

با سلام خدمت برنامه نویسان محترم. من می خواهم یک نرم افزار طراحی کنم یک دارای 2 تکست باکس و یک کمبوباکس و یک دکمه می باشد. می خواهم وقتی کاربر درون تکست باکس ها عدد وارد کرد ، به عنوان مثال در تکست باکس اول عدد 10 و در تسکت باکس دوم عدد 50 را وارد کرد، با زدن دکمه اعداد بین 10 تا 40 را وارد کمبوباکس قرار دهد. فکر کنم با دستورات حلقه بشه مشکل رو بر طرف کرد ، آیا راهی برای حل مشکل وجود دارد. ممنون .:متفکر::بوس::چشمک:

[xminxmin]

دوست من اینی که شما میگید که مشکل نیست!
یک مساله هست!
اینطوری باشه همه پروژه ها یک مشکل هستند!:بامزه:

از این کد استفاده کن و در رویداد کلیک دکمه بنویس . T تکست هست و C کمبو.:لبخندساده:


C1.Items.Clear()
For i As Integer = val(T1.Text) to val (T2.Text)
C1.Items.Add (i)
Next

[mmd2009]

با سلام

خودتون دارید میگید با حلقه میشه ، فقط کافی بود چیزی که دارید میگید رو به کد تبدیل کنید

کد :



''' <summary>
''' حلقه ای برای پر کردن اعداد بین
''' textbox1
''' و
''' textbox2
''' درون کمبوباکس
''' </summary>

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim intFor As Int16

For intFor = Integer.Parse(Me.TextBox1.Text) To Integer.Parse(Me.TextBox2.Text) Step 1
ComboBox1.Items.Add(intFor)
Next

End Sub

[kamran8428]

ممنوع از راهنماییتون- می خواهم اعدادی که ایجاد کردم وارد بانک اطلاعاتی شود. اگر کاربر عدد بین 10 تا 100 را زد و وارد بانک اطلاعاتی شود، مشکلی پیش نمیاد؟:متفکر::متفکر::متفکر:

[kamran8428]

چرا كسي جواب نميده؟:متفکر::متفکر::متفکر: يك مشكل ديگه؟ مي خوام وقتي كاربر اعداد را وارد كرد، انها را در يك پيغام نمايش دهد ، به عنوان مثال اگر كاربر عدد 1 تا 50 را وارد كرد ، پيغام دهد 50 عدد وارد شده است؟ خواهش مي كنم كمكم كنيد؟:افسرده::ناراحت::افسرد� �:

[alimanam]

با سلام


چرا كسي جواب نميده؟ يك مشكل ديگه؟ مي خوام وقتي كاربر اعداد را وارد كرد، انها را در يك پيغام نمايش دهد ، به عنوان مثال اگر كاربر عدد 1 تا 50 را وارد كرد ، پيغام دهد 50 عدد وارد شده است؟

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Static j As Int16 = 0
c1.Items.Clear()
For i As Integer = tx1.Text To tx2.Text
c1.Items.Add(i)
j += 1
Next
MsgBox(" تعداد " & j & " مورد وارد شد ")
j = 0
End Sub

موفق باشید