التخطي إلى المحتوى الرئيسي

المشاركات

كلاس كامل للتحكم فى النظام | VB.NET Class to control system

Public Class WinSetting     Public Class Desktop         Public Sub ShowWindowsVersionOnDesktop(ByVal Enable As Boolean)             Select Case Enable                 Case True                     My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Desktop", "PaintDesktopVersion", 1, Microsoft.Win32.RegistryValueKind.DWord)                 Case False                     My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Desktop", "PaintDesktopVersion", 0, Microsoft.Win32.RegistryValueKind.DWord)             End Select         End Sub         Public Sub DisableDesktopCleanupWizard(ByVal Enable As Boolean)             ...
إرسال تعليق
قراءة المزيد

التحكم فى الريجسترى - control Registry - فيجوال بيسك دوت نت

قراءة قيمة من الريجسترى Public Function ReadFromRegistry(ByVal Location As String, _ ByVal Name As String) As String ' Returns a value from the registry Dim MyKey As Microsoft.Win32.RegistryKey MyKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey(Location) ReadFromRegistry = CType(MyKey.GetValue(Name), String) MyKey.Close() End Function أخذ جميع القيم الموجودة فى مجلد الريجسترى Dim Reg As Microsoft.Win32.RegistryKey         Reg = Microsoft.Win32.Registry.CurrentUser         Dim Str As String         For Each Str In Reg.GetValueNames()             MsgBox(Str)         Next حذف مجلد من الريجسترى Dim Reg As Microsoft.Win32.RegistryKey         Reg = Microsoft.Win32.Registry.CurrentUser         Reg.DeleteSubKey("MiCcSoft") كتابة قيمة فى الريجسترى Public Sub WriteToRegistry(ByVal Location As String, _ ByVal Name ...
إرسال تعليق
قراءة المزيد

التحكم فى الصوت - مكتبة أكواد جاهزة للغة فيجوال بيسك دوت نت

ايقاف تشغيل الصوت المُشغَّل حالياً My.Computer.Audio.Stop() تشغيل ملفات الصوت الويف فقط (.wav audio files) My.Computer.Audio.Play ("File") مثال برنامج كامل لدمج الصوت بصيغة mp3 audio file merge Public Class MainFrm     Structure File         Dim FileName As String         Dim FileBy() As Byte     End Structure     Structure Files         Dim Files() As File     End Structure     Private Sub MainFrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load     End Sub     Private Sub BrFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrFile.Click         Dim a As New SaveFileDialog         a.Filter = "MP3 Files (*.mp3)|*.mp3"         If a.ShowDialog = Windows.Forms.DialogResult.OK Then         ...
إرسال تعليق
قراءة المزيد

كود تشغيل الكاميرا - فيجوال بيسك دوت نت

Private Const WM_USER As Short = &H400S     Private Const WS_CHILD As Integer = &H40000000     Private Const WS_VISIBLE As Integer = &H10000000     Private Const WM_CAP_DRIVER_CONNECT As Integer = WM_USER + 10     Private Const WM_CAP_DRIVER_DISCONNECT As Integer = WM_USER + 11     Private Const WM_CAP_SET_PREVIEW As Integer = WM_USER + 50     Private Const WM_CAP_SET_PREVIEWRATE As Integer = WM_USER + 52     'API funkcije     Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Short, ByVal lParam As String) As Integer     Private Declare Function capCreateCaptureWindowA Lib "avicap32.dll" (ByVal lpszWindowName As String, ByVal dwStyle As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Short, ByVal hWndParent As Integer, ByVal nID As Integer) As Integer...
إرسال تعليق
قراءة المزيد

استخدام العمليات الحسابية فى برنامج إكسل - فيجوال بيسك دوت نت

العمليات الحسابية المعقدة مع الاكسل  من المعروف ان من اهم الوظائف التي يقوم بها برنامج الاكسل هي القيام بالعمليات الحسابية المعقدة جدا . لذلك سنتعرف اليوم على كيفية ربط برنامج الاكسل و ادخال العبارات الحسابية اليه ثم اخراج النتائج .  اولا: من قائمة Project اختر Add Reference , من علامة التبويب com اختر العنصر Microsoft Excel 10 Object Library ثم اضغط OK .  ثانيا: اضف زر امر و اكتب الكود الاتي:         'يمثل هذا المتغير برنامج الاكسل        Dim exl As New Excel.Application()        'سنخزن في هذا المتغير عبارة رياضية معقدة         Dim mathStr As String        'امكانية ادخال العبارات الرياضية من المستخدم        mathStr = InputBox("Enter math expression to evaluate", , _        "cos(56.7/4)/exp(-4.269)")        If mathStr <> "" Then            Try   ...
إرسال تعليق
قراءة المزيد

تشغيل ملف بوربوينت من خلال كود فيجوال بيسك دوت نت

Dim op As New PowerPoint.Application()        op.Visible = True        op.Presentations.Open(filename:="a.ppt")        op.ActivePresentation.SlideShowSettings.Run()        op = Nothing Please SUBSCRIBE to get new articles directly into your Email inbox!
إرسال تعليق
قراءة المزيد

استخدام التصحيح التلقائى الموجود فى برنامج مايكروسوفت وورد - فيجوال بيسك دوت نت

'يمثل هذا المتغير برنامج الوورد  public WordApp As New Word.Application() Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        ' يمثل هذا المتغير النص المكتوب        Dim DRange As Word.Range        Me.Text = "Starting Word ..."        'اضافة مستند جديد        WordApp.Documents.Add()        Me.Text = "Checking words..."        ' تعرف النص المكتوب الحالي و الموجود في المستند الذي اضفناه        DRange = WordApp.ActiveDocument.Range        'ادخال النص المكتوب في مربع النص الى المستند        DRange.InsertAfter(TextBox1.Text)        'يمثل هذا المتغير الاخطاء الاملائية        Dim SpellCollection As Word.ProofreadingErrors        'تعريف الاخطاء الاملائية...
إرسال تعليق
قراءة المزيد