مجموعة من الأكواد المتنوعة

  • كود معرفة عدد الثواني التي مرت على تشغيل الجهاز Get Time by Seconds from PC Start:
private int GetSecFromStart()
{
    int SecondsFromStart = Environment.TickCount / 1000;
    return SecondsFromStart;
}


  • كود معرفة دقة الشاشة Get Screen Resolution:
private string GetScreenRes()
{
    string ScrRes = Screen.PrimaryScreen.Bounds.Width + "X" + Screen.PrimaryScreen.Bounds.Height;
    return ScrRes;
}


  • كود معرفة ايبي الجهاز Get PC IP Address:
public static string GetIPAddress(string sHostName)
{
    System.Net.IPHostEntry ipEntry = System.Net.Dns.GetHostByName(sHostName);
    System.Net.IPAddress[] addr = ipEntry.AddressList;
    string sIPAddress = addr[0].ToString();
    return sIPAddress;
}

  • كود لإصدار صوت تنبيه في الويندوز Play Beep Sound:
Private Sub PlayBeep()
    Dim b As System.Media.SystemSound = System.Media.SystemSounds.Beep

    b.Play()
End Sub


  • كود الحصول على الخطوط الموجودة في الجهاز Get Fonts on your PC:
Private Sub GetSystemFonts()
    Dim fnt As New System.Drawing.Text.InstalledFontCollection()

    For i As Integer = 0 To fnt.Families.Length - 1
        ListBox1.Items.Add(fnt.Families(i).Name)
    Next
End Sub


  • كود طباعة ملف Print File quickly:
Private Sub PrintFile(ByVal FileName As String)
    Dim prnt As New System.Drawing.Printing.PrintDocument
                  
    prnt.DocumentName = FileName
    prnt.Print()
End Sub

2 تعليقات

شكرا .. جزاك الله خيرا

لكن لدي طلب ؟

اريد الكود الذي بواسطته تضع كود html
كما في التدوينة هذه

رد

الشرح في الملف التالي:

http://www.vb4arab.com/vb/uploaded/36671/01304441936.rar

رد

إرسال تعليق