یک سوال در مورد vb 6 * لطفا جواب بدید *

Printable View

06-02-2011, 22:00
hasan0be

یک سوال در مورد vb 6 * لطفا جواب بدید *

با سلام : دوستان عزیز من سال دوم کاپیوتر هستم و درس برنامه سازی در مدرسه تازه شروع به تدریس شده است .
و چیزی از برنامه نویسی سر در نمیارم .

دوستان اگر میتوانید در مورد این برنامه من را راهنمایی کنید ...

* برنامه ای بنویسید که با زدن یک دکمه , رنگ 2 { LABEL } تعویض شود . ( رنگ LABEL 1 و LABEL 2 عوض شود )

ممنون میشوم اگر به این سوال جواب بدید.

لطفا جواب پاسخ را در قسمت پائین ثبت کنید .
یا به وب سایت

کد:

www.vatanpc.tk

بروید و در قسمت تماس با مدیر جواب خود را ثبت کنید .
07-02-2011, 12:18
fatiiiiii

جواب:

کد:

Private Sub Command1_Click() Label1.BackColor = vbBlue Label2.BackColor = vbGreen End Sub
07-02-2011, 12:20
fatiiiiii

ویژوال بیسیک آسون ترین زبان برنامه نویسی هست که میخونی.سخت نگیرش.همش که انگلیسیه.اگه زبانت یکم خوب باشه راحت متوجه برنامه ها میشی.اگه کمک خواستی من در خدمتم.:20:
07-02-2011, 12:22
Mohsen.Sh_PC

من هم سوم کامپیوترم:20:
و واقعا برنامه سازی درس خیلی خوبیه:46:
فقط کافیه این کد رو توی یک دکمه بزاری و دوتا لیبل هم بزاری

کد:

Label1.BackColor = vbRed Label1.BackColor = vbGreen

البته میشه با تابع Rnd رنگ های متفاوت ایجاد کرد.
07-02-2011, 14:55
hasan0be

سلام دوست عزیز خیلی ممنون که سوال من رو جواب دادی .
میخواستم بدونم چگونه میشه رنگ 2 تا label را عوض کرد .
ممنون میشم
07-02-2011, 16:31
farshidshd

اینو دانلود کن ::

کد:

http://farshidshd.persiangig.com/ForSite/P30Forum/draw3.zip
07-02-2011, 16:41
amirxbest

دوست عزیز فرشید جان فکر کنم سورسی که شما گذاشتی درک کردنش واسه کسی که تازه داره شروع میکنه خیلی سخت و نا مفهوم باشه.
طرف تازه شروع کرده ام تو سورس حلقه و... هست:13:
07-02-2011, 19:29
!Plus

نقل قول:

* برنامه ای بنویسید که با زدن یک دکمه , رنگ 2 { LABEL } تعویض شود . ( رنگ LABEL 1 و LABEL 2 عوض شود )

یه دکمه و دو تا label به فرمتون اضافه کنید... و رنگ label ها رو یکی مثلاً قرمز و اون یکی رو مثلاً آبی کنید...!؟! :13:

و بعد رو دکمه دابل کلیلک کنید... تا وارد محیط کد نویسی بشید... بعد این کد ها رو توش کپی کنید...!؟! :

کد:

Dim tmpColor As Long tmpColor = label2.forecolor label2.forecolor = label1.forecolor label1.forecolor = tmpColor

یعنی الان کل کد های داخل محیط کد نویسی باید اینجوری باشه...!؟! :

کد:

Private Sub Command1_Click() Dim tmpColor As Long tmpColor = Label2.ForeColor Label2.ForeColor = Label1.ForeColor Label1.ForeColor = tmpColor End Sub

اینم فایل های پروژه ش...!؟! :

کد:

File name: Project.zip File size: 1.19 KB Server : FileServe.com Link : http://www.fileserve.com/file/NjjEqBu

اگه مشکلی بود... بگید تا بیشتر راهنمایی تون کنم...!؟! :20:

موفق باشید...!؟! :46:
07-02-2011, 20:18
hasan0be

دوستان عزیز دست همتون درد نکنه ...
خیلی خیلی ممنون که من رو راهنمایی کردید
07-02-2011, 20:22
hasan0be

دوستان حالا چه جور میشه رنگ LABEL رو تو داخل کد تائین کنی بعد رنگ BACKCOLOR عوض بشه
ممنون میشم
07-02-2011, 22:44
fatiiiiii

نقل قول:

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

دوستان حالا چه جور میشه رنگ LABEL رو تو داخل کد تائین کنی بعد رنگ BACKCOLOR عوض بشه
ممنون میشم

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

کد:

Label1.BackColor = vbRed Label2.BackColor = vbBlue

رنگ LABEL رو تو کد تعیین کردم.

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

کد:

Label1.BackColor = vbgreen Label2.BackColor = vbyellow