منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] مكتبة الاكواد :) - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [VB.NET] مكتبة الاكواد :) (/showthread.php?tid=10530)

الصفحات: 1 2 3

مكتبة الاكواد :) - mr.am.he - 29-10-14


اقدم لكم مكتبة الاكواد


ما ابغى اطول عليكم Smile


اكتبو اي كود عندكم للفيجوال بيسك .net

لا اريد عبارات مثل : شكرا


فتح مايكروسوفت وورد من خلال الفيجوال بيسك

كود :
Option Explicit

Private Sub cmdWord_Click()
   Dim pintID As Long
   pintID = Shell("C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE", vbHide)
   
End Sub
قم بتغيير مسار الملف حسب المطلوب  


تدريج اللون داخل الفورم بشكل متحرك - Moustafaelmoaty - 29-03-15

تدريج اللون داخل الفورم بشكل متحرك
الأدوات:timer عدد 1+PictuerBoxعدد 1

Imports System.Drawing.Drawing2D
Public Class Form1
Private M_M As Single = 0
Private M_D As Single = 0.1
Private Sub PictureBox1_Paint(ByVal sender As Object, _
ByVal e As System.Windows.Forms.PaintEventArgs) Handles _
PictureBox1.Paint
Dim LB As New LinearGradientBrush(New Point(0, 0), New Point _
(Me.ClientSize.Width, 0), Color.Green, Color.Yellow)
Dim CB As New ColorBlend
CB.Colors = New Color() {Color.Green, Color.YellowGreen, Color.Yellow}
CB.Positions = New Single() {0, M_M, 1}
LB.InterpolationColors = CB
e.Graphics.FillRectangle(LB, Me.ClientRectangle)
LB.Dispose()
M_M += M_D
If (M_M > 1) OrElse (M_M < 0) Then M_D = -M_D
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
PictureBox1.Invalidate()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
End Sub
End Class

RE: مكتبة الاكواد :) - mr.am.he - 04-07-15

كود اظهار نتيجه حسابيه فى التكست بوكس تلقائيا


كود :
Private Sub ResultTextbox3(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged
      If TextBox1.Text Is String.Empty Or Not IsNumeric(TextBox1.Text) Then
          TextBox3.Text = ""
          Exit Sub
      End If
       If TextBox2.Text Is String.Empty Or Not IsNumeric(TextBox2.Text) Then
          TextBox3.Text = ""
          Exit Sub
      End If
       TextBox3.Text = CType(TextBox1.Text, Integer) * CType(TextBox2.Text, Integer)
  End Sub





كود وميض الليبل ضع هذا الكود فى التايمر 





كود :
If Label1.ForeColor = Color.Red Then
           Label1.ForeColor = Color.Black
       Else
           Label1.ForeColor = Color.Red
       End If










هذا الكود بسيط جداً ولكن مهم لجعل Text Box يكتب رقم لا يكتب نص ويكتب نص ولا يكتب رقم .


إقتباس :أولاً نقوم بإضافة اداة Text Box ونكتب الكود فى الحدث KeyPress

هذا الكود لجعل Text Box يكتب رقم ولا يكتب نص





كود :
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As  System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
       If Not IsNumeric(e.KeyChar) Then
           e.Handled = True
       End If
   End Sub

إقتباس :هذا الكود لجعل Text Box يكتب نص ولا يكتب رقم


كود :
  Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As  System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
       If IsNumeric(e.KeyChar) Then
           e.Handled = True
       End If
   End Sub
كود لجعل برنامجك تجريبيا

كود :
Public Class Form1
   Dim T As Boolean
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       T = False
       Dim RegX As Microsoft.Win32.RegistryKey
       RegX = Microsoft.Win32.Registry.CurrentUser
       Dim S As String() = RegX.GetSubKeyNames
       For Each A As String In S
           If A = "smp3" Then
               T = True
           End If
       Next
     
       If T = True Then
           RegX = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("smp3", True)
           Dim x As Integer = RegX.GetValue("val")
           x = x + 1
           RegX.SetValue("val", x)
           If x = 5 Or x > 5 Then
               MsgBox("لقد انتهت مدتك لاستخدام البرنامج , يرجى الاتصال بفريق الدعم لمعرفة كيفية الشراء")
               Application.Exit()
           End If
       Else
           RegX = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("smp3")
           RegX.SetValue("val", 1)
       End If
     End Sub
End Class


RE: مكتبة الاكواد :) - mr.am.he - 24-07-15

معقولة !!!







1000 مشاهدة ورد 1 ؟؟؟؟!!!!!!!!!











وينكم ؟؟؟؟؟؟؟؟؟؟؟؟  Huh  Sad Sad Sad Sad Sad Sad Sad Sad Sad Sad  Sad


RE: مكتبة الاكواد :) - مبرمج بلا حدود - 24-07-15

جزاكـ الله خير وباركـ الله فيكـ
وجعله الله في موازين حسناتكـ
واصل ربي يرضى عنكـ

RE: مكتبة الاكواد :) - الطالب - 24-07-15

سلام


اولا مشكور جدا على المبادره

ثانيا كنت اتمنى ان يكون لك اسم واضح حتى نناديك به

ثالثا انا متاكد من نيتك الطيبه

رابعا هذه الطريقه لا تفيد في فهرس المنتدى والبحث
رابعا الافضل ان تضع كل كود في موضوع مستقل وبعنوان يدل على عمله ليظهر في فهرس المنتدى والبحث

اخيرا اتمنى ان مثل كثير لديهم هذه الحماس


موفقين

RE: مكتبة الاكواد :) - adel27 - 09-11-15

برررررررررافو عليك 
الله يعطيك العافيه 
المبتدئون يقولون هل من مزيد  Big Grin

RE: مكتبة الاكواد :) - ahmednab - 20-11-15

thannnnnnnnnnx نتمني المزيد ونتعلم منكم بارك الله فيك

RE: مكتبة الاكواد :) - NOSAA93 - 09-12-15

مشكور ع مرؤك

RE: مكتبة الاكواد :) - CLARO - 29-05-16

مشكورورورورورورعلى الموضوع الرائئئعع