منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مكتبة الاكواد :)
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2 3

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


ما ابغى اطول عليكم 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
قم بتغيير مسار الملف حسب المطلوب  
تدريج اللون داخل الفورم بشكل متحرك
الأدوات: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
كود اظهار نتيجه حسابيه فى التكست بوكس تلقائيا


كود :
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
معقولة !!!







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











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


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

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

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

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

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


موفقين
برررررررررافو عليك 
الله يعطيك العافيه 
المبتدئون يقولون هل من مزيد  Big Grin
thannnnnnnnnnx نتمني المزيد ونتعلم منكم بارك الله فيك
مشكور ع مرؤك
مشكورورورورورورعلى الموضوع الرائئئعع
الصفحات : 1 2 3