عبد الله فتحي

(f)الكود الثالث بعد المائة(f) تحريك Label بشكل طولي. Private Sub Form_Load() Timer1.Interval = 100 End Sub Private Sub Timer1_Timer() Label1.Move 2000, Label1.Top - 100 If Label1.Top < 0 Then Label1.Top = Form1.Height End If End Sub

(f)الكود الثاني بعد المائة(f) تحريك 2 Label مع تغيير ألوانهما. Private Sub Form_Load() Timer1.Interval = 100 Timer2.Interval = 100 Label1 = "Welcome" Label2 = "Good Bey" End Sub Private Sub Timer1_Timer() Label1.ForeColor = QBColor(Rnd * 15) Label1.Left = Labe…

(f)الكود الأول بعد المائة(f) ظهور الـ Label في أماكن عشوائية وبألوان عشوائية. Private Sub Form_Load() Timer1.Interval = 250 End Sub Private Sub Timer1_Timer() Randomize Label1.ForeColor = QBColor(Rnd * 13) Label1.Left = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Lab…

(f)الكود المائة(f) ظهور الفورم بأحجام وألوان عشوائية ... تخاريف:D Private Sub Form_Load() Timer1.Interval = 250 End Sub Private Sub Timer1_Timer() Randomize Me.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Me.Move Rnd * 12000, Rnd * 9000, Rnd * 12000, Rnd *…

(f)الكود التاسع والتسعون(f) كود بسيط لالتقاط صورة للشاشة في الحافظة. Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Sub Command1_Click() keybd_event vbKeySnaps…

(f)الكود الثامن والتسعون(f) السماح بكتابة حروف إنجليزية فقط في مربع النص. Private Sub Text1_KeyPress(KeyAscii As Integer) If (KeyAscii >= Asc("a") And KeyAscii <= Asc("z")) Or (KeyAscii >= Asc("A") And KeyAscii <= Asc("Z")) Then Else KeyAscii = 0 End If End Su…

(f)الكود السابع والتسعون(f) السماح بكتابة أرقام فقط داخل مربع النص. Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0 End If End Sub

(f)الكود السادس والتسعون(f) السماح بإدخال تاريخ فقط في مربع النص. Dim i As Integer Dim t1 As String Dim t2 As String Public Sub AutoDate(TextBoxName As TextBox, ByVal keyasci As Integer) If Val(keyasci) = 8 Then If TextBoxName.Text = Empty Then i = 0 Else i = …

جزاك الله كل خير يا أخي العزيز .. وشكرا لمجهودك الرائع وإن شاء الله من الموفقين بإذن الله (f) ...

رائع أخي bibo جهد موفق ... أتمنى لك التوفيق(f)

لا أعتقد ... والسبب في ذلك هو أن الدالة SetLayeredWindowAttributes غير موجودة في ملف الـuser32.dll المرفق مع الويندوز 98 ،، وهذه الأداة مسؤولة عن الشفافية ، ويمكن بواسطتها أيضاً جعل الفورم شفافة .... وفي الحقيقة كنت قد حاولت أنا والأخ NOP البحث عن بديل لها في …

أهلا بك أخي جادو .... ما هي إصدارة الويندوز التي قمت باستخدام الكود من عليها ..؟؟؟ هذا الكود لا يعمل إلا مع الويندوز إكس بي أو 2000 ... وأغلب الظن أنك استخدمته على إصدارة الويندوز 98 أو الملينيوم لأنهما لا يحتويان على الدالة:SetLayeredWindowAttributes... في ان…

العفو:o هذا واجبنا:rolleyes:

آخر شيء:D قم بإدراج الأداة في الفورم، ثم اكتب السطرين التاليين كأوامر: Skin1.LoadSkin ("c:galaxy.skn") ويقوم هذا السطر بتحميل السكن الذي تريد تطبيقه على الفورم، وذلك من المكان الذي قمت بوضع السكن فيه. Skin1.ApplySkin (Me.hWnd) هذا السطر يقوم بتطبيق السكن على ا…

ثالث شيء قم بالدخول إلى الفيجول وأدرج أداة الأكتف سكن في برنامجك، وذلك عن طريق الضغط على Ctrl + T ثم اختر Browse ثم قم بتحديد أداة الأكتف سكن 4 من مجلد السيستيم للويندوز، ثم اضغط موافق.

ثاني شيء الملف المرفق ملف مضغوط به سكن يمكنك استخدامها في برنامجك، قم بفك الضغط في أي مكان يعجبك، على سبيل المثال قم بفك الضغط على الـ c: مباشرة. galaxy.zip

أول شيء الملف المرفق ملف مضغوط به أداة الأكتف سكن 4، قم بفك الضغط على مجلد السيستيم للويندوز: Win98 = System WinXp = System32 actskin4.zip

سهلة جداً;)

بعد التحية لجميع الأعضاء: مرفق مع هذه الرسالة كود رائع لجعل الـ TaskBar شفافاً بحيث تظهر النوافذ الأخرى من ورائه.(f) trans_taskbar.zip

بالتوفيق إن شاء الله(f)(f)