Microsoft Access - Relationships & Query(easy way) - ICDL

Types of Table Relationships in MS Access: 

One – to – one relationship

The primary record will have only one related record.

One – to – Many relationships

The primary record may have many related records

Many– to – Many relationships

Many records from one table can be related to many records from another table through a junction table.

مكتبة اليوتيوب الصوتية

مكتبة اليوتيوب الصوتية: وهي خدمة تحتوي على العديد من الملفات الصوتية المجانية التي يمكن أن تساعدك في إنشاء فيديو بمقاطع صوتية رائعة وغير مطالب بحقوق الطبع والنشر وهي خدمة رائعة لجميع المهتمين بمجال تصميم وتطوير الفيديوهات سواء أكانت تعليمية أو ثقافية أو حتى رياضية. 

رابط مكتية اليوتيوب الصوتية

A potentially dangerous Request.Form value was detected from the client vb.net

Solution : 

<%@ Page Title="" Language="VB" MasterPageFile="MasterPage.master" AutoEventWireup="false" CodeFile="addcourse.aspx.vb" Inherits="addcourse" ValidateRequest="false" %>

add 

ValidateRequest="false"

 web config 

add

<httpRuntime requestValidationMode="2.0" />

after 

<system.web>

Allowing characters and comma in text box VB.net

Private Sub pay1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pay1.KeyPress

        e.Handled = Not (Char.IsDigit(e.KeyChar) Or e.KeyChar = ".")

    End Sub

event keydown enter VB.net

 Private Sub pay1_KeyDown(ByVal sender As Object, ByVal e As  System.Windows.Forms.KeyEventArgs) Handles pay1.KeyDown

                   If e.KeyCode = Keys.Enter Then

                Dim a, c, d As Single

                a = pay1.Text

                d = hardware_price1.Text

                stay1.Text = c

                stay1.Text = Format(Val(hardware_price1.Text) - Val(pay1.Text), "0.00")

            End If

        Catch

        End Try

    End Sub

RDLC auto number column vb.net

=RowNumber(Nothing)

RDLC format number function vb.net

=FormatNumber(Fields!total_price.Value-(Fields!num_total.Value*Fields!price11.Value),2)

Display date in dd/mm/yyyy format in vb.net

DateTimePicker1.Format = DateTimePickerFormat.Custom
DateTimePicker.CustomFormat = "dd/MM/yyyy"

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

هي فكرة بسيطة الغرض منها عمل شريط دلالة على التحميل أو الانتهاء من مهمة أو حتى لانهاء الوقت كاالموجود ب الويندز وهي فكرة مهمة في حالة اذا ما كان البرنامج يهتم بمسألة الوقت كالاختبارات الالكترونية أو مسابقة أو حتى لإضفاء شكل جمالي على البرنامج.

تحميل الكود

Learn ABC for Kids

برنامج صغير لتعليم الاطفال ABC باللغة الانجليزية وهو برنامج صغير مجاني يستطيع من خلاله الطفل الضغط على الصورة  لتظهر امامه  الكلمة والصوت مكتوبة ومن خلالها يتمكن الطفل من تكرار الكلمة أكثر من مرة حتى يصل الى مستوى الاتقان .

Download

برنامج عواصم ودول اختبر معلوماتك في ثلاث دقائق

اختبر معلوماتك ببرنامج صغير وشاركنا النتيجة رابط البرنامج أسفل الأسئلة 

1 - مـــاهي عاصمة مالي؟

• باماكو
• داكار
• بانجول
• كوناكري

2- مـــاهي عاصمة موريتانيا ؟

• فيكتوريا
• أنجامينا
• فري تاون
• نواكشوط

3 - مـــاهي عاصمة كينيا ؟

• بانجول
• دودوما
• ليبرفيبل
• نيروبي

4- مـــاهي عاصمة  الكاميرون ؟

• كينشاسا
• نياما
• ياوندي
• بورتونوفو

5 - مـــاهي عاصمة  غانا ؟

• بيساو
• مالابو
• أكرا
• بانجول

6- مـــاهي عاصمة  مصر ؟

• الاسكندرية
• القاهرة
• أسوان
• أسيوط

7 - مـــاهي عاصمة  المغرب ؟

• الرباط
• طرابلس
• دار السلام
• الخرطوم

8 - مـــاهي عاصمة  أثيوبيا ؟

• أديس أبابا
• نواكشوط
• هاراري
• لوساكا

9- مـــاهي عاصمة باكستان ؟

• عشق آباد
• إسلام آباد
• كراتشي
• لاهور

10- مـــاهي عاصمة أفغانستان ؟

• طشقند
• كابول
• قندهار
• رانجون

11- مـــاهي عاصمة البحرين ؟

• الرباط
• عمان
• الدوحة
• المنامة

12- مـــاهي عاصمة لبنان ؟

• طرابلس
• بيروت
• دمشق
• صنعاء

13- مـــاهي عاصمة  جزر المالديق ؟

• ماليه
• استانا
• مسقط 
• هانوي

14- مـــاهي عاصمة  ماليزيا ؟

• كوالالمبور
• هانوي
• كولمبو
• ديلي

15- مـــاهي عاصمة الهند ؟

• نيودلهي
• دكا
• طوكيو
• مانيلا

16- مـــاهي عاصمة  بلجيكا ؟

• برلين
• بروكسل
• باريس
• دبلن

17-  ما هي عاصمة بلغاريا ؟

• صوفيا
• أثينا
• بودابست
• براج

18- مـــاهي عاصمة  هولندا ؟

• أمستردام
• ريغا
• برشتينا
• زغرب

19- مـــاهي عاصمة رومانيا ؟

• بوخارست
• برن
• بلجراد
• ديلي

20- مـــاهي عاصمة  كندا ؟

• ذا فالي
• أوتاوا
• مونتريال
• تورنتو

21- مـــاهي عاصمة  أمريكا ؟

• واشنطن
• نيويورك
• نيوجيرسي
• تكساس

22- مـــاهي عاصمة  الإمارات ؟

• أبوظبي
• المنامة
• بغداد
• دبي

23- مـــاهي عاصمة  الارجنتين ؟

• روما
• جورج تاون
• قرطبة
• بيونس ايرس

24- مـــاهي عاصمة  بيرو ؟

• ليما
• كيتو
• بوجوتا
• سانتيوجو

25-  ماهي عاصمة كولومبيا ؟

• باستير
• كاراكاس
• بوجوتا
• كيتو

http://www.mediafire.com/file/ib5z6c68rh739ak/Test.rar

How to avoid adding duplicate items in a ComboBox in VB ?

Dim conn9 As New OleDbConnection

            conn9.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\store1.mdb;Jet OLEDB:Database Password=123456")

            conn9.Open()

            Dim strsql9 As String

            strsql9 = "select * from types where code1='" + TextBox6.Text + "' "

            Dim cmd9 As New OleDbCommand(strsql9, conn9)

            myreader9 = cmd9.ExecuteReader

            ComboBox7.Items.Clear()

          

            While myreader9.Read()

                ComboBox7.Items.Add(myreader9("n1"))

                             Dim i, j As Int32

                For i = 0 To Me.ComboBox7.Items.Count - 2 Step 1

                    For j = Me.ComboBox7.Items.Count - 1 To i + 1 Step -1

                        If Me.ComboBox7.Items(i).ToString = Me.ComboBox7.Items(j).ToString Then

                            Me.ComboBox7.Items.RemoveAt(j)

                        End If

                    Next

                Next

                Dim i1, j1 As Int32

                For i1 = 0 To Me.ComboBox8.Items.Count - 2 Step 1

                    For j1 = Me.ComboBox8.Items.Count - 1 To i1 + 1 Step -1

                        If Me.ComboBox8.Items(i1).ToString = Me.ComboBox8.Items(j1).ToString Then

                            Me.ComboBox8.Items.RemoveAt(j1)

                        End If

                    Next

                Next

            End While

        Catch

        End Try

      

Get Control Location VB.net

Solution

 Picturebox1.Location = New Point(221, 407)

set Picturebox size vb.net

Solution

bee.Size = New Point(264, 277)

البرنامج الرهيب والرئع للتعامل مع ملفات PDF

من أجمل البرامج للتعامل مع ملفات ال PDF هو برنامج PDF Shaper وهو برنامج به مميزات عديدة تجعله من اقوى البرنامج في التعامل من الملفات من هذا النوع فهو يمكنه تحويل ملفات ال PDF  نص وكذلك  تحويل ملفات  PDF   الى صور وايضا العكس تحويل ملفات الصور الى ملفات PDF   وتحويل ملفات PDF   الى ملفات RTF وكذلك يمكنك  دمج اكثر من ملف PDF   معا وتقسيم صفحات ال PDF   واستخراج النصوس والصور من الملفات  وإزالة الصور من الملفات وتدوير وحذف بعض الصفحات  وتشفير وفك تشفير الملفات وغيرها من مميزات ذلك البرنامج الرائع.

رابط تحميل البرنامج  تحميل

Login form access database vb.net

  Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\gamal\Pictures\aa.mdb")

        Dim cmd As New OleDbCommand("select* from login1 where user1=@userl and pass1=@pass1", conn)

        cmd.Parameters.Add("@userl", OleDbType.VarChar).Value = TextBox1.Text

        cmd.Parameters.Add("@pass1", OleDbType.VarChar).Value = TextBox2.Text

        Dim adapter1 As New OleDbDataAdapter(cmd)

        Dim table As New DataTable

        adapter1.Fill(table)

        If table.Rows.Count <= 0 Then

            MsgBox("Error username or password")

        Else

            MsgBox("login successfully")

        End If

Download source

Search in database access datagridview

search Query

SELECT        firstname, lastname, country, tel

FROM            Table1

WHERE        (firstname=?)

Like Query

SELECT        firstname, lastname, country, tel

FROM            Table1

WHERE        (firstname LIKE '%' + ? + '%')

ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

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

        Me.Table1TableAdapter.FillBy1(Me.AaDataSet1.Table1, TextBox5.Text)

     

    End Sub

Check the Datagridview is empty in vb.net

If  DataGridView1.CurrentCell Is Nothing Then

            MsgBox("There aren't any Results")

        End If

Message Are you want exit vb.net

 Dim response As Integer

        response = MessageBox.Show("Are you want exit", "", _

                                 MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        If response = vbYes Then

            End

        End If

New Button Vb.net

 TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

Select row datagridview vb.net

Imports System.Data

Imports System.Data.OleDb

Imports System.Data.DataTable

Public Class form2

ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

 Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick

 Dim table As New DataTable("table")

    Dim index As Integer

        index = e.RowIndex

        Dim selectedrow As DataGridViewRow

        selectedrow = DataGridView1.Rows(index)

        TextBox1.Text = selectedrow.Cells(0).Value.ToString

        TextBox2.Text = selectedrow.Cells(1).Value.ToString

        TextBox3.Text = selectedrow.Cells(2).Value.ToString

        TextBox4.Text = selectedrow.Cells(3).Value.ToString

    End Sub

Delete button database access vb.net

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\gamal\Pictures\aa.mdb")

        Dim cmd As New OleDbCommand("", conn)

        cmd.CommandText = "delete from table1 where tel='" + TextBox4.Text + "' "

        conn.Open()

        cmd.ExecuteNonQuery()

        conn.Close()

        ' Refresh Datagridview

        Me.Table1TableAdapter.Fill(Me.AaDataSet1.Table1)

    End Sub

update button database access vb.net

 Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\gamal\Pictures\aa.mdb")

        Dim cmd As New OleDbCommand("", conn)

        cmd.CommandText = "update table1 set firstname='" & TextBox1.Text & "', lastname='" & TextBox2.Text & "',country='" & TextBox3.Text & "'where tel='" + TextBox4.Text + "' "

        conn.Open()

        cmd.ExecuteNonQuery()

        conn.Close()

        ' Refresh Datagridview

        Me.Table1TableAdapter.Fill(Me.AaDataSet1.Table1)

Insert button database access vb.net

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

        Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\gamal\Pictures\aa.mdb")

        Dim cmd As New OleDbCommand("", conn)

        cmd.CommandText = "insert into table1(firstname,lastname,country,tel)values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"

        conn.Open()

        cmd.ExecuteNonQuery()

        conn.Close()

        ' Refresh Datagridview

        Me.Table1TableAdapter.Fill(Me.AaDataSet1.Table1)

    End Sub

ربط فيجوال بيسك دوت نت بقاعدة بيانات أكسيس

' عايزين نعرف الاتصال بقاعدة البيانات

Imports System.Data

Imports System.Data.OleDb

Public Class Form2

    'عايز نربط بقى بقاعدة بيانات أكسيس

    Dim connection As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=C:\Users\gamal\Pictures\aa.mdb")

    'عايزين نعرف مسار قاعدة البيانات

    Dim index As Integer

    Dim table As New DataTable

    Public Sub loaddata(ByVal position As Integer)

        Dim command As New OleDbCommand("select*from table1", connection)

        Dim adapter As New OleDbDataAdapter(command)

        adapter.Fill(table)

        TextBox1.Text = table.Rows(position)(0).ToString()

        TextBox2.Text = table.Rows(position)(1).ToString()

        TextBox3.Text = table.Rows(position)(2).ToString()

        TextBox5.Text = table.Rows(position)(3).ToString()

        TextBox4.Text = table.Rows(position)(4).ToString()

    End Sub

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

        loaddata(index)

    End Sub

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

        'لعرض أول سجل في قاعدة البيانات

        index = 0

        loaddata(index)

    End Sub

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

        index += 1

        loaddata(index)

    End Sub

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

        index -= 1

        loaddata(index)

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        index = table.Rows.Count() - 1

        loaddata(index)

    End Sub

End Class

500 Internal Server Error on Youtube

A team of highly trained monkeys has been dispatched to deal with this situation.

If you see them, send them this information as text (screenshots frighten them):

    APkpgMXyW7jtdRFrCQcSUp0Ns_jJVhTuiY3Hh7gXHymSdOs2H51lpwqh
    v5Nk16FsxcYF2xuRAVMjQhSQ3YvBcG3WdLF02bc0D9asgd1aTyIL9poJ
    CbtYr6VpMhUUxQ4PXdKWj2mt0PAdG0qZl3zTdSy7MifL9cgHeKDVQUAn
    fEnHVhDfArHaMOkJaMIfiiwyVcj_f-14uIcEX6HzK_SJ1BdxPNIlkwbc
    Wed7n8Zll0izNxarfx1PJ2mr5SU06QoF_d25fK8gLiWir-fhB0lIIKoa
    mm-UeTqDbKVXTmOKMquKu1S3tfEBx59idCuj1Jd9Q5aruavGeXL-58gV
    9VmfOlWUnnAYjII3QNPWa4vePEzDQGEXCyVQAmAS7bjBmKx5KOwplcPP
    7dViS1axR0d6G7JHxwYfvaRDByt5jazP9Z_rlJa3ijJbJQV4wtM07GDO
    AJlxB4vRg2d_4rdBUkKaBucBJnezNQIiW1YZOwpRu9xuOrwN2dr-JTEW
    XtidknWBZd_EFZVxOteogNQC7hTxbDNbGMOn-Zfvck41YzPHB7dKPpLs
    vm4U829WcsCyA9BiLBrIYOAmupxBbz7RaTUbIw5rWt31s8gXhx44XLuS
    yDfK59a7iOc7e6cZ_gGqnbqF1Y-DXQN4CJOWT2cTGC9z_ol403901Gtr
    TDssGP5-rPmPEZ7ZNvZRQ7fHKMfrdBUz3yAvLFg8a7g-cdi24SC_Dx_q
    stvRUnZT0CyXBzpUvWCtvVNXVqrzoIoO7TLDVjnpQERpNdiLPjjmmEHS
    i1BrwTaXDhf6USnIydDFJ1OGOetfvkoM6-EtCme8ARx9X_5-sSjAWiWQ
    1DJpndRfKZHD8UqlnkOzrZ2lrWUYxqqrYV-qtlQHxdJ_zuO4we8GSTdr
    YotsYCBFfdHsq87hXpmRS60p_Z24uDXuoGExy00wbXkeni8K3Je6fbup
    07Q1i8VU3mfEE_c1QytamN_tFlH83KubHD80r0o1PMutnNWTtWQuENxG
    gSLkHv-wwzOxEAWUUj9gBVGfBw9ZKOxzxucOorP_xnerEekjipdCvvUn
    uKkhzc88yEHb9T1F0Fa6rUcA-amTVCs1sQ2xyRKaMioGAWZZ4xrESipq
    bPOSkPk2mLz0zaZrJu1tAugwfTdzZ6b9HYd-eZN-emUcoLqqm75ydBqb
    XGT5JZVC3QE62MUkjzcw8ODgFRdD1wxAVtgs92g3-_EKWSHDsi-_XiF1
    LKy1u_8u100bgztyRu_SE3wI1xx1xedGy8r3suOXYl_hSTtzVSiESee9
    JglMcd1gnw6G2wdNks8buMOwXzZm53TUyMYgl3zvQ07d61-ROt-8SpNV
    gX1OgmaLXFzS-zUjEJxUCxBCkVSWASXiQjFk3hnMAWKUzJ4h0dCOW2zI
    OERmzblIx7IZFf-KDOGbI7JucQ-8tnHxA24egXZqb2ecU6z7pHLQ2Zes
    _p7fc5HChkXPsd0DldFVQK3dt1w_AZargICosqKz_16aha4kRUmcoklT
    RXvj7yviAi_Pt8yAVZZIm8CinowijQ4rxViZEqvIpx9NGdOt6PxE-Bb-
    rCKdNgIffpcbMOTCeobpTvtqa9Vds2sCHIGdl5SitLTEy20yvYaf0Sed
    ZXCYeASJg9wezAHKxqskX0e72u7GYFolG-zv2gdyemIDE67vc2rZQctw
    -AiA8q3OEsHtJkpw8aRvtmUivn7kIIFe2_hNc-InwfcGctKjlHv0HNZm
    N4osn_AQKeqSgEvsM0J3xaOJaVPntWiTyF9Rnz6U9Pf0NiA57fhSTvOU
    FfnWrkKZ8YVH_EaZ0WnRTl1naBFhqy-9maDqdwJvRiIy2ovNctKRTrpu
    SpMjjFaacy3FZRJqP373JexEi9lCru4471wuK19rp-K1fSN0cGdJo7r8
    Q-3aXfUPDJZB14NPeoeMqL8wXU3WfBXUYDj06SGCW09dd-ICuFC1s6AD
    _Y8BTcDr_VkK7Ev1buqkpul4mDrJWZtOofyLhPHLXmFMp1Bute_64X61
    M_mfSaYBCW7-7VpVxHQl4S_rPzb2bz7ptSJkfcZo7eg0aNWuTegMvtvh
    XqqGHMoirUgkgg1N_TzO_8jnnhwg1GG8lW79YGZr_ugjMJ84GYZl-9xJ
    Mwg3mnJZwlMKpxDogc-QglfAOJdaYqMIQIkKQ5Ib53FBG5HVPENjKncM
    TiIzHLTdexbJIEjp9THCyaYLoYC_hcUEK3k3lWWhlaOE1NJF3EVYI3gZ
    5JYs-2w7qMYqVSyDKfEYQnmPFjf0kHvWmqc_DfUf8LgXO4RIbVtE66pf
    xF1C5DGL3YHQXEDI16cqR-ehnkCOh1IBBLkCtIo-maI2_N0RN9ey8mfM
    ib_CK-r7cNZUvl2AvdCA47t2TXAfSNLoV6-gseDVJEo_43kOxoqlt6M0
    yk5a_JLmUCCiyo6cUPu47k2H5r-3nOSe79ly2FF2hpI6Vc0j9HqsljbM
    vGyzlA3aHhsHvuM4asseJLMfhOmG4I9c4q2-NRMOPSyroua_jxCx71P8
    EmTUsS88bdmIpfxNyO0Opr1On4QCikoF2brkRMi7EKeGU_XREoNdv2I7
    YgOM1XVw9kZ5S8TKJFb9rh8W23ZN9ET2LM9zhDfZjSxnBqqmtpXPxTt6
    JnMp-xWr0j5kKx-DKTlclwZ1oW-49CEpcntmewHTRXWm_VwHZ-c0etGV
    5eQ2MSbgclVKT1ffF6IzTN4pyUj7u_vkj4MhiJeyhAZAyriL7nmYeJxd
    jWUgcFr7IeH8J0uHoGU9_qPDvn_GUjNUcsQ49dqJ648lkW8M7GdlaxoF
    YDp0zfGaN_QzsZjY9RgfFbHvyEN0MHwGryCMCf5glaxGywMEriR2rxe1
    cDeL4IRzpDo4RzNO4MgGBYi51RxFDgST49OpwzvqtZzyVORVNThzrwZw
    hbZcCD6DGxaX8wzTfzz1DPHuq4KfrT0b1nbqv9GPh0AoYOIheGXhjpnQ
    z19Yl69jasQoiQUT0fX7sNjFxFOMJjvrjNH8gD_mPZVpeqcAiN5rvry0
    KEWWZ7r3w7-pzxROuD8Jm1Lvc_wV3l1xMl3zHx_gxaidN8egCtIOzpS-
    v3oPSYvC4S8P_wpC24uihYy_YSrK12KSN2PJmOfo9dPs1K2BvqTB1uLO
    RneFMfcm_EjcM9ST3ydAg_ke0kFQI0k4aumQYN3jB8PmdSo5qzfHVz24
    WoN00Fs5NSJDjmMg2kI0jKwH2hNm_iWuIDd5YIv001Yga_rMwC3f_dCB
    mCi3r49PsMvlfbbjKAY0LgLfJaS4N8CiqWJaj_wmITjO6T8NuXeJR6yS
    pGSisMptWq7MUQDXDjT7qe_Pwo0Snd_4eRs0QGerSeVuX8yCkdgZqYkV
    X2L3OqJONjW1XMOzHpvny8BJXn7JCjAAGakhtCn0eOSmEZHFkgq6Lb3F
    9SRhCAUNUigmOvgCAZtX___YazcpeR7FLaVfKyPSBcQpZA

Codes load, play, pause and stop windows media player vb.net 2010

Code Load :

AxWindowsMediaPlayer1.URL = "a.mp3"

Code play :

AxWindowsMediaPlayer1.Ctlcontrols.play()

Code pause :

AxWindowsMediaPlayer1.Ctlcontrols.pause()

Code stop :

AxWindowsMediaPlayer1.Ctlcontrols.stop()

message box exit button Vb.net

 Dim Response As Integer

        Response = MessageBox.Show("Do you really want to Exit?", "", _

        MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        If Response = vbYes Then

            End

Visual Studio 2010 How to Create Setup Project

1.  Open visual studio 2010.
2.   New>> project
3.  Visual Basic >>other project types>>Setup and deployment>>Visual studio Installer
4.   Choose Setup wizard
5.  
6.   Next
7.  Choose Files
   
   
   
   
   
8.   Next
9.   Finish
   
10. 10.                         

                   Click in  Application folder
                Copy 2 copies from File exe
                 Change icon in 2 copies
     Drag and drop copy to user’s Desktop Folder
           Drag and drop copy to user’s program menu
                    
                   Right click  videos setup

                Properties
                  Prerequisites
       Download from same location
       Build>> Build Solution

لنشر روابط في جوجل

لنشر روابط في جوجل لزيادة ارشفتها ورؤيتها  على الانترنت  هناك موقع يتبع جوجل ويتم في اضافة الروابط  حتى يزيد من زحف جوجل عليها مما يشهر موقعك ويجعله أكثر فعالية على الانترنت.

الرابط

https://www.google.com/webmasters/tools/submit-url