كمك !!! يك مشكل توي COmboBOX دارم توروخدا براي امروز مي خوام

سلام دوستان عزيز از اين كه باعث شدم اذيت بشين متاسفم...

خيلي منو ببخشين...

من يه مشكلي توي اين كمبو باكس هاي ويژوال بيسيك دارم تورو خدا كمكم كنيد(براي امروز مي خوامش).خواهش

مي كنم...

ببينيد مشكل من اينه كه مي خوام يه قسمتي رو براي انتخاب تاريخ در VB شبيه سازي كنم اما نميشه لطفا به

عكس زير توجه كنيد.ميخوام مثل اين بشه:

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

در اين برنامه شما سه تا كمبو باكس دارين كه بايد به ترتيب از سمت راست (روز و ماه و سال) رو انتخاب كنيد.

در زير اين سه تا كمبو باكس يك لييل قرار داره كه تاريخ در اون درج مي شه(مقدار Caption اين ليبل رو به شدت نياز دارم)

در ضمن كمبو باكس هاي برنامه مشخصه Style همگي اون ها برابر DropDown List هست يعني به اين راحتي ها نميشه مقدار Text كمبو باكس

ها رو برداشت و كاملا ReadOnly (فقط خواندني) است.

حالا من برنامه اي رو مي خوام كه تاريخ در اين ليبل به صورت كامل درج بشه يعني شما وقتي روز رو انتخاب كردين

عددش رو توي ليبل وارد كنه بعلاوه ي علامت ( / ) بعد وقتي كه شما عدد ماه رو انتخاب مي كنيد مقدار قبلي

caption ليبل باقي بمونه و مقدار ماه رو كه انتخاب كردين اضافه بشه دوباره باز هم يه علامت ( / ) و در نهايت زماني كه

سال رو انتخاب مي كنيد مقدار روز بعلاوه ي علامت ( / ) و مقدار ماه بعلاوه ي علامت ( / ) باشن وباقي بمونن در انتهاي Caption ليبل مقدار سال

رو كه انتخاب كردين اضافه بشه.در حالت كلي من ميخوام مقدار هاي قبلي Caption ليبل عوض نشن فقط با انتخاب مقادير از كمبو باكس ها در

جايگاه خود تغيير پيدا كنند و دو علامت ( / ) هم ثابت بمونن.(فقط همين) مثل شكل زير

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اگر هم از طريقي بتونين به من بگين كه چه طور ميشه مقادير رشته اي رو با مقادير عددي كنار هم قرار داد (با هم جمع كرد) و داخل caption ليبل

قرار داد هم كمك بزرگي به من كرديد.

حالا تو رو خدا كمك كنيد خيلي لازمش دارم...

اینم کد:

کد:

---

Private Sub Form_Load()
  For i = 1 To 1400
    Combo1.AddItem Format(i, "0000")
  Next i
 
  For i = 1 To 12
    Combo2.AddItem Format(i, "00")
  Next i
 
  For i = 1 To 31
    Combo3.AddItem Format(i, "00")
  Next i
 
  Label1.Caption = Space(10)
End Sub

Private Sub Combo1_Click()
  Label1.Caption = Combo1.Text + Mid(Label1.Caption, 5, 6)
End Sub

Private Sub Combo2_Click()
  Label1.Caption = Mid(Label1.Caption, 1, 4) + "/" + Combo2.Text + Mid(Label1.Caption, 8, 3)
End Sub

Private Sub Combo3_Click()
  Label1.Caption = Mid(Label1.Caption, 1, 7) + "/" + Combo3.Text
End Sub

---

میتونی به سلیقه خودت تغییرش بدی! در ضمن اگر میخوای سال توی لیست برعکس باشه
یعنی از بزرگتر به کوچکتر -- اینجوری بنویس:

کد:

---

For i = 1400 To 1 Step -1
  Combo1.AddItem Format(i, "0000")
Next i

---

برای جمع مقادیر با رشته باید مقادیر را به رشته تبدیل کنید. البته با تابع СStr مثلا:

کد:

---

Dim g As Integer
g = 10
Label1.Caption = "start" + CStr(g)

---

به همین سادگی :11:

دوست عزيز مي تونيد يه سورس از ين برنامه رو برام آپلود كنيد خواهش مي كنم(خيلي لازم دارم)

:11::11::11:

چه جالب یعنی نمیشه اون کد رو کپی کرد؟؟!

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

کد:

---

http://www.2shared.com/file/3480317/34d836d6/DateSelector.html

---

دیگه چی میخوای -- فقط کپی رایت یادت نره :31:

دوست من شما خيلي به من كمك كردين:40::40::40:

از اينكه بخوام بگم چقدر شرمندتون هستم عاجزم و حتي نميدونم چه طوري و با چه زبوني ازتون تشكر كنم.

خدا از بزرگي كمتون نكنه دوست عزيز.

ولي اينرو بدون كه يه روز حتما كمكتون مي كنم.

قول ميدم...

بازم به خاطر همه چيز ممنونم...

ما خاكه پاپتيم...

:11::11::11:

كوچيك شما Tarfand4u

دوست من با اعلام تشكر مي خواستم يه چيزي رو با عرض پوزش ازتون بخوام.

اونم اينه كه مي شه يه توضيح كوچولو درباره تابع Mid كه در سورس بود بدين.

خيلي متشكرم.

این حرفا چیه بابا خجالتمون نده -- شرمندمون نکن -- منکه کاری نکردم -- فقط وظیفم رو انجام دادم همین!


توضیح تابع Mid:
تابعی از مجموعه توابع Strings است که برای جدا کردن قسمتی از متن استفاده میشه.

طریقه استفاده: آرگومان اول رشته مورد نظر است -- آرگومان دوم محل کاراکتری که جدا کردن از آن شروع میشود --
و آرگومان سوم طول قسمتی که جدا میشود ( اگر این آرگومان را مقداردهی نکنیم تا آخر رشته در نظر گرفته میشه ).
این تابع مقداری از نوع String برمیگرداند که حاوی رشته جدا شده است.

مثال:
یک رشته داریم حاوی "Visual Basic Power" حالا میخواهیم قسمت "Power" را جدا کنیم.

کد:

---

MsgBox Mid("Visual Basic Power", 14)

---

آرگومان دوم را 14 مقداردهی کردیم چون میخواستیم از کاراکتر 14 شروع به جدا کردن کنیم --
و آرگومان سوم را مقداردهی نکردیم چون میخواستیم تا آخرین کاراکتر در نظر گرفته شود.

حالا اگر بخواهیم قسمت "Pow" را از این رشته جدا کنیم:

کد:

---

MsgBox Mid("Visual Basic Power", 14, 3)

---

اینبار آرگومان سوم را مقداردهی کردیم تا به طول 3 کاراکتر در نظر گرفته شود.


اگر مشکلی بود حتما بگو! :11:

دوست من اولا شما لايق اين تشكر و حتي بهتر از اين هم هستيد چون واقعا به دادم رسيديد.دوما من از اين بابت اصلا احساس شرمندگي نمي كنم و از اينكه مي بينم تونستم تا حدي نسبتا خوب از شما تشكر كنم خيلي خوشحالم و به خودم مي بالم كه هم صحبتي و دوستي مثل شما دارم.

:10:

راستي آموزشتون هم خيلي عالي بود،ممنونم...:11:

كاملا متوجه شدم:46:

بازم به خاطر همه چيز ممنونم.

اميدوارم در تمام مراحل زندگيتان موفق باشيد...:11::11::11:

نقل قول:

---

نوشته شده توسط tarfand4u [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام دوستان عزيز از اين كه باعث شدم اذيت بشين متاسفم...

خيلي منو ببخشين...

من يه مشكلي توي اين كمبو باكس هاي ويژوال بيسيك دارم تورو خدا كمكم كنيد(براي امروز مي خوامش).خواهش

مي كنم...

ببينيد مشكل من اينه كه مي خوام يه قسمتي رو براي انتخاب تاريخ در VB شبيه سازي كنم اما نميشه لطفا به

عكس زير توجه كنيد.ميخوام مثل اين بشه:

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

در اين برنامه شما سه تا كمبو باكس دارين كه بايد به ترتيب از سمت راست (روز و ماه و سال) رو انتخاب كنيد.

در زير اين سه تا كمبو باكس يك لييل قرار داره كه تاريخ در اون درج مي شه(مقدار Caption اين ليبل رو به شدت نياز دارم)

در ضمن كمبو باكس هاي برنامه مشخصه Style همگي اون ها برابر DropDown List هست يعني به اين راحتي ها نميشه مقدار Text كمبو باكس

ها رو برداشت و كاملا ReadOnly (فقط خواندني) است.

حالا من برنامه اي رو مي خوام كه تاريخ در اين ليبل به صورت كامل درج بشه يعني شما وقتي روز رو انتخاب كردين

عددش رو توي ليبل وارد كنه بعلاوه ي علامت ( / ) بعد وقتي كه شما عدد ماه رو انتخاب مي كنيد مقدار قبلي

caption ليبل باقي بمونه و مقدار ماه رو كه انتخاب كردين اضافه بشه دوباره باز هم يه علامت ( / ) و در نهايت زماني كه

سال رو انتخاب مي كنيد مقدار روز بعلاوه ي علامت ( / ) و مقدار ماه بعلاوه ي علامت ( / ) باشن وباقي بمونن در انتهاي Caption ليبل مقدار سال

رو كه انتخاب كردين اضافه بشه.در حالت كلي من ميخوام مقدار هاي قبلي Caption ليبل عوض نشن فقط با انتخاب مقادير از كمبو باكس ها در

جايگاه خود تغيير پيدا كنند و دو علامت ( / ) هم ثابت بمونن.(فقط همين) مثل شكل زير

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اگر هم از طريقي بتونين به من بگين كه چه طور ميشه مقادير رشته اي رو با مقادير عددي كنار هم قرار داد (با هم جمع كرد) و داخل caption ليبل

قرار داد هم كمك بزرگي به من كرديد.

حالا تو رو خدا كمك كنيد خيلي لازمش دارم...

---

دوست عزیزم خسته نباشی . اگه میشه از قوانین بیشتر پیروی کنید . ( نام تایپیک)

منو ببخشين.آخه خيلي لازم داشتم...

ببخشيد.