درخواست از اساتید برنامه نویس

[Dreamland]

سلام..........اساتید برنامه نویس
یه سوالی داشتم عزیزان
برنامه ای میشه نوشت که مثلا براش تعریف کنی عدد 1 رو زدی تو جاخالی بنویسه آموزش
2 رو زدی بنویسه گزارش
3 رو زدی بنویسه آمار
به همین ترتیب
چند تا کلمس که اگه بشه میگم تو بانک اطلاعاتیش تعریف کنید
به زور 10 تا میشه
دوستان خیلی به این برنامه احتیاج دارم
تو رو خدا کمکم کنین

[Peyman2003]

خب با دستور Select Case ميشه اين كار رو بكني

[عــــلی]

سلام بر بروبکس قدیمی...حال شما؟
عیدتون مبارک باشه..ایشاالله سیصدو شصت و یک روزو سه ساعت و نیم زنده باشید و سرحال و شاد و خرم و موفق و سلامت.
خوب ممنون از داش پیمان بخاطر توضیح مختصرشون

منم یه توضیح درست و و حصابی به این داش میلاد بدم.

برو تو پنجره Properties و گزینه KeyPreview رو انتخاب و خاصیتشو True قراربده.
این خاصیت برای اینه که شما کلیدی که توی فرم میزنید اگه مثلاً توی یک تکسباکس باشید کار نمیکنه مگر اینکه خاصیتش True باشه که در این صورت روی هر کنترلی هم باشید باز رویداد KeyPress یا KeyDown یا... کار میکنه.

خوب به فرض اینکه شما میخواید متن Label رو عوض کنید.

روی فرم دوبار کلیک کنید و از کمبوباکس سمت راست بالای پنجره کد، رویداد KeyPress رو انتخاب و وارد محیط کد رویداد بشید.

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

تا اینجا ما فهمیدیم که وقتی کلیدی زده شد با این رویداد و با یک خط کد میتونیم بفهمیم که چه کلیدی فشرده یا زده شد.
خوب شما میخواید وقتی 1 رو زد بنویسه آموزش و 2 رو زد بنویسه آمار...
خوب شما هم میتونی از دستور IF استفاده کنی و هم از دستور Select.من هر دو رو برات مثال میزنم:
کد زیر رو تو خاصیت KeyPress تایپ کن:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

که کد کلی شما میشه:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

یا اینکه به جای IF از دستور Select استفاده کنید که توصیه میشه:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

به همین سادگی...
موفق باشید و سربلند دوست من.

[Peyman2003]

سیصدو شصت و یک روزو سه ساعت و نیم زنده باشید و سرحال و شاد و خرم و موفق و سلامت

نه ديگه نشد اينطوري، اينقدر كه خيلي كم هستش ها!!

[عــــلی]

آخ ببخشید حواسم نبود....منظورم سال بود

[Peyman2003]

سیصدو شصت و یک روزو سه ساعت و نیم

چند روزش رو جا گذاشتي يعني اون روزها ديگه هرچي بلا هست سرمون در بياد ديگه!!!
جبران اون سيصد خرده روز بشه آره!

[bamaram.u]

سلام من هم سوالی داشتم ولی مثل اینکه آقایون برنامه نویس فقط به پروفشنال به بالا جواب می دن
سوالم رو دوباره اینجا می پرسم شاید با حرف بالا یکم وجدانتون رو قلقلک داده باشم و به من جواب بدین
1)من می خوام کاری کنم که اگه موس رفت روی فلان دکمه مثلا رنگش عوض بشه آیا راهی توی ویژوال برای این کار وجود داره؟
2)من چطور می تونم از فرمها کپی بگیرم فقط فرم نه کل پروژه
3)می خوام فرمم رو جوری طراحی کنم که مربع یا مستطیل نباشه مثلا ستاره یا بیضی باشه
4)کد کلیدهای درختی رو هم می خوام
کسی اگه جواب سوالاتم رو بده تا آخر عمر مدیونش میشم

[Peyman2003]

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

دو
سوال رو درست متوجه نشدم لابد منظورت اينه مي خواهي همين چيزايي كه تو اين فرمت داري توي فرم ديگه كپي كني خوب با Ctrl+A روي فرمت و كپي كني و بعدش پيست و تو قسمت كد ميري باز همين كار ميكني

سه
اينو در قسمت عمومي بيان كن

Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "USER32" () As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" _
(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _
ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "USER32" _
(ByVal hWnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

اطلاعات اضافي ببين خاصيت BorderStyle=0 - None ميذاري و واسه اينكه برنامت بسته بشه يه دكمه بذار توش end بنويس و واسه اينكه فرمت حركت بتونه بكنه با موس اين كد

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

چهار

"کد کلیدهای درختی" بازم منظورتون رو نفهميدم تا حالا اين چنين چيزي نشنيده بودم!