كود فيجوال بيسك رهيب.....

**مرتضى الاحسائي** · 09-17-2007, 08:50

كود للفيجوال بيسك لتغيير خطوط التيكست

المضافه على الفورم

هذا كود للفوم لود


Private Sub Form_Load()

كود PHP: تحديد الكل


Dim counter As Integer

For counter = 0 To Screen.FontCount - 1

List1.AddItem Screen.Fonts(counter)

Next

End Sub

و هذا كود لليست كليك

كود PHP: تحديد الكل


Private Sub List1_Click()

كود PHP: تحديد الكل


Static tempheight As Single

If tempheight = 0 Then tempheight = List1.Height

List1.Font.Name = Text1.List(List1.ListIndex)

List1.Height = tempheight

End Sub

ارجوا ان تستفيدوا من الاكواد

و ان شاء كل يوم راح نضع كود

تحياتي الاحسائي

**العِلو** · 09-17-2007, 16:45

السلام عليكم ورحمة الله وبركاته ..

أستمحيك عذراً تم تعديل مشاركتك لأن كان فيها أكواد المنتدى كالتوسيط وحجم الخط في أكواد الفيجوال

كود جميل فعلاً أخي، ولكنك لم تذكر ما الأشياء التي توضع في الفورم

قد جربت وضع TextBox و List .. لكنه أظهر لي خطأ

ننتظر جديد مشاركاتك
الله يحفظكم
العِلو

**مرتضى الاحسائي** · 09-18-2007, 02:36

عذرا ضع هذا في مكان هذا الكود

كود PHP: تحديد الكل

Text1.Font.Name = list1.List(List1.ListIndex)

الكود اللي ملون

كود: تحديد الكل

Static tempheight As Single If tempheight = 0 Then tempheight = List1.Height List1.Font.Name = Text1.List(List1.ListIndex) List1.Height = tempheight End Sub

تحياتي