بابک زواری
پنج شنبه 26 آذر 1383, 14:44 عصر
برای استفاده از این توابع ابتدا مطابق شکل از منوی Project و سپس References گزینه BZ_Util را انتخاب کرده و بعد متغییری از این نوع تعریف کرده با کمک آن از توابع مربوطه استفاده نمائید.
لازم به ذکر است که این DLL نسخه ابتدایی بوده و در حال تکمیل شدن است توابع برخی کلاسها هنوز آماده نشده است و برخی توابع نیز باید بصورت Private شوند چون برای استفاده داخلی طراحی شده اند ولیکن صدها تابع دیگر هم در دست اضافه شدن به این مجموعه هستند که به محض آماده شدن برای دریافت شما در دسترس قرار میگرند .
اگر تابع خاصی مد نظر شماست که دوست دارید در این مجموعه باشه در همین تاپیک
اعلام کنید .
اگر سورس تابعی رو دارین که میخواهید جز همین مجموعه باشه بازم همین جا
بذارید تا در هر نسخه کاملتر بشه.
فقط دوستان سوالات و مشکلات خودشون رو در همین تاپیک اعلام کنن و از ارسال پیغام خصوصی و یا Email جدا خودداری کنن که جواب داده نمیشه .
Private Sub Command1_Click()
Dim Ut As New BZUtil
Ut.About 'نمایش راهنما همیشه توجه داشته باشید که آخرین نسخه را داشته باشید
Ut.DisplayAlert 'نمایش پیغام به سبک MSN
Ut.Fade 'ترسیم تغییر طیف رنگ روی فرم یا Picture
Ut.FlattenButton 'یک کلید معمولی را به حالت flat انتقال میدهد
Ut.KeyboardFarsi 'کیبرد را فارسی میکند
Ut.KeyboardLatin 'کیبرد را لاتین میکند
Ut.SetNumberTextBox 'به کمک API تکست باکس مبروطه را عددی میکند
Ut.SpellMoney
Ut.SpellNumber
Ut.ClassCdRom.CDClose
Ut.ClassCdRom.CDDriveLetter
Ut.ClassCdRom.CDExists
Ut.ClassCdRom.CDOpen
Ut.ClassCdRom.CDVolumeLabel
Ut.ClassCrc.FileCRC
Ut.ClassCrc.StringCRC
Ut.ClassGradient.Angle
Ut.ClassGradient.Color1
Ut.ClassGradient.Color2
Ut.ClassGradient.Draw
Ut.ClassPicture.PICRotate
Ut.ClassPicture.SaveGIF
Ut.ClassWindowsFunction.ChangeResolution
Ut.ClassWindowsFunction.FontInstall
Ut.ClassWindowsFunction.FontUnInstall
Ut.ClassWindowsFunction.OperatingPlatform
Ut.ClassWindowsFunction.OperatingSystem
Ut.ClassWindowsFunction.RegUnReg
Ut.ClassWindowsFunction.SetWallPaper
Ut.ClassWindowsFunction.XGetINI
Ut.ClassWindowsFunction.XWriteINI
Ut.ClassEncryption
Ut.ClassString 'تست نشده
Ut.ClassTextBox 'آماده نیست
End Sub
لازم به ذکر است که این DLL نسخه ابتدایی بوده و در حال تکمیل شدن است توابع برخی کلاسها هنوز آماده نشده است و برخی توابع نیز باید بصورت Private شوند چون برای استفاده داخلی طراحی شده اند ولیکن صدها تابع دیگر هم در دست اضافه شدن به این مجموعه هستند که به محض آماده شدن برای دریافت شما در دسترس قرار میگرند .
اگر تابع خاصی مد نظر شماست که دوست دارید در این مجموعه باشه در همین تاپیک
اعلام کنید .
اگر سورس تابعی رو دارین که میخواهید جز همین مجموعه باشه بازم همین جا
بذارید تا در هر نسخه کاملتر بشه.
فقط دوستان سوالات و مشکلات خودشون رو در همین تاپیک اعلام کنن و از ارسال پیغام خصوصی و یا Email جدا خودداری کنن که جواب داده نمیشه .
Private Sub Command1_Click()
Dim Ut As New BZUtil
Ut.About 'نمایش راهنما همیشه توجه داشته باشید که آخرین نسخه را داشته باشید
Ut.DisplayAlert 'نمایش پیغام به سبک MSN
Ut.Fade 'ترسیم تغییر طیف رنگ روی فرم یا Picture
Ut.FlattenButton 'یک کلید معمولی را به حالت flat انتقال میدهد
Ut.KeyboardFarsi 'کیبرد را فارسی میکند
Ut.KeyboardLatin 'کیبرد را لاتین میکند
Ut.SetNumberTextBox 'به کمک API تکست باکس مبروطه را عددی میکند
Ut.SpellMoney
Ut.SpellNumber
Ut.ClassCdRom.CDClose
Ut.ClassCdRom.CDDriveLetter
Ut.ClassCdRom.CDExists
Ut.ClassCdRom.CDOpen
Ut.ClassCdRom.CDVolumeLabel
Ut.ClassCrc.FileCRC
Ut.ClassCrc.StringCRC
Ut.ClassGradient.Angle
Ut.ClassGradient.Color1
Ut.ClassGradient.Color2
Ut.ClassGradient.Draw
Ut.ClassPicture.PICRotate
Ut.ClassPicture.SaveGIF
Ut.ClassWindowsFunction.ChangeResolution
Ut.ClassWindowsFunction.FontInstall
Ut.ClassWindowsFunction.FontUnInstall
Ut.ClassWindowsFunction.OperatingPlatform
Ut.ClassWindowsFunction.OperatingSystem
Ut.ClassWindowsFunction.RegUnReg
Ut.ClassWindowsFunction.SetWallPaper
Ut.ClassWindowsFunction.XGetINI
Ut.ClassWindowsFunction.XWriteINI
Ut.ClassEncryption
Ut.ClassString 'تست نشده
Ut.ClassTextBox 'آماده نیست
End Sub