1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
الكاتب : Yousuf.Oscar | المشاهدات : 229 | الردود : 6
  1. Yousuf.Oscar

    Yousuf.Oscar DeveloPer Plus

    الأنتساب:
    ‏22 يوليو 2015
    المشاركات:
    163
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    18
    الإقامة:
    العراق
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    [​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
    الإقامة:
    العراق
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: اكواد مهمه في الفيجوال بيسك

    اكثر من روعة



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

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

    الأنتساب:
    ‏1 سبتمبر 2014
    المشاركات:
    701
    الإعجابات المتلقاة:
    47
    نقاط الجائزة:
    28
    الوظيفة:
    ماكسي مول
    الإقامة:
    دوله العراق العظيم
    نظام التشغيل:
    Linux
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: اكواد مهمه في الفيجوال بيسك

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


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

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

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

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

    A-R Developer

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

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


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

    M o H a N a D مشرف

    الأنتساب:
    ‏1 أغسطس 2015
    المشاركات:
    238
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    18
    الجنس:
    ذكر
    الإقامة:
    عٍاٌلِـمِـ لِـاٌ يٌـسُكُنه غَيٌـرُيٌـ
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: اكواد مهمه في الفيجوال بيسك

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

    ahmednajeh98 Developer

    الأنتساب:
    ‏16 أكتوبر 2015
    المشاركات:
    111
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    16
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: اكواد مهمه في الفيجوال بيسك

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

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