.
[ سهل پسر حنیف أنصارى پس از بازگشت از صفّین در کوفه مرد ، و امام او را از هرکس بیشتر دوست مى‏داشت فرمود : ] اگر کوهى مرا دوست بدارد در هم فرو ریزد [ و معنى آن این است که رنج بر او سخت شود و مصیبتها به سوى او شتاب گیرد . و چنین کار نکنند جز با پاکیزگان نیکوکار و گزیدگان اخیار . و این مانند فرموده اوست که : ] [نهج البلاغه]
امروز: جمعه 04 فروردین 15



Online backup storage and collaboration

پنج گیگ فضای رایگان+ یک گیگ لیچ رایگان

کافیه یک عدد لیست باکس به فرم اضافه کنید و این کد را داخل فرم بذارید


 


Private Sub Form_Load()
For I = 1 To Screen.FontCount
    List1.AddItem Screen.Fonts(I)
Next
End Sub


 


برای اسفاده از فونتها هم از این کد استفاده کنید:


 


Private Sub List1_Click()
Text1.Font.Name = List1.List(List1.ListIndex)
End Sub



نوشته شده توسط مهدی در پنج شنبه 88/2/24 و ساعت 10:59 عصر | نظرات دیگران()
لیست کل یادداشت های این وبلاگ
Nod32 SN Finder v1.6
تهیه نسخه بکاپ از دیتابیس نود 32 و بازگردانی
وارد نمودن حروف فارسی بدون تغییر Keylayout
VB Anticrack v1.5 Full
نمایش کامل متن آیتم لیست باکس
محدود نمودن ماوس
باز کردن Regedit در مسیر دلخواه
تغییر استایل کامند به فلات
تغییرات در رجیستری توسط
نحوه استفاده از Gif control
NOD32 SN Finder v1.5
[عناوین آرشیوشده]

بالا

طراح قالب: رضا امین زاده** پارسی بلاگ پیشرفته ترین سیستم مدیریت وبلاگ

بالا