مجموعة برامج فيجول بيزك

بسم الله الرحمان الرحيم هذا جزء من مكتيتي للأكواد أقدمه لكم

قريباً سأنشر بنك الأكواد 2009

أدعوا لأخوانكم في فلسطين العراق الصومال أفعانستان الشيشان ...............

جاري العمل بموقعي للفيجوال دوت نت

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

..............................................................

الكود الأول:

الأستخدام: لألتقاط صورة من الشاشة

الأدوات: button عدد 3 +CheckBox1+PictureBox1

الكود:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim b As Bitmap = New Bitmap(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height)

Dim g As Graphics = Graphics.FromImage(b)

Dim s As Size = New Size(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height)

If CheckBox1.Checked Then

Me.Hide()

Dim t As DateTime = Now.AddSeconds(1)

Do : Application.DoEvents()

Loop Until Now.Second >= t.Second

g.CopyFromScreen(0, 0, 0, 0, s, CopyPixelOperation.SourceCopy)

Me.Show()

t = Nothing

Else

g.CopyFromScreen(0, 0, 0, 0, s, CopyPixelOperation.SourceCopy)

End If

PictureBox1.Image = b

g.Dispose()

b = Nothing

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim saveDlg As SaveFileDialog = New SaveFileDialog

Dim dlgResult As DialogResult = New DialogResult

saveDlg.Filter = "JPEG Files (*.jpg)|*.jpg"

saveDlg.Title = "Select the file to save the image too."

dlgResult = saveDlg.ShowDialog

If dlgResult = Windows.Forms.DialogResult.OK Then

PictureBox1.Image.Save(saveDlg.FileName)

End If

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Button1.Text = "ألتقاط"

Button1.Text = "حفظ الصورة"

Button3.Text = "إنهاء"

CheckBox1.Text = "إخفاء"

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

End

End Sub

End Class ' الكود مجرب 100 ب100 وأي عطل راسلنا [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

..............................................................................................

الكود الثاني:

الأستخدام :فايروس خفيف

الأدوات : ProgressBar1+timer

الكود:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ProgressBar1.Minimum = 0

ProgressBar1.Maximum = 20

ProgressBar1.Value = 0

Timer1.Enabled = True

Timer1.Interval = 10

End Sub

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

10: Timer1.Enabled = True

ProgressBar1.Value = ProgressBar1.Value + 1

If ProgressBar1.Value >= ProgressBar1.Maximum Then Timer1.Enabled = False

If ProgressBar1.Value = ProgressBar1.Maximum Then

MsgBox("تم فرمطة قرصك الصلب C بواسطة الفايروس القاتل .....")

ProgressBar1.Value = ProgressBar1.Minimum

GoTo 10

End If

End Sub

End Class

....................................................................................

الكود الثالث :

هذا الكود ليس لي

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

الأدوات: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

...............................................................................

الكود الرابع:

الأستخدام:الأتصال بقاعدة البيانات وعرضه على الفورم

الأدوات :................

الكود :

Public Class Form1

Inherits System.Windows.Forms.Form

Dim WithEvents bmb As BindingManagerBase

Dim Myds As New DataSet()

Dim InfoManager As CurrencyManager

'بسم الله الرحمن الرحيم

'سنعمل أتصال بقاعدة البيانات بأستخدام الأكسيس

'سنطبق على قاعدة فيه جدول فيه عمودين

'تحتاج إلى تكست بوكس عدد2

'زر تحريك يمين وزريسار

'أقرأ الكود بشكل جيد وضع محل كل أسم الجدول العمود الأول العمود الثاني أسه بالأنكليزي

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim con As New OleDb.OleDbConnection()

Dim sql As String

sql = "select العمود الأول,العمود الأول from اسم الجول"

con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=مسار القاعدة;Persist Security Info=False"

Dim daPerson As New OleDb.OleDbDataAdapter(sql, con)

daPerson.Fill(Myds, "mm1")

t1.DataBindings.Add("Text", Myds, "أسم الجدول.العمود الأول")

t2.DataBindings.Add("Text", Myds, "سم الجدول.العمود الثاني")

bmb = Me.BindingContext(Myds, "أسم الجدول")

bmb.Position = bmb.Count

bmb.Position = 0

Button1.Text = ">>"

Button1.Text = "<<"

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

' تحريك يمين

bmb.Position -= 1

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

' تحريك يسار

bmb.Position += 1

End Sub

End Class

............................................................................

الكود الخامس:

الأستخدام :لتغير لون الزر عند مرور الفأرة عليه

الأدوات :button

الكود :

Public Class Form1

Private Sub Button1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseHover

Button1.BackColor = Color.DodgerBlue

End Sub

End Class

................................................................................

الكود السادس:

الأستخدام:الزر الخفي

الأدوات :3button+1label

الكود :

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Label1.Text = "هل أعجبتك الأكواد "

Button1.Text = "لا"

Button3.Text = "لا"

Button2.Text = "نعم"

End Sub

Private Sub Button3_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.MouseHover

Button3.Visible = False

Button1.Visible = True

End Sub

Private Sub Button1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseHover

Button3.Visible = True

Button1.Visible = False

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

MsgBox("مع تحيات المهندس المدني:محمد إياد شرارة" & Chr(13) & "تمتعوا بالمزيد قريبا للتواصل [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]", MsgBoxStyle.MsgBoxRight, "وداعا")

End

End Sub

End Class

..........................................................................................

الكود السابع:

الأستخدام :كود نسخ

الأدوات: button عدد2+textbox

الكود:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Button1.Text = "نسخ"

Button2.Text = "مسح"

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

If TextBox1.Text <> "" Then

Button2.Enabled = True

Button1.Enabled = True

Else

Button2.Enabled = False

Button1.Enabled = False

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

TextBox1.Text = ""

End Sub

'هذا فقط كود النسخ

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Clipboard.Clear()

Clipboard.SetText(TextBox1.Text)

End Sub

End Class

...............................................................................

الكود الثامن:

الأستخدام :مؤثر جميل على النص

الأدوات :timer عدد 2 +label1

الكود:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Label1.Text = "المهندس المدني :محمد إياد شرارة" 'النص

Timer1.Enabled = True

Timer1.Interval = 500 'سرعة التبدل

Me.BackColor = Color.Black

Timer2.Enabled = True

Timer2.Interval = 500 'سرعة التحرك

End Sub

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

If Label1.ForeColor = Color.MediumSeaGreen Then

Label1.ForeColor = Color.Violet

Else

Label1.ForeColor = Color.MediumSeaGreen

End If

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

If Label1.Location.X = 74 And Label1.Location.Y = 97 Then

Label1.Left = Label1.Left + 10

ElseIf Label1.Location.X = 84 And Label1.Location.Y = 97 Then

Label1.Left = Label1.Left - 10

End If

End Sub

End Class

..............................................................

الكود التاسع:

الأستخدام :تحريك الكلمات في عنوان الفورم والتكست

الأدوات :TIMER1+TEXTBOX1

الكود:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Timer1.Interval = 75

TextBox1.Text = "Guten Tag! Wie ght's Ihnen? Ich hoffe Ihnen alles Gutes!"

TextBox1.Text = Space(50) & TextBox1.Text

End Sub

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

TextBox1.Text = Mid(TextBox1.Text, 2)

TextBox1.Text = TextBox1.Text

Me.Text = TextBox1.Text

End Sub

End Class

..................................................................

الكود العاشر:

الكود:لأظهار تحية عند فتح البرنامج حسب الوقت

الأدوات : ..................................

الكود :

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

If TimeOfDay <= "11:30 AM" Then

MsgBox("Good Morning YourNameHere!")

Exit Sub

End If

If TimeOfDay > "11:30 AM" And TimeOfDay < "5:00 PM" Then

MsgBox("Good Afternoon YourNameHere!")

Exit Sub

End If

If TimeOfDay > "5:00 PM" Then

MsgBox("Good Evening YourNameHere!")

Exit Sub

End If

If TimeOfDay >= "12:01 AM" Then

MsgBox("Good Morning YourNameHere!")

Exit Sub

End If

End Sub

End Class

بجد يا برمجى انتا مغطى على كل الاعضاء ال فى المنتدى مواضيعك اكثر من رائعة يارب يوفقك فى دراستك وبارك الله فيك يا اخى البرمجى
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

بارك الله فيك
جزاك الله كل خير
مشششششكور

:نتانت: :نتانت:

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

» اكواد فيجول بيزك
» مجموعة برامج اسلامية
» برامج جميلة