6542.jpg') no-repeat;width:955;height:184;float:right} .titr{color:#dbdbdb;text-align:right;font-size:25pt;font-weight:bold;direction:rtl;padding:160 650 0 40;font-family:Times New Roman;} .des{padding:0 650 0 50;direction:rtl;font-size:10pt;color:#000000;text-align:right;font-weight:bold;height:100;overflow:hidden;} .menu{width:270;vertical-align:top;padding:0 40 0 0;} .menu1{border:1px solid #252525;width:197;float:right;padding-bottom:5;} .tmenu{width:197;float:right;height:30;background:url('http://mahtarin.com/weblog/images/mxe.jpg') no-repeat;font-size:10pt;color:#c3c3c3; font-weight: bold;direction:rtl;} .tmenu1{padding:7 10 0 0;} .xmenu{width:197;float:right;} .xmenu1{padding:4;} .xmenu2{width:189;float:right;font-size:9pt;direction:rtl;color:#e1911f;background:#2e2a23;} .xmenu2p{padding:2 8 4 5;background:#2e2a23;} .xmenu2p a:hover{color:#ffffff;} .xmenu2p a{color:#999999;} .post{width:650;vertical-align:top;} .tpost{width:644;float:right;height:44;background:url('http://mahtarin.com/weblog/images/pxe1.jpg') no-repeat;} .bpost{width:644;float:right;height:42;background:url('http://mahtarin.com/weblog/images/p374.jpg') no-repeat;} .bpost1{padding:13 20 0 0;font-size:8pt;direction:rtl;color:#dbdbdb;} .bpost1 a{color:#dbdbdb;} .tpost1{padding:12 80 0 10;float:right;font-size:14pt;direction:rtl;color:#ffffff;height:30;font-weight:bold;font-family:Times New Roman;} .tpost1 a{color:#ffffff;} .xpost{width:644;float:right;font-size:9pt;direction:rtl;color:#ffffff;background:url('http://mahtarin.com/weblog/images/pxe2.jpg') repeat-y;} .xpost a{color:#ffffff;} .xpost1{padding:10 15 10 15;} .sp{width:100%;float:right;height:40;} .bt{float:right;height:50;} .page{width:630;float:right;text-align:center;font-size:8pt;color:#666666;direction:rtl;} .page a{color:#999999;font-size:9pt;}
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 خوب اکنون کد زیر را در رویداد (Event) مربوط به لحظه ای که کلید موس را بروی فرم فشردیم قرار می دهیم تا بتوانیم با فشردن موس در هر جای فرم به راحتی آن را جابجا کنیم .
حال تابع SetWindowRgn را مقدار دهی میکنیم . ( این قطعه کد را در رویداد Form_Load بنویسید ) : SetWindowRgn hWnd, CreateEllipticRgn(0, 0, 200, 200), True مثلا مقادیر 200 و 200 شکل فرم بصورت دایره در می آید برای شکل بیضی شما میتوانید این مقادیر را 200 و 300 اختیار کنید .( بهتر است که خاصیت boarderStyle را 0-None در نظر بگیرید) ::: منتظر نظرات سازنده تان هستیم ::: نظرات شما عزیزان: |
|