Transparent form

[loads]

سلام دوستان

آیا میشه یه فورم رو به حالت Transparent در آورد بدون اینکه button های ایجاد شده در فورم

به حالت Transparent در بیان ؟ ( یعنی فقط خود فرم Transparent بشه )

ممنون

[رضا علوی]

:چشمک: سلام دوست گرامی
نمونه کد را برای شما اینجا تایپ کرده ام:


Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000 '&H70000 &H60000

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 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

Dim Retval As Long


Private Sub Form_Load()
Me.BackColor = RGB(255, 0, 0)

Retval = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Retval = Retval Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Retval
SetLayeredWindowAttributes Me.hWnd, RGB(255, 0, 0), 0, LWA_COLORKEY
End Sub

[loads]

خیلی ممنون دوست عزیز دقیقا همونی بود که میخواستم

بازهم متشکرم

[hosin20]

چطور میشه در زمان اجرای برنامه در vb شئ رسم کرد
به طوری که بتونیم به تعداد دلخواه رسم کنیم
ممنون

[Black_Strom]

سلام
اگر کسی میتونه این مشکل را حل کنه :
لینک تایپیک : http://barnamenevis.org/showthread.php?394035