professional VB99

تغير لون النص بأستمرار ' ضع هذا الكود في الفورم Private Sub Timer1_Timer() Static Col1, Col2, Col3 As Integer Static c1, C2, C3 As Integer If (Col1 = 0 Or Col1 = 250) And (Col2 = 0 Or Col2 = 250) And (Col3 = 0 Or Col3 = 250) Then c1 = Int(Rnd * 3) C2 = Int(Rnd…

شكرا يا أخ ghost 2010 ولكن المتصفحين للمنتدى يمكن مايدلونه وشكرا جزيلاً :lol: :lol: :lol: :rolleyes:

عكس اتجاه النص ' ضع هذا الكود في الفورم Public Function reversestring(revstr As String) As String Dim doreverse As Long reversestring = "" For doreverse = Len(revstr) To 1 Step -1 reversestring = reversestring & Mid$(revstr, doreverse, 1) Next End Function Pri…

حساب عدد الحروف في النص ' ضع هذا الكود في الفورم Private Sub Command1_Click() MsgBox ("عدد الحروف = " + Str(Len(Text1.Text))) End Sub

ترجمة النجوم ******** ' ضع هذا الكود في الفورم Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Type POINTAPI x A…

جعل الفورم بالمقدمة بس الكود طويل ' ضع هذا الكود في الفورم Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal CX As Long, ByVal CY As Long, ByVal wFlags As Long) As Lon…

أبطال زر x في اعلى النافذه ' ضع هذا الكود في الفورم Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Cancel = True End Sub

إلغاء تفعيل زر الإغلاق في أعلى النافذة ' ضع هذا الكود في الموديول Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Lo…

إلغاء تفعيل زر التكبير في أعلى النافذة ' ضع هذا الكود في الفورم Option Explicit Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Al…

كود بسيط لجعل الفورم بالمقدمة ' ضع هذا الكود في الفورم Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) Private Sub For…

طباعة صفحة انترنت طبعا تحتاج الى اداة الانترنت 'تأكد من وجود الملف MSHTML.DLL في مجلد ال system Public Declare Function OpenProcess Lib "kernel32" _ (ByVal dwDesiredAccess As Long, _ ByVal bInheritHandle As Long, _ ByVal dwProcessId As Long) As Long Public Dec…

فورم شفاف ' ضع هذا الكود في الفورم Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd As Long, ByValcrKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Boolean Private Declare Function SetWindowLong Lib "user32" Alias "…

تحريك النص بطريقة جميله تحتاج الى label ' ضع هذا الكود في الفورم Private Sub Form_Load() Me.Label1.Top = 0 End Sub Private Sub Timer1_Timer() a = Me.Height b = 200 If Me.Label1.Top < a Then 'Me.Height Then Me.Label1.Top = Me.Label1.Top + b Exit Sub End If For …

حركة عند اغلاق الفورم جميله ' ضع هذا الكود في الفورم Sub SlideWindow(frmSlide As Form, iSpeed As Integer) While frmSlide.Left + frmSlide.Width < Screen.Width DoEvents frmSlide.Left = frmSlide.Left + iSpeed Wend While frmSlide.Top - frmSlide.Height < Screen.Hei…

شكرا على الرد يا أخ COMFORT وما قصرت

هل انت تريد عمل صورة gif بالفيجوال ام انت تقصد غير ذلك

هل افادكم المشروع هذا المهم قولو بصراحه

عندي كيفيه عمل صورة gif وسوف ابحث عنها في احد تصاميمي انا ذاكر اني امصممها وسوف ابحث عنها إن شاء الله سوف اجدها

أكيد كل شي يتعبثبه ولكن إذا المستخدم يتعبث دون قصد أو يتعبث بالصورة مافيه مستخدم ينزل برنامج علشان يتعبث به شكرا يا أخ باشا

هذا لوضع اجهزه الطابعة في قائمة مندلسه تحتاج الى Combo 'ضع هذا الكود في الفورم Private Sub Form_Load() Dim cPrinter As Printer For Each cPrinter In Printers Combo1.AddItem Printer.DeviceName Next End Sub