Mazoo Utils for VBA - کتابخانه ابزارهای سودمند برای VBA

این متد مشخصات همه دیسک درایوها را نشان میدهد.
فقط کابرد تست و آموزشی دارد.

ShowDiskDrivesInfo()

کد نمونه:

Sub Example_B()





    Dim ddi() As New DiskDriveInfo

    ddi = v.GetDiskDrivesInfo

    

    N = UBound(ddi)

    If N >= 0 Then

        Debug.Print N + 1 & " Disk Drives Found!"

        For i = 0 To N

            Debug.Print ddi(i).Name, ddi(i).Caption

            ddi(i).ShowProperties

        Next

    Else

        Debug.Print "No Disk Drives Found!"

    End If

    

End Sub

این متد لیست همه نرام افزارهای نصب شده را در یک فرم با امکان جستجو نشان میدهد.
اطلاعات از دو روش خواندن رجیستری و کوئری WMI آماده و با هم ترکیب میشود.
پروسه کوئری WMI زمانبر است و ممکن است تا دیدن نتایج در فرم چند دقیقه نیاز باشد.

ShowInstalledSoftwaresInfo()

کد نمونه:

Sub Example_1()





    v.ShowInstalledSoftwaresInfo

    

End Sub

این متد مشخصات همه اینترفیس های شبکه را نشان میدهد.
فقط کاربرد تست و آموزشی دارد.

ShowNetworkAdaptersInfo()

کد نمونه:

Sub Example_A()





    v.ShowNetworkAdaptersInfo

    

End Sub

این متد مشخصات همه ماجول های RAM را نشان میدهد.
فقط کاربرد تست و آموزشی دارد.

ShowPhysicalMemoryInfo()

کد نمونه:

Sub Example_A()





    v.ShowPhysicalMemoryInfo

    

End Sub

این متد مشخصات همه پرینترها را نشان میدهد.
فقط کاربرد تست و آموزشی دارد.

ShowPrintersInfo()

کد نمونه:

Sub Example_A()





    v.ShowPrintersInfo





End Sub

این متد مشخصات همه پردازنده ها را نشان میدهد.
فقط کاربرد تست و اموزشی دارد.

ShowProcessorsInfo()

کد نمونه:

Sub Example_A()





    v.ShowProcessorsInfo

    

End Sub

این متد مشخصات همه اسکرین ها را نشان میدهد.
فقط کاربرد تست و آموزشی دارد.

ShowScreensInfo()

کد نمونه:

Sub Example_A()





    v.ShowScreensInfo

    

End Sub

این متد مشخصات همه کنترلرهای گرافیکی را نشان میدهد.
فقط کاربرد تست و آموزشی دارد.

ShowVideoControllersInfo()

نمونه کد:

Sub Example_A()





    v.ShowVideoControllersInfo

    

End Sub

Function GetOperatingSystemInfo() As OperatingSystemInfo

Class OperatingSystemInfo

' Properties

    Public ReadOnly Property BootDevice As String

    Public ReadOnly Property BuildNumber As String

    Public ReadOnly Property BuildType As String

    Public ReadOnly Property Caption As String

    Public ReadOnly Property CodeSet As String

    Public ReadOnly Property CountryCode As String

    Public ReadOnly Property CSDVersion As String

    Public ReadOnly Property CSName As String

    Public ReadOnly Property CurrentTimeZone As Integer

    Public ReadOnly Property Description As String

    Public ReadOnly Property Distributed As Boolean

    Public ReadOnly Property EncryptionLevel As UInt32

    Public ReadOnly Property FreePhysicalMemory As Double

    Public ReadOnly Property FreeSpaceInPagingFiles As Double

    Public ReadOnly Property FreeVirtualMemory As Double

    Public ReadOnly Property InstallDate As String

    Public ReadOnly Property LastBootUpTime As String

    Public ReadOnly Property LocalDateTime As String

    Public ReadOnly Property Locale As String

    Public ReadOnly Property Manufacturer As String

    Public ReadOnly Property MUILanguages As String()

    Public ReadOnly Property Name As String

    Public ReadOnly Property NumberOfUsers As UInt32

    Public ReadOnly Property OperatingSystemSKU As String

    Public ReadOnly Property Organization As String

    Public ReadOnly Property OSArchitecture As String

    Public ReadOnly Property OSLanguage As String

    Public ReadOnly Property PortableOperatingSystem As Boolean

    Public ReadOnly Property ProductType As String

    Public ReadOnly Property RegisteredUser As String

    Public ReadOnly Property SerialNumber As String

    Public ReadOnly Property Status As String

    Public ReadOnly Property SystemDevice As String

    Public ReadOnly Property SystemDirectory As String

    Public ReadOnly Property SystemDrive As String

    Public ReadOnly Property TotalVirtualMemorySize As Double 'KB

    Public ReadOnly Property TotalVisibleMemorySize As Double ' KB

    Public ReadOnly Property Version As String

    Public ReadOnly Property WindowsDirectory As String

کد نمونه:

Sub Example_B()





    Dim os_info As New OperatingSystemInfo

    Set os_info = v.GetOperatingSystemInfo

    Debug.Print os_info.Caption

    

End Sub

این متد مشخصات ویندوز را نمایش میدهد.
فقط کاربرد تست و آموزشی دارد.

ShowOperatingSystemInfo()

کد نمونه:

Sub Example_A()





    v.ShowOperatingSystemInfo

    

End Sub

کدهای نمونه :

نسخه X86 برای آفیس 32 بیت


نسخه X64 برای آفیس 64 بیت

با سلام و تشکر از مطلب مفیدی که به اشتراک گذاشتین. نمیدونم چرا فایل ضمیمه رو نمیتونم دانلود کنم

نقل قول:

---

نوشته شده توسط hamed2661

با سلام و تشکر از مطلب مفیدی که به اشتراک گذاشتین. نمیدونم چرا فایل ضمیمه رو نمیتونم دانلود کنم

---

سلام و روز خوش

من همیشه پیوست ها رو در خود انجمن میگذارم ولی با توجه به محدودیت حجمی که اینجا گذاشته شده باید در 5 تکه آپلود کنم.
لینک های پست 52 از google drive و همیشگی هست.
مستقیم دانلود نمیشه و شما رو به گوگل درایو میبره و اونجا میتونین با کلیک رو آیکون دانلود کنین:
ضمیمه 154941

با این وجود اگر باز هم مشکل هست ایمبل بدین براتون میفرستم.

Sub Example_2()

 

 

    Dim r As New MessageBoxResult

 

 

    Set r = v.ShowMessageBox(title:="", message:="ثبت سند با موفقیت انجام شد.")

     

    Debug.Print r.VBA_ButtonName, r.DoNotShowAgain, r.Result

     



End Sub

با سلام و احترام وتشکر در کلیه این مثالها (v.ShowMessageBox ) v ابجکت چه کلاسی هست و کجا تعریف و ایجاد شده ؟

بزرگوار شما که اینهمه زحمت میکشین یه مطلب هم در مورد jackcode بذارین

.................................

نقل قول:

---

نوشته شده توسط moustafa

Sub Example_2()

 

 

    Dim r As New MessageBoxResult

 

 

    Set r = v.ShowMessageBox(title:="", message:="ثبت سند با موفقیت انجام شد.")

     

    Debug.Print r.VBA_ButtonName, r.DoNotShowAgain, r.Result

     



End Sub

با سلام و احترام وتشکر در کلیه این مثالها (v.ShowMessageBox ) v ابجکت چه کلاسی هست و کجا تعریف و ایجاد شده ؟

---

با سلام و احترام متقابل
لطفا ماجول PUBLICS رو ببینین:

Public v As New VBAutils

نقل قول:

---

نوشته شده توسط moustafa

بزرگوار شما که اینهمه زحمت میکشین یه مطلب هم در مورد jackcode بذارین

---

هیچ آشنایی با این اکتیوایکس ندارم.
و البته اعتقادی هم به استفاده از این و مشابهش هم ندارم -
پیشنهاد میکنم winforms (یا مشابه) و با کمپوننت های devexpress یا telerik کار کنین.

نقل قول:

---

نوشته شده توسط mazoolagh

هیچ آشنایی با این اکتیوایکس ندارم.
و البته اعتقادی هم به استفاده از این و مشابهش هم ندارم -
پیشنهاد میکنم winforms (یا مشابه) و با کمپوننت های devexpress یا telerik کار کنین.

---

منبع آموزشی برای اکسس دارن ؟ عموما در بستر دانت نت و سی شارپ در موردش کلیپهای آموزشی دریوتیوب و آپارات وجود داره

نقل قول:

---

نوشته شده توسط mazoolagh

با سلام و احترام متقابل
لطفا ماجول PUBLICS رو ببینین:

Public v As New VBAutils

---

با تشکر لطفا در عنوانها نیز تصحیح بفرمائید از VBAutils

نقل قول:

---

نوشته شده توسط moustafa

با تشکر لطفا در عنوانها نیز تصحیح بفرمائید از VBAutils

---

vbautils از جای دیگه ای نیومده که نیاز باشه بهش رفرنس بدم!

این اسمبلی به اسم Mazoo Utils for VBA ساخته شده:

<Assembly: AssemblyTitle("Mazoo Utils for VBA")>

<Assembly: AssemblyDescription("Mazoo Utils for VBA")>

<Assembly: AssemblyCompany("mazoolagh@yahoo.com")>

<Assembly: AssemblyProduct("Mazoo Utils for VBA")>

<Assembly: AssemblyCopyright("Copyright ©  2023 Mazoolagh")>

<Assembly: AssemblyTrademark("")>

<Assembly: ComVisible(True)>

Imports System.Reflection

Imports System.Windows.Forms



<ComClass(VBAutils.ClassId, VBAutils.InterfaceId, VBAutils.EventsId)>

Public Class VBAutils

    ...

    ...

End Class

که شما اینجوری میبیننش:
ضمیمه 156045

و اینجوری استفاده میکنین:
ضمیمه 156048
ضمیمه 156049

نقل قول:

---

نوشته شده توسط moustafa

بزرگوار شما که اینهمه زحمت میکشین یه مطلب هم در مورد jackcode بذارین

---

سلام
ابزار های CodeJock اصولاً برای استفاده در محیط های برنامه نویسی VB ، VB.NET و C#‎‎‎‎‎‎‎.NET ساخته شده ان و بسیاری از اونها فاقد کارائی مناسب و ایده آل در محیط اکسس میباشن . اگه هم گاهاً می بینی بعضی از این ابزارها توسط افرادی در محیط اکسس مورد استفاده قرار گرفته مطمئن باشین وقت زیادی برای تغییر و تطبیق کدها صرف شده تا اون ابزار تا حدودی قابل استفاده در این محیط باشه .
در بین ابزار های CodeJock فکر کنم فقط ابزار Ribbon و Calendar باشه که غیر از محیط های ذکر شده برای استفاده در اکسس هم در نظر گرفته شده باشن

نقل قول:

---

نوشته شده توسط mazoolagh

این متد یک فرم برای آزمایش همه امکانات ShowToastNotification را باز میکند و فقط کاربرد آموزشی و تست دارد.

ShowToastNotificationDemo()

ضمیمه 154692

ضمیمه 154693

---

قطعاً اجرای ShowToastNotification با استفاده از امکانات ویژه در فرم غیر آموزشی و بدون محدودیت که دارای قابلیت ذخیره سازی تغییرات میباشه جذاب خواهد بود

تصاویری از اجرای کامپوننت پاپ آپ کنترل Codejock در حالت های مختلف در محیط وی بی 6 ضمیمه شده
با مشاهده این تصاویر کاملاً مشخص میشه که ShowToastNotification بمراتب دارای امکانات بهتر و جذابتری می باشه

نقل قول:

---

نوشته شده توسط eb_1345

قطعاً اجرای ShowToastNotification با استفاده از امکانات ویژه در فرم غیر آموزشی و بدون محدودیت که دارای قابلیت ذخیره سازی تغییرات میباشه جذاب خواهد بود

تصاویری از اجرای کامپوننت پاپ آپ کنترل Codejock در حالت های مختلف در محیط وی بی 6 ضمیمه شده
با مشاهده این تصاویر کاملاً مشخص میشه که ShowToastNotification بمراتب دارای امکانات بهتر و جذابتری می باشه

---

پشت پرده همه این toast notification ها winform هست،
و این متدهای انیمیشن هم همه از تابع AnimateWindow کتابخانه user32 استفاده میشه،
برای همین شبیه هم هست امکانات.

ولی هر کسی ممکنه یک دیزاین و لی اوت خاصی برای این فرم ها در نظر بگیره.
اینی که من اینجا گذاشتم یک بخشهایی رو کنار گذاشتم مثل امکان گرفتن پاسخ از کاربر (مشابه مسج باکس) یا ارسال به دستگاه دیگه.

و از کل کتابخانه هم هر چیزی که ممکن باشه به شکلی ایجاد شبهه کنه کنار گذاشتم: چیزهایی مثل هر نوع کار با شبکه و فایل.
و همینجور امکاناتی که از کمپوننت های دیگه استفاده میکنه (و اونها هم جداگانه باید نصب بشن و لایسنس دارن).

سلام. با تشکر از استاد ارجمند. 4 فایل اصلی برنامه که در پست های ابتدایی تایپیک اشاره شده از کجا دانلود کنیم؟

نقل قول:

---

نوشته شده توسط mohammadsaleh

سلام. با تشکر از مازولاق ارجمند. 4 فایل اصلی برنامه که در پست های ابتدایی تایپیک اشاره شده از کجا دانلود کنیم؟

---

سلام و روز خوش
برنامه نمونه در پست 51 همین صفحه پیوست شده،
و لینک های دانلود کتابخانه از google drive هم در پست 52 آمده:

دانلود کدهای نمونه
https://barnamenevis.org/showthread....=1#post2458490

دانلود کتابخانه (نسخه 32 و 64 بیت)
https://barnamenevis.org/showthread....=1#post2458607

البته یادآوری شما کاملا درست بود،
پست اول به همین دلیل ویرایش شد.