在VB.Net中更改Windows應用程序中所有窗體的字體大小

Question

我已經使用Windows窗體創建了Windows應用程序，並且我有許多窗體。現在我想更改所有表單的字體大小，並且不可能進入每個表單並更改字體大小。

所以，我需要知道是否有任何方法可以從一個地方更改所有窗體的字體大小。

感謝

Answer 1

只是略微增加這一點，如果你想改變所有的表單中的控件的字體，我幾年前寫的這一塊，但已舉行了相當不錯...如果有幫助，請走一走？

形式Load_Event就叫..或者你需要的地方

Public Sub Form_Load() 
    Checkfont(Me) 
End Sub 

Public DifferentFont As Font = New Font("Times New Roman", 10) 
Public Sub CheckFont(frm As Form) 
    If Not USE_Different_Font Then Exit Sub 
    For Each ctl As Control In frm.Controls 
     If ctl.HasChildren Then 
      CheckFont_Children(ctl) 
     End If 
     Try 
      ctl.Font = DifferentFont 
     Catch ex As Exception 
     End Try 
    Next 
End Sub 
Private Sub CheckFont_Children(parent As Control) 
    For Each ctl In parent.Controls 
     If ctl.HasChildren Then 
      CheckFont_Children(ctl) 
     End If 
     Try 
      ctl.font = DifferentFont 'New Font(DifferentFont.FontFamily, DifferentFont.Size) 
     Catch ex As Exception 
     End Try 
    Next 
End Sub