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
اینو میدونستم،
میخوام که فقط یکبار همون دفعه اول چاپ بشه و اگه دوباره روی command کلیک کردم دیگه چاپ نشه
با یکبار کلیک مقدار اضافه میشه و دکمه غیرفعال .نقل قول:
کد:Private Sub Command1_Click()
s = "Y"
List1.AddItem s
Command1.Enabled = False
End Sub
Private Sub Command2_Click()
a = "X"
List1.AddItem a
Command2.Enabled = False
End Sub
نقل قول:
این طوری هم میشه :
.
.
که دوتا متغیر برای هر کدوم از Command Button هات تعریف کنید و با قرار دادن یک شرط (اگر متغیر مقدار صفر داشت درون شرط اجرا بشه )
چرا مقدار صفر ؟ چون هر متغیریی که از نوع عددی تعریف میشود پیش فرض دارای مقدار صفر است . بعد از اضافه کردن مقادیر به لیست مقدار متغیر رو تغییر میدیم تا دفعه ی بعد دستورات درون شرط اجرا نشه (:8:)
.
.
کد:
Dim cmd1 As Byte, cmd2 As Byte
Private Sub Command1_Click()
If cmd1 = 0 Then
cmd1 = 1
s = "Y"
List1.AddItem s
End If
End Sub
Private Sub Command2_Click()
If cmd2 = 0 Then
cmd2 = 1
a = "X"
List1.AddItem a
End If
End Sub
پایینی تقریبا جواب داده
اگر مشکل یا سوال دیگه ای هم داشتم مطرح میکنم،ممنون