Question

关于VB：在text中输入文字并失焦后，若文字不为fontname识别的字体之一，如何设计语句在报错前清空文本框

在设计VB程序时，其中一段代码如下：
Private Sub Text3_LostFocus()
Text1.FontName = Text3.Text
End Sub
在text3中输入的文字若不为宋体、楷体等fontname识别的字体，则会报错。我希望设计语句识别出非字体的文字同时清空文本框。类似于
if not isnumeric(text2) then
text2.texet=""
end if
排除非纯数字语句的功能
求各路大神指导，设计合理将追加悬赏分。

Answer 1

将文本框的内容与系统已安装的所有字体名相比较（不区分大小写），若找不到完全一样的，则将文本框清除

提示：你要是只是想选择字体其实只需要Screen.Fonts数组和Screen.FontCount

Option Explicit

Private Sub Text1_LostFocus()
    Dim i As Integer
    Dim bolFound As Boolean
    Dim strTemp As String
    
    strTemp = LCase(Text1)
    bolFound = False
    
    For i = 0 To Screen.FontCount - 1
        If strTemp = LCase(Screen.Fonts(i)) Then Exit For
    Next
    
    If i >= Screen.FontCount Then
        Text1.Text = ""
    End If
End Sub

Answer 2

比较正确的方法是用Screen.Fonts()获取系统所有的fonts，然后先比较text3是否在fonts列表里再决定是否更改text1。不在列表里就显示个错误信息再清空text3。

简单暴力的方法就是text3加个错误捕获硬试，出错了则清空。
Private Sub Text3_LostFocus()
On Error GoTo Handler
Text1.FontName = Text3.Text
Exit Sub
Handler:
'在这里显示错误信息并清空text3.
End Sub