سلسلة - أكواد الأكسس ( 1 ) — منتديات الفريق العربي للبرمجة

هذا كود فيجويل بيسك يحتاج لبعض التعديل من خبراء الأكسس لكي يعمل على الأكسس وأنا لا أجيد ذلك واترك الحل لدى المختصين

=======================

Sub Explode(frm As Form)

frm.Width = 0

frm.Height = 0

frm.Show

For x = 0 To 5000 Step 1

frm.Width = x

frm.Height = x

With frm

.Left = (Screen.Width - .Width) / 2

.Top = (Screen.Height - .Height) / 2

End With

End Sub

Private Sub Form_Load()

Explode Me

End Sub

كوووووووووووووووووووووووود يجنن والله وهو عباره عن أن الفورم ينفتح من الوسط بطررررررريقه رهيبه وجميله .

---------------------------------------------

هذا الكود والكلام الذي معه نقلته لكم من أحد المنتديات كما هو دون تغيير أو تحريف

وهذا أيضاً منقول كما هو..

=====

( أحلى كود مهما كان ) مفاجاة مقرش لكم هذا الكوووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووود

أولا ً : أضف ثلاث command تحت بعض بالترتيب .

ثانياً: أضف زر timer وأضبط خاصية intever على : 1

ثالثاً : حدد الفورم وأهب إلى خصائصه :

1/ الخاصية : appearnce على 3d .

2/ الخاصية : backcolor على اللون الأسود .

3/ الخاصية : clipcontrols على true .

4/ الخاصية : drawmode على رقم 13 .

5/ الخاصية : drawstyle على رقم صفرsolid .

6/ الخاصية : drawWidth أكتب رقم 1 .

7/ الخاصية : fillstyle على رقم 1 transparent .

8/ الخاصية : hasDC على true .

9/ الخاصية : linkmode على صفر none .

10/الخاصية : linktopic أكتب فيها from1 .

11/الخاصية : maxbutton على falsa .

12/الخاصية : MDIchild على falsa .

وقت فاصل: تخيلو يطلع بايخ شو بتسوو فيني . (تكمله تحت)

13/الخاصية : minbutton على true .

14/الخاصية : moveable على true .

15/الخاصية : negotiateMenus على true .

16/الخاصية : OLEDropMode على صفر none .

17/الخاصية : scalemode على 3-pixel .

18/الخاصية : showInTaskber على false .

19/الخاصية : startUpPosition على 2- conterScree .

20/الخاصية : whatsthisButton على false .

21/الخاصية : whatsThisHelp على true .

22/الخاصية :windowstate على صفر normal .

رابعاً : أضف هذا الكود لديك :

Private Declare Function CreateRectRgn Lib "gdi32" (ByVal _

X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _

ByVal Y2 As Long) As Long

Private Declare Function CombineRgn Lib "gdi32" (ByVal _

hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal _

hSrcRgn2 As Long, ByVal nCombineMode As Long) _

As Long

Private Declare Function SetWindowRgn Lib "user32" (ByVal _

hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As _

Long) As Long

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc _

As Long, ByVal x As Long, ByVal y As Long) As Long

Const RGN_OR = 2

Const RGN_DIFF = 4

Dim mHeight As Long, mWidth As Long

Private Sub Command1_Click()

mHeight = Me.ScaleHeight

mWidth = 0

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()

mHeight = 0

mWidth = Me.ScaleWidth

Timer1.Enabled = True

End Sub

Private Sub Command3_Click()

mHeight = Me.ScaleHeight

mWidth = Me.ScaleWidth

Timer1.Enabled = True

End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()

Dim Region& ' Dimensioniere den aktuellen Pixel

Dim Zusammenfassung& ' Grupiere die Regionen

'// Legen den Speed fest

Speed = 6

'// Lege die Startposition fest

mTop = Me.ScaleHeight / 2 - mHeight / 2

mLeft = Me.ScaleWidth / 2 - mWidth / 2

'// Tus solange, wie die Form in der Height nicht vollstنndig wieder

'// Dargestellt wurde.

If mHeight > -Me.ScaleHeight Then

mHeight = mHeight - Speed

End If

'// Tus solange, wie die Form in der Breite nicht vollstنndig wieder

'// Dargestellt wurde.

If mWidth > -Me.ScaleWidth Then

mWidth = mWidth - Speed

End If

'// Wenn die Form fertig dargestellt wurde, dann den

'// Timer abschalten.

If mHeight <= -Me.ScaleHeight And mWidth <= -Me.ScaleWidth Then

Timer1.Enabled = False

End If

'// Hier wird die Region generiert

Region = CreateRectRgn(mLeft, mTop, mLeft + mWidth, mTop + mHeight)

'// Hier wird die Region ausgeführt

Call SetWindowRgn(Me.hWnd, Region, True)

End Sub

لا تنسوووووووووووووووووووووووووووووو تعطوني رايكم ناظرو شو فيه وعلموووووووووني إن شاء الله يعجبكم .

=======

وللجميع حياتي

سلسلة - أكواد الأكسس ( 1 )

مواضيع مشابهة