صدى الذكريات

إخواني إبراهيم GHOST شكراً لكم على تفاعلكم الطيب

السلام عليكم أخي الفاضل ما عليك إلا وضع الخيارات ولنتفرض أنها أزرار أوامر 'إذا كانت هذه هي الإجابة الصحيحة Private Sub Command1_Click() msgbox "الإجابة صحيحة" 'وإذا أردت الإنتقال للفورم التالي Unload form1 form2.show End Sub 'إذا كانت هذه خاطئة Private Sub Com…

السلام عليكم ورحمة الله وبركاته إخواني منذ فترة سمعت أن أحد الأخوة يحتاج هذا الكود أضف text1 , command Public Function Horof(X) Ma = " ريال" Mi = " هللة" N = Int(X) B = Val(Right(Format(X, "000000000000.00"), 2)) r = SHorof(N) If r <> "" And B > 0 Then Result …

بإمكانك تحريك الفأرة ماعليك إلا وضع زرين Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Declare Function ClientToScreen Lib "user32" _ (ByVal hwnd As Long, lpPoint As POINTAPI) As Long Private Declare Sub mouse_event L…

عرض نموذج داخل نموذج Private Declare Function SetParent Lib "user32" _ (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long Private Sub Form_Load() SetParent Form1.hwnd, Form2.hwnd Form2.Show End Sub

تغيير صفحة البدء في الإنترنت اكسبلورر Private Declare Function RegCloseKey Lib "advapi32.dll" _ (ByVal hKey As Long) As Long Private Declare Function RegCreateKey Lib "advapi32.dll" _ Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey _ As String, phkRe…

هل تريد عندما تضغط على الفأرة وتسحب يظهر مستطيل مثل سطح المكتب Public xPos, yPos Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) xPos = X yPos = Y End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Intege…

غلق الفورم بشكل رائع 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.Height DoEvents frmSlide.Top = frmS…

رسم دائرة حول المؤشر Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _ X As Single, Y As Single) Me.Cls Circle (X, Y), 100, vbRed End Sub

لإضافة الطابعات إلى list box Private Sub Form_Load() Dim cPrinter As Printer For Each cPrinter In Printers List1.AddItem Printer.DeviceName Next End Sub

لتحميل جميع خطوط الكومبيوتر ووضعها في combo box Private Sub Form_Load() Dim i As Integer For i = 0 To Screen.FontCount - 1 Combo1.AddItem Screen.Fonts(i) Next i Combo1.Text = Combo1.List(0) End Sub

لفتح ملف نصي ووضعه في combo box Private Sub Command1_Click() Dim sline As String nfile = FreeFile Combo1.Clear Open "c:\windows\desktop\books.txt" For Input As #nfile While Not EOF(1) Line Input #nfile, sline Combo1.AddItem sline Wend End Sub

لمنع المستخدم من استخدام المسافة في النص Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 32 Then KeyAscii = 0 End If End Sub

توليد 100 رقم عشوائي بين 0 و 100 بدون تكرار Dim RanNo() As Long Private Sub RandomizeNumbers(ByVal iFrom As Integer, ByVal iTo As Integer) ReDim RanNo(iFrom To iTo) For i = iFrom To iTo RanNo(i) = i Next i Randomize (Timer) For i = iFrom To iTo j = CInt((iTo -…

لمعرفة أكبر رقم من بين 10 أرقام مدخلة Function ReturnLargest(ByVal i As Integer, ByVal Number As Integer, ByVal MaxNumber As Integer) MaxNumber = 0 For i = 1 To 10 Number = InputBox("أدخل رقم بين 1 و 32000", "Number") Print Number If MaxNumber > i Then MaxNumb…

وهذا الكود لاختبار كرت الصوت ضع هذا في الموديول Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long وهذا في الفورم Private Sub Command1_Click() Dim i As Integer i = waveOutGetNumDevs() If i > 0 Then MsgBox "بالإمكان تشغيل ملفات الأصوات في نظامك", _ v…

جميعنا (على ما أظن) يعلم أن الويندوز البدائي تم تطويره بواسطة لغة الأسمبلي و من بعد ذلك تم تطوير اللغة (أقصد الأسمبلي) ليتحول إسها إلى ما نعرفه اليوم باسم ++C طبعاً السي بلس بلس صعبة جداً لمن أراد التوغل فيها و السلام عليكم و رحمة الله و بركاته

أخي الفاضل حملت الملف لكنه لايعمل فهل لك أن تضع كل أداة لوحدها

شكراً لكم إخواني أهتي بنت اليمن بعد أن قمت بتنزيل مثالك و حاولت فك الضغط ظهرت رسالة الأرشيف معطوب أرجو التأكد منه

شكراً لك أختي بنت اليمن حملت البرنامج وسأجربه