تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اكواد منوعه في Vb.net
#1
كاتب الموضوع : جهاد العريقي


بسم الله الرحمنالرحيم

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

تجميد الفأره

كود :
[color=#000000][COLOR=#0000bb][/color][color=#007700]Private Declare Function [/color][color=#0000bb]BlockInput Lib [/color][color=#dd0000]"user32" [/color][color=#007700]([/color][color=#0000bb]ByVal fBlock [/color][color=#007700]As [/color][color=#0000bb]Boolean[/color][color=#007700]) As [/color][COLOR=#0000bb]Boolean
                 [/COLOR][COLOR=#dd0000]' إيقاف الادخال من الماوس والكيبورد
                BlockInput(True)
                 ' [/COLOR][COLOR=#0000bb]إعادة امكانية الإدخال من الماوس والكيبورد
                BlockInput[/COLOR][color=#007700]([/color][color=#0000bb]False[/color][COLOR=#007700])  
[/COLOR][color=#0000bb][/color][/COLOR]

الاتصال بطابعه


كود :
[color=#000000][COLOR=#0000bb][/color][color=#007700]Public Declare Function [/color][color=#0000bb]ConnectToPrinterDlg Lib [/color][color=#dd0000]"winspool.drv" [/color][color=#0000bb]Alias [/color][color=#dd0000]"ConnectToPrinterDlg" [/color][color=#007700]([/color][color=#0000bb]ByVal hwnd [/color][color=#007700]As [/color][color=#0000bb]Integer[/color][color=#007700], [/color][color=#0000bb]ByVal flags [/color][color=#007700]As [/color][color=#0000bb]Integer[/color][color=#007700]) As [/color][COLOR=#0000bb]Integer

    [/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Button1_Click[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Button1[/color][color=#007700].[/color][COLOR=#0000bb]Click
        ConnectToPrinterDlg[/COLOR][color=#007700]([/color][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Handle[/color][color=#007700].[/color][color=#0000bb]ToInt32[/color][color=#007700], [/color][color=#0000bb]2[/color][COLOR=#007700])
    [/COLOR][COLOR=#0000bb]End Sub  
[/COLOR][/COLOR]

اخذ عنوان IP



كود :
[COLOR=#000000][COLOR=#0000bb]
Imports System[/COLOR][color=#007700].[/color][COLOR=#0000bb]Net
[/COLOR][COLOR=#dd0000]'الكود  
        Try
            Dim server As String = "microsoft.com" '[/COLOR][color=#007700]or [/color][COLOR=#0000bb]any other domain name
            Dim hostEntry [/COLOR][color=#007700]As [/color][color=#0000bb]IPHostEntry [/color][color=#007700]= [/color][color=#0000bb]Dns[/color][color=#007700].[/color][color=#0000bb]Resolve[/color][color=#007700]([/color][color=#0000bb]server[/color][COLOR=#007700])
            [/COLOR][color=#0000bb]Dim ipAddresses [/color][color=#007700]As [/color][color=#0000bb]IPAddress[/color][color=#007700]() = [/color][color=#0000bb]hostEntry[/color][color=#007700].[/color][COLOR=#0000bb]AddressList
            Dim ipAddress [/COLOR][color=#007700]As [/color][COLOR=#0000bb]IPAddress
            [/COLOR][color=#007700]For [/color][COLOR=#0000bb]Each ipAddress In ipAddresses
                MsgBox[/COLOR][color=#007700]([/color][color=#0000bb]ipAddress[/color][color=#007700].[/color][color=#0000bb]ToString[/color][COLOR=#007700]())
            [/COLOR][COLOR=#0000bb]Next
        [/COLOR][color=#007700]Catch [/color][color=#0000bb]Ex [/color][color=#007700]As [/color][COLOR=#0000bb]Exception
            MsgBox[/COLOR][color=#007700]([/color][color=#0000bb]Ex[/color][color=#007700].[/color][color=#0000bb]Message[/color][COLOR=#007700])
        [/COLOR][color=#0000bb]End [/color][COLOR=#007700]Try  
[/COLOR][color=#0000bb][/color][/COLOR]

لعرض البرنامج في شريط المهام

كود :
[COLOR=#000000][COLOR=#0000bb]
[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Button1_Click[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Button1[/color][color=#007700].[/color][COLOR=#0000bb]Click
        Dim a [/COLOR][color=#007700]As New [/color][COLOR=#0000bb]NotifyIcon
        a[/COLOR][color=#007700].[/color][color=#0000bb]Icon [/color][color=#007700]= [/color][color=#0000bb]Me[/color][color=#007700].[/color][COLOR=#0000bb]Icon
        a[/COLOR][color=#007700].[/color][color=#0000bb]Visible [/color][color=#007700]= [/color][COLOR=#0000bb]True
        Me[/COLOR][color=#007700].[/color][color=#0000bb]Hide[/color][COLOR=#007700]()
[/COLOR][COLOR=#0000bb]End Sub  
[/COLOR][/COLOR]
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اكواد فيجوال بيسك نت 2005 RaggiTech 0 4,608 17-10-12, 09:07 PM
آخر رد: RaggiTech
  اكواد التاريخ والوقت RaggiTech 0 2,714 17-10-12, 08:47 PM
آخر رد: RaggiTech
  مثال رائع من مايكروسوفت يوضح اكواد التعامل مع الملفات و بتصميم ممتاز(80ك ب) RaggiTech 0 2,389 17-10-12, 07:19 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم