بابک زواری
چهارشنبه 15 تیر 1384, 00:20 صبح
دوستان خواسته بودن تا سورس نمایش Alter Formرو بذارم اینجا تا تغییر بدن و کامل کنن و از اینجور کارهای کلاس بالا.
فقط اگر کاملش کردین برای بقیه هم بذارین
Public Function DisplayAlert(MessageText As String, Optional sTitle As String = "", Optional tIcon As IconType = 64, Optional Duration As Integer = 3, Optional Sound As SoundType = 20, Optional cFont As Long = 16777215, Optional cColor1 As Long = 0, Optional cColor2 As Long = 12582912) As String
On Error GoTo errtrap
Dim AlertBox As frmAlert
Set AlertBox = New frmAlert
AlertBox.Display MessageText, sTitle, tIcon, Duration, Sound, cFont, cColor1, cColor2
DisplayAlert = vbNullString
Exit Function
errtrap:
DisplayAlert = Err.Description
End Function
فقط اگر کاملش کردین برای بقیه هم بذارین
Public Function DisplayAlert(MessageText As String, Optional sTitle As String = "", Optional tIcon As IconType = 64, Optional Duration As Integer = 3, Optional Sound As SoundType = 20, Optional cFont As Long = 16777215, Optional cColor1 As Long = 0, Optional cColor2 As Long = 12582912) As String
On Error GoTo errtrap
Dim AlertBox As frmAlert
Set AlertBox = New frmAlert
AlertBox.Display MessageText, sTitle, tIcon, Duration, Sound, cFont, cColor1, cColor2
DisplayAlert = vbNullString
Exit Function
errtrap:
DisplayAlert = Err.Description
End Function