في هذه التدوينه سوف اقدم لكم مجموعه من اكواد الفيجوال دوت نت .. اتمنى ان تعجبكم
الموضوع قابل للتجديد
الموضوع قابل للتجديد
استبدال نص بـ نص اخر
Dim s As String = "I love Visual Basic 6"
MsgBox(Replace(s, "6", ".net"))
******
استدعاء ملف نصي من مسار معين
Dim a As String = ("C:\magic.bat")
TextBox1.Text = My.Computer.FileSystem.ReadAllText(a)
******
اضهار رساله لمره واحده في البرنامج
Dim m As String
m = GetSetting("VB", "4arab", "magic")
If m = "" Then
MsgBox("مرحبا بك في برنامجي لاول مرة", , "ترحيب ")
End If
m = Val(m) + 1
SaveSetting("VB", "4arab", "magic", m)
******
مثال على برنامج لمعرفة اذا كان جهازك متصل ب الانترنت او لا
If My.Computer.Network.IsAvailable Then
Label1.BackColor = Color.Green
Else
Label1.BackColor = Color.Red
End If
******
تحريك الادوات مع الماوس
ضع الكود في تايمر Timer
PictureBox1.Location = Control.MousePosition
******
تشغيل صوره من داخل الريسورس
Me.PictureBox1.Image = My.Resources.picutre name
******
توليد اكواد عشوائيه
ضع الكود في التايمر Timer
Dim R As New Random
Randomize()
Dim Number As Integer
Number = R.Next(20, 105)
‘ MsgBox(Number)
TextBox1.Text = Number
TextBox2.Text = Number
TextBox3.Text = Number
TextBox4.Text = Number
******
حفظ صوره من داخل عارض الصور PictureBox
PictureBox1.Image.Save(SaveFileDialog1.FileName, Imaging.ImageFormat.Jpeg)
******
طباعة الفورم
اضف اداة printform1
Button1.Hide()
PrintForm1.PrinterSettings.DefaultPageSettings.Margins = New System.Drawing.Printing.Margins(0, 0, 0, 0)
PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
PrintForm1.Print()
******
حذف نص من التكست بوكس TextBox
Dim b As Integer
If (TextBox1.Text.Length > 0) Then
b = TextBox1.Text.Length
TextBox1.Text = TextBox1.Text.Remove(b - 1, 1)
End If
******
كود تاخير تنفيذ امر معين
Threading.Thread.Sleep(1000)
' هنا ضع الكود الذي تريد
******
ليبل بخلفية شفافه
Label1.Parent = PictureBox1
******
نص متحرك على الفورم
ضع الكود في التايمر Timer
If Label1.Left < Me.Width Then
Label1.Left += 6
Else
Label1.Left = -Label1.Width
End If
******
حفظ نص من التكست بوكس في ملف txt
IO.File.WriteAllText("name.txt", TextBox2.Text)
******
لجلب معلومات عن الحاسوب
Text = ProgressBar1.Value
If ProgressBar1.Value = 100 Then
TextBox1.Text = My.Computer.Name
TextBox2.Text = My.User.Name
TextBox3.Text = My.Computer.Info.OSFullName
TextBox4.Text = My.Computer.Keyboard.CapsLock
TextBox5.Text = My.Computer.Mouse.WheelExists
TextBox6.Text = My.Computer.Screen.WorkingArea.ToString
******
تغيير شكل سهم الماوس
ضع الشكل الذي تريد في الريسورس بصيغة ico
Me.Cursor = New Cursor(My.Resources.cursor.Handle)
******
تأثير جميل على الفورم عند التشغيل والاغلاق
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
For a As Short = 10 To 0 Step -1
System.Threading.Thread.Sleep(200)
Application.DoEvents()
Me.Opacity = a / 10
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For a As Byte = 0 To 10
System.Threading.Thread.Sleep(200)
Application.DoEvents()
Me.Opacity = a / 10
Next
End Sub
******
التحكم بـ حجم الخط
Label1.Font = New Font(Label1.Font.Name, TextBox1.Text)
******
التعامل مع النصوص داخل TextBox
******
التعامل مع اداة ListBox
******
فتح ملفات الحاسوب لعرض ملف
******
فتح ملفات الحاسوب لحفظ ملف معين
******
جلب اسم ملف معين بدون المسار
******
تغيير اسم الفورم عن طريق الكود
******
الوان العناصر
******
للتحكم بحجم الفورم
******
للتحكم بموقع الفورم
******
التحكم بحجم الخط
******
نافذة الخطوط
******
نافذة الالوان
حذف النص
TextBox1.text = ""
نسخ نص
Clipboard.Clear()
Clipboard.SetText(TextBox1.Text)
كود اللصق
TextBox2.Text = Clipboard.GetText
التعامل مع اداة ListBox
اضافة عنصر جديد
ListBox1.Items.Add("magic")
حذف جميع العناصر
ListBox1.Items.Clear()
للصعود والنزول على العناصر داخل الاداة
ListBox1.SelectedIndex += 1
او
ListBox1.SelectedIndex -= 1
لعرض اسم العنصر
TextBox1.Text = ListBox1.SelectedItem.ToString
******
فتح ملفات الحاسوب لعرض ملف
Dim x As New OpenFileDialog
x.ShowDialog()
TextBox1.Text = x.ShowDialog
فتح ملفات الحاسوب لحفظ ملف معين
Dim x As New SaveFileDialog
x.ShowDialog()
TextBox1.Text = x.ShowDialog
جلب اسم ملف معين بدون المسار
TextBox1.Text = My.Computer.FileSystem.GetName("")
تغيير اسم الفورم عن طريق الكود
Me.Text = "name"
******
الوان العناصر
لتغيير لون الاداة
Button1.BackColor = Color.Red
لتغيير لون نص الاداة
Button1.ForeColor = Color.White
******
للتحكم بحجم الفورم
Me.Size = New Size(200, 200)
للتحكم بموقع الفورم
Me.Location = New Point(200, 500)
التحكم بحجم الخط
Me.Font = New Font(Me.Font.Name, "20")
******
نافذة الخطوط
Dim x As New FontDialog
x.ShowDialog()
Me.Font = x.Font
******
نافذة الالوان
Dim x As New ColorDialog
x.ShowDialog()
Me.BackColor = x.Color
******
الاكواد قد تحتوي على بعض الاخطاء
اي اشكال في كود معين راسلوني
اخوكم Coder magician
ليست هناك تعليقات :
إرسال تعليق