Printable View
سلام
میدونم که خیلی سادس ولی سورس کد یه برنامه رو میخوام
که روی فرم یه command butt و list box باشه و وقتی روی command کلیک میکنی
listbox بشه 1 و با کلیک دوباره بشه 2 و 3و...(با هر بار کلیک 1 به عدد قبلی اضافه بشه و عدد قبلی پاک و عدد جدید جاشو بگیره)
از طرف دیگه هم میخواستم بدونم چطور میشه یه textbox رو تنظیم کرد تا فقط یه مقدار خاص رو قبول کنه؟
(فقط عدد یا تاریخ یا ... نشه چیزه دیگه ای توش تایپ کرد)
*********************************نقل قول:
سلام...//// :20:
*******************
یه لیست و یه دکمه تو فرمتون قرار بدید.../// و بعد کد های زیر رو...................////// :13:
***************************
[PHP]
Private Sub Command1_Click()
Static num As Integer
num = num + 1
List1.List(0) = num
End Sub
[/PHP]
******************************
برای اینکه کارکتر های ورودی یه TextBox رو محدود کنید...//// [مثلاً فقط به اعداد...///]///// می تونید از کد زیر استفاده کنید....///// :12:
**********************************
[PHP]
Private Sub Text1_KeyPress(KeyAscii As Integer)
AllowedChars = "0123456789" & vbBack
If Not (InStr(AllowedChars, Chr(KeyAscii)) > 0) Then KeyAscii = 0
End Sub
[/PHP]
************************************
مقدار متغییر AllowedChars رو به کارکتر های مجاز تغییر بدید....///// :9:
************************
موفق باشید! :46:
می تونید از این روش هم استفاده کنیدنقل قول:
در رویداد KeyPress
کد:Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <= vbKey9 And KeyAscii >= vbKey0 Then Else KeyAscii = 0
End Sub
ممنون از هردوتون، فقط چطوری میتونم backspace رو هم allow کنم؟نقل قول:
دوست عزیز... توی کدی که براتون نوشته بودم وارد کردن backspace مشکلی نداشت...///// :9:نقل قول:
**********************
اگه می خواید Enter رو هم مجاز کنید// می تونید به آخر مقدار متغییر AllowedChars یه (Chr(13 هم اضافه کنید...////// :13:
****************
موفق باشید! :46:
با تغییر دادن کد قبلی به صورت زیر :نقل قول:
کد:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <= vbKey9 And KeyAscii >= vbKey0 Or KeyAscii = 8 Then Else KeyAscii = 0
End Sub
ولی برای من کار نمی کرد،
اما برای akbar22 جواب داد ممنون.:31:
یه مشکل کوچیکه دیگه،
چطوری میتونم کاری کنم تا فقط متن مورد نظر یکبار تو لیست چاپ بشه؟(ربطی به مشکل قبلی نداره)
نقل قول:
منظورتو متوجه نشدم
-------------------------------------------------------------------------------------------
منظورت از لیست چیه ؟ ... کنترل ListBox
برای مثال من یه listbox با دوتا command button تو فرم دارم
میخوام وقتی رو command1 کلیک کردم توی listbox فقط یکبار x چاپ بشه
و وقتی روی command2 کلیک کردم پایین x توی لیست باکس y چاپ بشه و جای x رو نگیره و بالعکس(شرمنده اگه بازم خوب توضیح ندادم)
نقل قول:
از طریق کد زیر به راحتی میتونید این کار انجام دهید :
فقط یادت نره دو تا Command Button و یک ListBox ی رو که اضافه کردیی به فرمت Name شون تغییر ندیی بگیی کار نکرد . (:46:)کد:Private Sub Command1_Click()
s = "Y"
List1.AddItem s
End Sub
Private Sub Command2_Click()
a = "X"
List1.AddItem a
End Sub