سوأل : ابي كواد تغيير الحجم ؟؟

يبدو و كأنه طلب حل واجب أو تمرين!

تعرف قوانين المنتدى, الغلق الفوري لهكذا مواضيع...

المرجو إرفاق محاولاتك أولا.

بالتوفيق :)

محمد رضى كتب:

يبدو و كأنه طلب حل واجب أو تمرين!

تعرف قوانين المنتدى, الغلق الفوري لهكذا مواضيع...

المرجو إرفاق محاولاتك أولا.

بالتوفيق :)

لا لا تفهم غلاط أنا ابي اسوي برنامج مدونة فهمت

مثل ما قال اخوي محمد رضى .... أرفق محاولتك أفضل ....

على العموم هذا هو المطلوب

 'كود التكبير
    Private Sub MaxFont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim txtNewFonsize As Integer = CInt(TextBox1.Font.Size + 1)
        If txtNewFonsize = 72 Then Exit Sub
        TextBox1.Font = New Font(TextBox1.Font.FontFamily, txtNewFonsize, TextBox1.Font.Style)
    End Sub
    'كود التصغير
    Private Sub MinFont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim txtNewFonsize As Integer = CInt(TextBox1.Font.Size - 1)
        If txtNewFonsize = 0 Then Exit Sub
        TextBox1.Font = New Font(TextBox1.Font.FontFamily, txtNewFonsize, TextBox1.Font.Style)
    End Sub