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

[mazoolagh]

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

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

[mazoolagh]

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

ShowInstalledSoftwaresInfo()

کد نمونه:

Sub Example_1()





    v.ShowInstalledSoftwaresInfo

    

End Sub

[mazoolagh]

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

ShowNetworkAdaptersInfo()

کد نمونه:

Sub Example_A()





    v.ShowNetworkAdaptersInfo

    

End Sub

[mazoolagh]

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

ShowPhysicalMemoryInfo()

کد نمونه:

Sub Example_A()





    v.ShowPhysicalMemoryInfo

    

End Sub

[mazoolagh]

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

ShowPrintersInfo()

کد نمونه:

Sub Example_A()





    v.ShowPrintersInfo





End Sub

[mazoolagh]

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

ShowProcessorsInfo()

کد نمونه:

Sub Example_A()





    v.ShowProcessorsInfo

    

End Sub

[mazoolagh]

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

ShowScreensInfo()

کد نمونه:

Sub Example_A()





    v.ShowScreensInfo

    

End Sub

[mazoolagh]

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

ShowVideoControllersInfo()

نمونه کد:

Sub Example_A()





    v.ShowVideoControllersInfo

    

End Sub

[mazoolagh]

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

[mazoolagh]

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

ShowOperatingSystemInfo()

کد نمونه:

Sub Example_A()





    v.ShowOperatingSystemInfo

    

End Sub

[mazoolagh]

کدهای نمونه :

[mazoolagh]

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


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

[hamed2661]

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

[mazoolagh]

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

سلام و روز خوش

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

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

[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 ابجکت چه کلاسی هست و کجا تعریف و ایجاد شده ؟

[moustafa]

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

[atf1379]

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

[mazoolagh]

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

[mazoolagh]

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

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

[moustafa]

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

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

[moustafa]

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

Public v As New VBAutils

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

[mazoolagh]

با تشکر لطفا در عنوانها نیز تصحیح بفرمائید از 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

که شما اینجوری میبیننش:
2.png

و اینجوری استفاده میکنین:
3.png
4.png

[eb_1345]

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

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

[eb_1345]

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

ShowToastNotificationDemo()

ضمیمه 154692

ضمیمه 154693

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

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

[mazoolagh]

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

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

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

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

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

[mohammadsaleh]

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