professional VB99

بس انا الي اشارك بالكود شاركوا ياشباب يامبرمجين :)

فتح الفورم بشكل جميل ' ضع هذا الكود في الفورم Sub Explode(form1 As Form) form1.Width = 0 form1.Height = 0 form1.Show For x = 0 To 5000 Step 1 form1.Width = x form1.Height = x With form1 .Left = (Screen.Width - .Width) / 2 .Top = (Screen.Height - .Height) / 2 E…

السلام عليكم هذا الكود لتجميل الفورم 'ضع هذا الكود في الفورم Private Sub Form_Load() Me.AutoRedraw = True Me.ScaleMode = vbTwips Me.Caption = "Rainbow Generator by " & _ "K. O. Thaha Hussain" End Sub Private Sub Form_Resize() Call Rainbow End Sub Private Sub R…

السلام عليكم هذا الكود حلو وجميل وممتاز لصنع فجوة بالفورم لا يحتاج الى شي ' ضع هذا الكود في الفورم Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Lo…

السلام عليكم هذا الكود لوضع الخطوط في أدة Combo يحتاج الى اداة Combo كود حلو 'ضع هذا الكود في الفورم 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

شكرا ولكن هذا الدرس للمبتدئين لكي يسهل عليه الفيجوال بيسك ولا يكون صعب خل بداياته سهلة بعدين تصعب عليه شكرا

السلام عليكم هذا الكود لتجميل الفورم ' ضع هذا الكود في الفورم Function Dist(x1, y1, x2, y2) As Single Dim A As Single, B As Single A = (x2 - y1) * (x2 - x1) B = (y2 - y1) * (y2 - y1) Dist = Sqr(A + B) End Function Sub MoveIt(A, B, t) A = (1 - t) * A + t * B En…

تلوين النموذج قبل اغلاقة 'ضع هذا الكود في الفورم Private Sub Form_Unload(Cancel As Integer) WindowState = 2 'تكبير حجم النموذج ليصبح بحجم الشاشة DrawWidth = 4 'اتغيير حجم نقطة الرسم For i = 1 To 18000 'التحضير للتنفيذ Down = Down + 1 ' سرعة الرسم Across = Acro…

السلام عليكم هذا الكود لا يحتاج الى شي هذا الكود لتشغيل البرنامج لعدد معين ' ضع هذا الكود في الفورم Private Sub Form_Load() retvalue = GetSetting("A", "0", "Runcount") GD$ = Val(retvalue) + 1 SaveSetting "A", "0", "RunCount", GD$ If GD$ > 3 Then ' الرقم (3) يح…

السلام عليكم هذا الكود لطباعة النص فقط ويحتاج الى زر فقط ' ضع هذا الكود في الفورم Private Sub Command1_Click() Printer.Print text1.text End Sub

السلام عليكم هذا الكود لصهر الشاشة حلو لا يحتاج الى أي شي Coming Soon قريباً ' ضع هذا الكود في الفورم Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, …

السلام عليكم هذا الكود الثالث ولا يحتاج الى أي شي وهو رسم خطين متقاطعين على حسب حركة الفارة ويمكنك تغير لون الخطين ' ضع هذا الكود في الفورم Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Cls Line (X, 0)-(X, Me.Scal…

السلام عليكم هذا الكود الثاني لحصر الفارة داخل الفورم وفك الحصر يحتاج الى زرين فقط Coming Soon ' ضع هذا الكود في الفورم Private Declare Sub ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINT) Private Declare Sub ClipCursor Lib "user32" (lpRect A…

السلام عليكم وشرايكم انسوي مكتبه الاكواد كل واحد ينزل كود او اكثر ليس بملف مرفق بل يكتب هنا لكي يسهل وكل واحد يكتب ماذا يعمل هذا الكود وماذا يحتاج لتعم الفائدة ولكي يشتهر المنتدى ولكي يكون المنتدى المرجع الاول للفجوال بيسك ويكون أفضل منتدى بالعالم إن شاء الله …

شكرا على الردود ويا أخ Ghost2010 الصراحه ماينزعل منها وشكرا على الرد كلكم البريشي نعم يحفظ بملف 102 فكرة البرنامج حفظ الملفات بشكل لا أحد يبعث به

هل عجبكم الدرس ام لا

حملو لا يفوتكم ترو المشروع مهم مهم جدا

مشكورين كلكم

السلا م عليكم هذا الملف من مبرمجكم الى مبتدئينكم هذا الملف خطييير جدا ومهم جدا يستخدم للبرامج الكبار العملاقة وهو اذا سويت برنامج كبير وتريد ان المتسخدم لبرنامجك لا يقدر ان يتعبث بالصورة او الصوت او غيرها حمل وشف يحفظ ملف الصوت او الصورة بملف لا يمكن التعبث به…

السلام عليكم الدرس الثاني كيفية وضع الوقت والتاريخ بالفيجوال بيسك6 وكيفيه وضع عداد دقائق وكيفيه استخدام اداة Timer وكيفيه استخدام كلمة Format بالوقت وكلمة Long وكيفيه استخدام كلمة dim كيفية استخدام كلمة print وكيفيه معرفة اليوم الحالي بالعربي كيفيه معرفة الشهر…