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

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

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

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

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

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

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

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

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

کد:

---

MsgBox Chr(KeyAscii)

---

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

کد:

---

MsgBox KeyAscii

---

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

کد:

---

If Chr(KeyAscii) = "1" Then
    Label1.Caption = "آموزش"
ElseIf Chr(KeyAscii) = "2" Then
    Label1.Caption = "گزارش"
ElseIf Chr(KeyAscii) = "3" Then
    Label1.Caption = "آمار"
End If

---

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

کد:

---

Private Sub Form_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = "1" Then
    Label1.Caption = "آموزش"
ElseIf Chr(KeyAscii) = "2" Then
    Label1.Caption = "گزارش"
ElseIf Chr(KeyAscii) = "3" Then
    Label1.Caption = "آمار"
End If
End Sub

---

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

کد:

---

Select Case (Chr(KeyAscii))
    Case "1":
        Label1.Caption = "آموزش"
    Case "2":
        Label1.Caption = "گزارش"
    Case "3":
        Label1.Caption = "آمار"
End Select

---

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

نقل قول:

---

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

---

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

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

نقل قول:

---

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

---

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

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

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

کد:

---

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbRed
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbBlack
End Sub

---

دو
سوال رو درست متوجه نشدم لابد منظورت اينه مي خواهي همين چيزايي كه تو اين فرمت داري توي فرم ديگه كپي كني خوب با 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

---

کد:

---

Private Sub Form_Load()
SetWindowRgn hWnd, CreateEllipticRgn(0, 0, 350, 200), True
End Sub

---

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

کد:

---

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

MousePointer = 15
  Call ReleaseCapture
  Call SendMessage(hWnd, &HA1, 2, 0&)
  MousePointer = 1
 
End Sub

---

چهار

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