طريق الجرافيك


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

    شاطر
    avatar
    عمار
    عضو ذهبى
    عضو ذهبى

    ذكر عدد الرسائل : 903
    العمر : 29
    علم الدولة : سوريا
    تاريخ التسجيل : 02/02/2009

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

    مُساهمة من طرف عمار في الأحد 22 نوفمبر 2009, 9:14 am

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

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

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

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

    www.lernvisual.malware-site.www



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

    الكود الأول:

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

    الأدوات: 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 وأي عطل راسلنا EYADD2010@HOTMAIL.COM

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

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

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

    الأدوات : 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) & "تمتعوا بالمزيد قريبا للتواصل eyadd2010@hotmail.com", 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

      الوقت/التاريخ الآن هو الثلاثاء 13 نوفمبر 2018, 7:41 pm