با سلام
من ی کد دارم که قبل اینکه فرم برای یوزر و پسورد بیاد ی لوگو یا ی فرم رو قبلش میاره
اما نمیدونم چرا ارور میده
من ی کد دارم که قبل اینکه فرم برای یوزر و پسورد بیاد ی لوگو یا ی فرم رو قبلش میاره
اما نمیدونم چرا ارور میده
کد:
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
کامنت