روي خط سي شارپ ‍‍C#

» .

منوي كاربري

پيغام مدير : خواندنیهای جالب
-------------------------------------
روزی دست پسر بچه ای که در خانه با گلدان کوچکی بازی می کرد، در آن گیر کرد و هر کاری کرد، نتوانست دستش را از گلدان خارج کند. به ناچار پدرش را به کمک طلبید. اما پدرش هم هر چه تلاش کرد نتوانستند دست پسر را از گلدان خارج کنند. پدر دیگر راضی شده بود به شکستن گلدان که تصادفا خیلی هم گرانقیمت بود، فکر کند. قبل از این کار به عنوان آخرین تلاش به پسرش گفت: دستت را باز کن، انگشت هایت را به هم بچسبان و آنها را مثل دست من جمع کن. آن وقت فکر می کنم دستت بیرون می آید.
پسر گفت: "می دانم اما نمی توانم این کار را بکنم."
پدر که از این جواب پسرش شگفت زده شده بود پرسید: "چرا نمی توانی؟"
پسر گفت: "اگر این کار را بکنم سکه ای که در مشتم است، بیرون می افتد." شاید شما هم به ساده لوحی این پسر بخندید اما واقعیت این است که اگر دقت کنیم می بینیم همه ما در زندگی به بعضی چیزهای کم ارزش چنان می چسبیم که ارزش دارایی های پرارزشمان را فراموش می کنیم و در نتیجه آنها را از دست می دهیم

(به خاطر بعضی از چیز ها خیلی از چیز ها را از دست داد)
--------------------------------------------------------------------------
کسانی که گذشته را به یاد نمی آورند محکوم به تکرار آن هستند
--------------------------------------------------------------------------
براي رسيدن بايد راه رفت (مهندس مهدي دلير)
--------------------------------------------------------------------------
مي خواهم ولي نمي توانم، افسوس كه مي توانستم ولي نخواستم!!
هميشه مراقب اشتباه دوم باش، اشتباه اول حق توست!!
--------------------------------------------------------------------------
لشكر گوسفندانی كه توسط یك شیر اداره میشود، میتواند لشكر شیرانی را كه توسط یك گوسفند اداره میشود، شكست دهد
--------------------------------------------------------------------------
زندگی مثل دوچرخه سواری است؛ برای حفظ تعادل بایدحرکت کرد.............
--------------------------------------------------------------------------
هر روز ما آف هامونو باز می کنیم و پیام هایی رو که دوستامون فرستادن می خونی ... اما تا حالا چند بار "قرآن" رو باز کردیم تا پیام هایی رو که خداوند فرستاده بخونیم
--------------------------------------------------------------------------
دیگران را ببخش نه برای اینکه آنان لایق ببخشش هستند بلکه به خاطر اینکه تو لایق آرامشی
--------------------------------------------------------------------------
و این آغاز انسان بود...

از بهشت که بیرون آمد، دارایی اش یک سیب بود. سیبی که به وسوسه آن را چیده بود. و مکافات این وسوسه هبوط بود.

فرشته ها گفتند: تو بی بهشت می میری. زمین جای تو نیست. زمین همه ظلم است و فساد.

انسان گفت: اما من به خود ظلم کرده ام. زمین تاوان ظلم من است. اگر خدا چنین می خواهد، پس زمین از بهشت بهتر است.

خدا فرمود: برو و بدان جاده ای که تو را دوباره به بهشت می رساند از زمین می گذرد، زمینی آکنده از شر و خیر، آکنده از حق و از باطل، از خطا و صواب، و اگر خیر و حق و صواب پیروز شد تو باز خواهی گشت وگرنه...

و فرشته ها همه گریستند. اما انسان نرفت. انسان نمی توانست برود. انسان بر درگاه بهشت وامانده بود. می ترسید و مردد بود. و آن وقت خدا چیزی به انسان داد. چیزی که هستی را مبهوت کرد و کائنات را به غبطه واداشت.

انسان دست هایش را گشود و خدا به او اختیار داد.

خدا فرمود: حال انتخاب کن. زیرا که تو برای انتخاب کردن آفریده شدی. برو و بهترین را برگزین که بهشت، پاداشِ به گزیدن توست. عقل و دل هزاران پیامبر نیز با تو خواهند آمد، تا تو بهترین را برگزینی. و آنگاه انسان زمین را انتخاب کرد. رنج و نبرد و صبوری را. و این آغاز زندگی انسان بود.

--------------------------------------------------------------------------
هر 3 ثانیه یکی تو دنیا میمیره
بشمار1 2 3 همین الان یکی مرد یادت باشه یکی از این 3 ثانیه ها نوبت من و توه
--------------------------------------------------------------------------
به نظر تو قرآن برای چی نازل شد فقط برای اینکه یک نگاهی به جلدش بکنیم
تاحالا چند تا کتاب خوندی ازکتاب درسی گرفته تا کتاب شعر
حتما یلی خوندی اما یک بار شده با حوصله معنی قرآن را بخونی
این چه برنامه ی زندگی بزای من و توه که تاحالا حتی اون را کامل نخوندیم چه برسه به اینه روش فکر کنی
تا حالا شده فکر کنی که چرا من وتو نمی تونیم مثل اون کتابی بیاریم
--------------------------------------------------------------------------
چند قورباغه از جنگلي عبور مي کردند که ناگهان دو تا از آنها به داخل گودال عميقي افتادند.
بقيه قورباغه ها در کنار گودال جمع شدند و و قتي ديدند که گودال چقدر عميق است به دو قورباغه ديگر گفتند :
ديگر چاره ايي نيست .شما به زودي خواهيد مرد .
دو قورباغه حرفهاي آنها را نشنيده گرفتند و با
تمام توانشان کوشيدند تا از گودال خارج شوند.
اما قورباغه هاي ديگر دائما به آنها مي گفتند که دست از تلاش برداريد چون نمي توانيد از گودال خارج شويد ?
به زودي خواهيد مرد . بالاخره يکي از قورباغه ها تسليم گفته هاي ديگر قورباغه ها شد و دست از تلاش برداشت .
او بي درنگ به ته گودال پرتاب شد و مرد.
اما قورباغه ديگر با حداکثر توانش براي بيرون آمدن از گودال تلاش مي کرد .
بقيه قورباغه ها فرياد مي زدند که دست از تلاش بردار ?
اما او با توان بيشتري براي بيرون آمدن از گودال تلاش مي کرد و بالاخره از گودال خارج شد.
وقتي از گودال بيرون آمد بقيه قورباغه ها از او پرسيدند : مگر تو حرفهاي ما را نشنيدي ؟
معلوم شد که قورباغه ناشنوا است و در واقع او در تمام راه فکر مي کرده که ديگران او را تشويق مي کنند .
--------------------------------------------------------------------------

لوگوي ما

خبرنامه

لينك دوستان

لينكدوني

منوي اصلي

نويسندگان

موضوعات

آرشيو ماهانه

جستجوگر

آمار و کدهاي جاوا

طراح قالب

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

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

این برنامه نشان می دهد چگونه فرم هایی بصورت دایره و یا بیضی در ویژوال بیسیک طراحی کنیم .

در ابتدای برنامه توابع مورد نیاز را از ویندوز فراخوانی می کنیم

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

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

Private Sub Form_MouseDown(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

حال تابع SetWindowRgn را مقدار دهی میکنیم . ( این قطعه کد را در رویداد Form_Load بنویسید ) :

SetWindowRgn hWnd, CreateEllipticRgn(0, 0, 300, 300), True

مثلا مقادیر 300 و 300 شکل فرم بصورت دایره در می آید برای شکل بیضی شما میتوانید این مقادیر را 200 و 300 اختیار کنید .( بهتر است که خاصیت boarderStyle را 0-None در نظر بگیرید)

نوشته شده توسط حامد نعیمایی در سه شنبه 10 مهر1386

لينك ثابت

..: آخرين ارسال ها :..