با سلام
من ی کد دارم که قبل اینکه فرم برای یوزر و پسورد بیاد ی لوگو یا ی فرم رو قبلش میاره
اما نمیدونم چرا ارور میده
کد:
Public Function trans(ByVal hwnd As Long, perc As Integer) As Long
Dim msg As Long
On Error Resume Next
If perc < 0 Or perc > 255 Then
trans = 1
Else
msg = GetWindowLong(hwnd, GWL_EXSTYLE)
msg = msg Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, msg
SetLayeredWindowAttributes hwnd, 0, perc, LWA_ALPHA
trans = 0
End If
If Err Then
trans = 2
End If
End Function
Private Sub Label2_Click()
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Activate()
Application.Windows.Application.Visible = False
Dim i As Integer
Dim i2 As Integer
For i = 0 To 250 Step (5)
trans Me.hwnd, i
tt = Timer
Do While Timer < tt + 0.1
DoEvents
Loop
Next i
For i2 = 450 To 0 Step (-5)
trans Me.hwnd, i2
tt = Timer
Do While Timer < tt + 0.1
DoEvents
Loop
Next i2
UserForm1.Show
End
UserForm2.Enabled = False
End Sub
 |
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
پاسخ با نقل قول
علاقه مندی ها (Bookmarks)