PDA

View Full Version : سوال: چجوری یک فرم به طور تدریجی محو بشه



kordestan
جمعه 09 فروردین 1392, 00:32 صبح
سلام دوستان...چجوری میشه یه فرم رو به صورت تدریجی محو کرد...برای فرم لوگین میخوام...کسی کدش رو بلده؟؟:متفکر:

aliasghar2
جمعه 09 فروردین 1392, 00:34 صبح
سلام
باید بایه تامیر مقدار opacity فرمت رو کم کنی

arash691
جمعه 09 فروردین 1392, 00:42 صبح
از قسمت رخداد فرم لاگینت event / formclosing کد زیر رو بنویس ...


for (int i = 0; i < 9; i++)
{
this.TopMost = false;
this.Refresh();
this.Opacity -= 0.1;
System.Threading.Thread.Sleep(30);
}

kordestan
جمعه 09 فروردین 1392, 00:43 صبح
ممنون دوست من...
منظورت اینه که opacity رو منهای عددی بکنم تا در نهایت به صفر برسه؟؟؟؟

daneshjo90
جمعه 09 فروردین 1392, 02:34 صبح
با سلام دوست عزیز خواهشا قبل از زدن تاپیک یه سرچی میکردی خوب بود

بیا اینم لینک تاپیک که نگی گشتم نبود

http://barnamenevis.org/showthread.php?95001-1001-%D9%86%DA%A9%D8%AA%D9%87-%D8%AF%D8%B1-%D8%B3%DB%8C-%D8%B4%D8%A7%D8%B1%D9%BE&p=467568#post467568

موفق باشی

kordestan
جمعه 09 فروردین 1392, 03:26 صبح
سلام..شما که زحمت این تاپیک رو کشیدید....میشه یه لینک معرفی کنید که تو ویژوال 2012 چطوری میشه گزارشگیری کرد؟؟؟:متفکر:آخه چند روزیه سوالمو مطرح کردم و سرچ هم کردم ولی هموز جوابی نگرفتم..:ناراحت:

ali_habibi1384
جمعه 09 فروردین 1392, 11:11 صبح
سلام..شما که زحمت این تاپیک رو کشیدید....میشه یه لینک معرفی کنید که تو ویژوال 2012 چطوری میشه گزارشگیری کرد؟؟؟:متفکر:آخه چند روزیه سوالمو مطرح کردم و سرچ هم کردم ولی هموز جوابی نگرفتم..:ناراحت:
لطفا براي هر موضوع تاپيك جديد ايجاد نماييد.

mahdivita
جمعه 09 فروردین 1392, 11:21 صبح
سلام
بفرما
داخل textbox مقدار محو شدن رو وارد میکنی و محو میشه :لبخند:



Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Sub Command1_Click()
Dim Retval As Long
Retval = GetWindowLong(hWnd, -20)
Retval = Retval Or 524288
SetWindowLong hWnd, -20, Retval
SetLayeredWindowAttributes hWnd, 0, Val(Text1.Text), 2
End Sub

Hkarimi
جمعه 09 فروردین 1392, 18:54 عصر
سلام.
چرا از تابع AnimateWindow که API هست استفاده نمیکنید؟ البته فقط واسه محو کردن تدریجی نیس ولی خب این کارم انجام میده. نا گفته نماند که گفته میشه بهتره از توابع API حتی الامکان استفاده نشه ولی بهرحال میشه این کار رو به سادگی توسط این تابع انجام داد. تو همین سایت سرچ کنید، زیاد استفاده کردن.