用“字体”对话框怎么样对文本框的字体做设置？

Question

如果要保存设置，可以用到INI文件，把这次的设置写到INI文件中，下次启动软件时读取INI文件的内容

Answer 1

请这位高手指点怎样把设置写到INI文件中，下次启动软件时又怎样读取INI文件的内容。因我是初学者，问题较多，谢谢！！

Answer 2

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lplFileName As String) As LongPrivate r As Long
Private entry As String
Private iniPath As StringFunction GetFromINI(AppName As String, KeyName As String, FileName As String) As String
   Dim RetStr As String
   RetStr = String(255, Chr(0))
   GetFromINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), FileName))
End FunctionPrivate Sub Command1_Click()
    Text1.Text = GetFromINI("注册信息", "序列号", iniPath)
End SubPrivate Sub Command8_Click()
    End
End SubPrivate Sub Command2_Click()
    Text2.Text = GetFromINI("用户信息", "姓名", iniPath)
End Sub
Private Sub Command4_Click()
    entry$ = Text1.Text
    r = WritePrivateProfileString("注册信息", "序列号", entry, iniPath)
    If r <> 1 Then MsgBox "写序列号出错！"
End SubPrivate Sub Command5_Click()
    entry = Text2.Text
    r = WritePrivateProfileString("用户信息", "姓名", entry, iniPath)
    If r <> 1 Then MsgBox "写姓名出错！"
End SubPrivate Sub Command7_Click()
    Text1.Text = GetFromINI("注册信息", "序列号", iniPath)
    Text2.Text = GetFromINI("用户信息", "姓名", iniPath)
End SubPrivate Sub Command3_Click()
    Command4_Click
    Command5_Click
End SubPrivate Sub Command6_Click()
    Text1.Text = ""
    Text2.Text = ""
End SubPrivate Sub Form_Load()
     
    iniPath$ = App.Path + "\rwini32.ini"
    Command7_Click
End Sub下面是INI的内容，你复制到记事本里保存为INI后缀名，把它和程序文件放在同一文件夹里
[注册信息]
序列号=as
[用户信息]
姓名=abc

Answer 3

假如我想让别的窗口TEXT1里的字体跟当前窗口的字体一起设置呢？