1. Yousuf.Oscar

    Yousuf.Oscar DeveloPer Plus

    الأنتساب:
    ‏22 يوليو 2015
    المشاركات:
    163
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    18
    الإقامة:
    العراق
    [​IMG]


    السلام عليكم ورحمه الله وبركاته


    اسعد الله اوقاتكم اينما كنتم


    اليوم موضوعي على اكواد فيجوال بيسك


    اكواد مهمه تحتاجها وقد تفيد المبتدئين


    اليوم جمعت افضل الاكواد:{2!}:
    [​IMG]


    كود رسالة نصية Msgbox
    Msgbox (" ")
    -----------------------------------------
    فتح ملف
    PROCESS.START("مسار الملف في الجهاز")
    -----------------------------------------
    فتح ملف من الجهاز بواسطة OpenFlileDialog
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim Security As New OpenFileDialog
    With Security
    .Title = ("اختر ملف ")
    .Filter = ("كل الملفات|*.*")
    .ShowDialog()
    End With
    End Sub
    End Class
    -----------------------------------------
    الحصول على المدخلات من خلال الدالة Inputbox وعرضها في الـ TEXTBOX
    Dim Security As String
    Security = InputBox("ادخل اسم")
    TextBox1.Text = Security
    -----------------------------------------
    معرفة حجم ملف عنطريق OpenFileDialog و Label
    OpenFileDialog1.ShowDialog()
    Dim myFile As New FileInfo(Me.OpenFileDialog1.FileName)
    Label1.Text = "size : " & myFile.Length / 1024
    -----------------------------------------
    معرفة حالة النت اذا كان متصل ام لا
    If My.Computer.Network.IsAvailable Then
    Label1.ForeColor = Color.Green
    Label1.Text = "Network Status : Working"
    Else
    Label1.ForeColor = Color.Red
    Label1.Text = "Network Status : Not Connected"
    End If
    -----------------------------------------


    حفظ المحتوى في Textbox الى ملف Text
    System.IO.File.WriteAllText("E:\letters.txt", TextBox1.Text)
    -----------------------------------------
    حذف ملف
    If IO.File.Exists("مسار الملف") = True Then
    IO.File.Delete("مسار الملف")
    -----------------------------------------
    نسخ ملف ُ;)ًٌُ
    My.Computer.FileSystem.CopyFile("مسار الملف", True)
    -----------------------------------------
    معرفة اسم الجهاز #:"
    Dim Security_Alshab As String
    Security_Alshab = System.Environment.UserName
    MsgBox(Security_Alshab)


    انشاء الله استفتدم من الاكواد


    في امان الله !
    [​IMG]
     
    1 person likes this.
  2. جـعـفـر الـشـمـري

    جـعـفـر الـشـمـري DeveloPer Plus

    الأنتساب:
    ‏26 أغسطس 2015
    المشاركات:
    526
    الإعجابات المتلقاة:
    8
    نقاط الجائزة:
    18
    الإقامة:
    العراق
    رد: اكواد مهمه في الفيجوال بيسك

    اكثر من روعة



    تم الوشم بالخماسي :!."
     
  3. سكيورتي ارهابي

    سكيورتي ارهابي ExpErt DeveloPer

    الأنتساب:
    ‏1 سبتمبر 2014
    المشاركات:
    691
    الإعجابات المتلقاة:
    43
    نقاط الجائزة:
    28
    الوظيفة:
    ماكسي مول
    الإقامة:
    دوله العراق العظيم
    رد: اكواد مهمه في الفيجوال بيسك

    احسنت بارك الله بيك حبيبي


    :lolًٌُ:ٌ​
     
  4. عـقرب الـنجف

    عـقرب الـنجف DeveloPer Plus

    الأنتساب:
    ‏5 يونيو 2015
    المشاركات:
    299
    الإعجابات المتلقاة:
    168
    نقاط الجائزة:
    43
    الجنس:
    ذكر
    الوظيفة:
    programmer
    الإقامة:
    العراق
    رد: اكواد مهمه في الفيجوال بيسك

    بارك الله فيك
     
  5. A-R

    A-R Developer

    الأنتساب:
    ‏2 يوليو 2015
    المشاركات:
    346
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    18
    الإقامة:
    العراق العظيم
    رد: اكواد مهمه في الفيجوال بيسك

    عاشت ايدك على الاكواد شكرا


    تقبل مروري​
     
  6. M o H a N a D

    M o H a N a D DeveloPer Plus

    الأنتساب:
    ‏1 أغسطس 2015
    المشاركات:
    228
    الإعجابات المتلقاة:
    2
    نقاط الجائزة:
    18
    الإقامة:
    عٍاٌلِـمِـ لِـاٌ يٌـسُكُنه غَيٌـرُيٌـ
    رد: اكواد مهمه في الفيجوال بيسك

    رؤوعـة ,,
    أاحسنت أاستمر ,,
     
  7. ahmednajeh98

    ahmednajeh98 Developer

    الأنتساب:
    ‏16 أكتوبر 2015
    المشاركات:
    111
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    16
    رد: اكواد مهمه في الفيجوال بيسك

    شكرا لك اكواد مهمه
     

مشاركة هذه الصفحة