VB.NetのWindowsアプリケーションのすべてのフォームのフォントサイズを変更します

Question

私は既にWindowsフォームを使用してWindowsアプリケーションを作成しています。今、私はすべてのフォームのフォントサイズを変更したいので、各フォームに入り、フォントサイズを変更することはできません。

私は知っている必要があるので、すべてのフォームのフォントサイズを1か所から変更できます。あなたは、フォーム内のコントロールのすべてのフォントを変更したい場合は

おかげ

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