PDA

View Full Version : درخواست یک سورس کد ساده



renku1
دوشنبه 05 تیر 1391, 22:57 عصر
سلام
میدونم که خیلی سادس ولی سورس کد یه برنامه رو میخوام
1.که روی فرم یه command butt و list box باشه و وقتی روی command کلیک میکنی
listbox بشه 1 و با کلیک دوباره بشه 2 و 3و...(با هر بار کلیک 1 به عدد قبلی اضافه بشه و عدد قبلی پاک و عدد جدید جاشو بگیره)
2. میخواستم بدونم چطور میشه یه textbox رو تنظیم کرد تا فقط یه مقدار خاص رو قبول کنه؟
(فقط عدد یا تاریخ یا ... نشه چیزه دیگه ای توش تایپ کرد)

ممنون:لبخند::بوس:

ROSTAM2
دوشنبه 05 تیر 1391, 23:07 عصر
2. میخواستم بدونم چطور میشه یه textbox رو تنظیم کرد تا فقط یه مقدار خاص رو قبول کنه؟

فكر كنم بايد از MaskedTextBox استفاده كنيد



1.که روی فرم یه command butt و list box باشه و وقتی روی command کلیک میکنی
listbox بشه 1 و با کلیک دوباره بشه 2 و 3و...(با هر بار کلیک 1 به عدد قبلی اضافه بشه و عدد قبلی پاک و عدد جدید جاشو بگیره)

يه متغير توي Event كليك از كليد بسازيد كه با هر بار كليك به علاوه 1 بشه


Static mInt As Integer
mInt += 1


براي اضافه كردنش به ليست باكس بايد به رشته تبديل شه

renku1
سه شنبه 06 تیر 1391, 07:35 صبح
MaskedTextBox رو از کجا پیدا کنم؟

returnx
سه شنبه 06 تیر 1391, 08:01 صبح
یکم اگه تو اون Toolbar بگردید ، مطمئنا پیدا می کنید...
لطفا قوانین سایت رو هم مطالعه کنید ، در خواست سورس ممنوع هست...

M.KH-SH
سه شنبه 06 تیر 1391, 08:24 صبح
يه متغير توي Event كليك از كليد بسازيد كه با هر بار كليك به علاوه 1 بشه

1
2
3
Static mInt As Integer
mInt += 1



دوست عزیز به نظر شما این کد کار میکنه؟
یعنی متغییری که در هر بار لود شدن رویداد ساخته میشه و مقدار 0 رو داخلش میگیره و بعد هم از بین میره برای این کار مناسب هستش؟

دوست عزیز شما متغییر رو در زیر نام public class form1 معرفی کنین و value اون رو برابر با 0 قرار بدین

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

dim i as integer=0
private sub button_click ( sender as object , e as system.eventargs) handles button1.click
i+=1
listbox1.items.add(i.tostring)
end sub

برای بخش دوم هم باید از Maskedtextbox استفاده کن و در اون مدلی رو که میخوای دریافت کنی بده

اگه هم نه باید با کد دستبه کار بشی تا مدله مورد نظر رو بتونی داخل هر کنترل ورودی وارد کنی

یک نمونه از این ورودی ها ::: http://barnamenevis.org/showthread.php?309223-%DA%A9%D8%A7%D9%85%D9%BE%D9%88%D9%86%D9%86%D8%AA-%D8%AF%D8%B1%DB%8C%D8%A7%D9%81%D8%AA-%D9%85%D8%A8%D8%A7%D9%84%D8%BA-%D9%BE%D9%88%D9%84%DB%8C-%D8%AA%D8%A8%D8%AF%DB%8C%D9%84-%D8%A8%D9%87-%D8%AD%D8%B1%D9%88%D9%81-%28%D8%B1%DB%8C%D8%A7%D9%84%29-%D9%86%D9%85%D8%A7%DB%8C%D8%B4-%D8%B9%D8%AF%D8%AF-%D8%A8%D9%87-%D8%B5%D9%88%D8%B1%D8%AA-%D8%AC%D8%AF%D8%A7%DA%AF%D8%A7%D9%86%D9%87-%D8%A8%D8%B1%D8%A7%DB%8C-%D8%B0%D8%AE%DB%8C%D8%B1%D9%87-%D8%AF%D8%B1-%D8%A8%D8%A7%D9%86%DA%A9

arman_Delta2002
سه شنبه 06 تیر 1391, 08:38 صبح
دوستان چرا دارین میپیچونین بنده خدا رو

بفرما به همین راحتی

Dim Num1 As Long = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ListBox1.Items.Count > 0 Then
Num1 = ListBox1.Items(0).ToString + 1
End If
ListBox1.Items.Clear()
ListBox1.Items.Add(Num1)
End Sub

renku1
سه شنبه 06 تیر 1391, 11:01 صبح
دوستان چرا دارین میپیچونین بنده خدا رو

بفرما به همین راحتی

Dim Num1 As Long = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ListBox1.Items.Count > 0 Then
Num1 = ListBox1.Items(0).ToString + 1
End If
ListBox1.Items.Clear()
ListBox1.Items.Add(Num1)
End Sub



دمت گرم کار کرد

ROSTAM2
سه شنبه 06 تیر 1391, 11:46 صبح
دوست عزیز به نظر شما این کد کار میکنه؟
یعنی متغییری که در هر بار لود شدن رویداد ساخته میشه و مقدار 0 رو داخلش میگیره و بعد هم از بین میره برای این کار مناسب هستش؟

:متفکر::متفکر::ناراحت: بـــهــــــــــــــــــله :ناراحت::متفکر::لبخندساده::ل خند:

مهرداد صفا
سه شنبه 27 تیر 1391, 04:11 صبح
2. میخواستم بدونم چطور میشه یه textbox رو تنظیم کرد تا فقط یه مقدار خاص رو قبول کنه؟
(فقط عدد یا تاریخ یا ... نشه چیزه دیگه ای توش تایپ کرد)
با سلام
بستگی به مقدار مورد نظر دارد. مثلا در موردی که میخواهیم فقط عدد دریافت بشود میتوانیم در رویداد KeyPress مقدار KeyChar مربوط به آرگومنت ارسالی را که همان کاراکتر کلید فشرده شده است را چک کنیم و در صورت غیر عددی بودن آن را به Nothing ست کنیم.
به این صورت



'in the name of god

Public Class Form1

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar < "0" Or e.KeyChar > "9" Then
e.KeyChar = Nothing
Beep()
End If
End Sub
End Class