api

[z_barnamenevis]

سلام

با تشکر از دوستان من چند تا تابع api برای زیبایی فرم می خواستم
خیلی جستجو کردم اما api های موجود برای فرم نبودند
ممنون می شم اگه کمک کنید

[Alireza_Salehi]

دقیقا چی کار می خواهید بکنید؟

[javad2000]

پیشنهاد می کنم برای زیبایی فرم، به جای استفاده از API از روش «فرم های غیر مستطیل» استفاده کنید. یعنی یک تصویر Gif شفاف را به BackGround فرم تبدیل کرده، سپس رنگ BackGround Color فرم را با رنگ Transparency Key آن یکی کنید تا یک فرم غیر مستطیل داشته باشید. البته باید برای جایگزینی دکمه Close و حرکت دادن فرم هم از طریق کد اقدام کنید. اگر راهنمایی دقیق تر خواستید، لینک راهنمای مایکروسافت رو تقدیم کنم.

[z_barnamenevis]

من می خواستم در فرم موقع hide شدن با حالت محوی این عمل انجام شود مطمینا این فرم ها را دیدید
خیلی ممنون

[saeed_rezaei]

سلام
بدون api هم می شه این کار رو انجام داد. هر فرمی خاصیتی داره با عنوان opcity که شفافیت فرم رو تعیین می کنه. شما باید هنگامی که فرمتون مخفی می شه در یک حلقه و یا با استفاده از یک تایمر میزان این opcity رو کم کنید.
برای نمونه یه فرم خالی ایجاد کن.
روی فرم یک کنترل button و یک کنترل timer قرار بده .
حالا کد زیر رو توی فرمت انتقال بده.



PublicClass Form1
Dim i AsDouble = 1
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
EndSub
PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
i = i - 0.1
Me.Opacity = i
IfMe.Opacity <= 0 Then
Me.Hide()
timer1.enabled=false
end if
EndSub
EndClass

حالا اگه برنامه رو اجرا کنی و دکمه button رو کیک کنی می بینی که فرم آهسته آهسته محو می شه
اما یادت باشه هنگام show کردن فرم. باید دوباره opcity رو برابر 1 قرار بدی

[eyes_shut_number1]

از این کد توی رویدادی که میخوای استفاده کنی این کد را وارد کن
Timer1.Enabeled=True



Public Class Form1 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Opacity -= 0.1
if Me.Opacity <= 0 Then Me.Hide()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
End Sub
End Class