请问一个文本框字体选择的问题

Question

在文本框的LostFocus事件中设置一个变量,表明当前是哪一个文本框Dim LastTextBox As TextBoxPrivate Sub Command1_Click()
    If Not (LastTextBox Is Nothing) Then
        MsgBox LastTextBox.Name
    End If
End SubPrivate Sub Text1_LostFocus()
    Set LastTextBox = Text1
End SubPrivate Sub Text2_LostFocus()
    Set LastTextBox = Text2
End Sub

Answer 1

可以将变量设置为object。
在setfocus事件中取得对象。

Answer 2

具体代码!
Dim LastTextBox As TextBoxPrivate Sub Command1_Click()
    If Not (LastTextBox Is Nothing) Then
        
        CommonDialog1.Flags = cdlCFScreenFonts Or cdlCFForceFontExist Or cdlCFEffects
        CommonDialog1.FontName = LastTextBox.FontName
        CommonDialog1.FontSize = LastTextBox.FontSize
        CommonDialog1.FontBold = LastTextBox.FontBold
        CommonDialog1.FontItalic = LastTextBox.FontItalic
        CommonDialog1.Color = LastTextBox.ForeColor
        CommonDialog1.FontUnderline = LastTextBox.FontUnderline
        CommonDialog1.FontStrikethru = LastTextBox.FontStrikethru
        CommonDialog1.ShowFont
        If CommonDialog1.FontName <> "" Then
            LastTextBox.FontName = CommonDialog1.FontName
            LastTextBox.FontSize = CommonDialog1.FontSize
            LastTextBox.FontBold = CommonDialog1.FontBold
            LastTextBox.FontItalic = CommonDialog1.FontItalic
            LastTextBox.ForeColor = CommonDialog1.Color
            LastTextBox.FontUnderline = CommonDialog1.FontUnderline
            LastTextBox.FontStrikethru = CommonDialog1.FontStrikethru
        End If
    Else
        MsgBox "未选择要改变的对像"
    End If
End SubPrivate Sub Text1_LostFocus()
    Set LastTextBox = Text1
End SubPrivate Sub Text2_LostFocus()
    Set LastTextBox = Text2
End Sub

Answer 3

具体代码!
Dim LastTextBox As TextBoxPrivate Sub Command1_Click()
    If Not (LastTextBox Is Nothing) Then
        
        CommonDialog1.Flags = cdlCFScreenFonts Or cdlCFForceFontExist Or cdlCFEffects
        CommonDialog1.FontName = LastTextBox.FontName
        CommonDialog1.FontSize = LastTextBox.FontSize
        CommonDialog1.FontBold = LastTextBox.FontBold
        CommonDialog1.FontItalic = LastTextBox.FontItalic
        CommonDialog1.Color = LastTextBox.ForeColor
        CommonDialog1.FontUnderline = LastTextBox.FontUnderline
        CommonDialog1.FontStrikethru = LastTextBox.FontStrikethru
        CommonDialog1.ShowFont
        If CommonDialog1.FontName <> "" Then
            LastTextBox.FontName = CommonDialog1.FontName
            LastTextBox.FontSize = CommonDialog1.FontSize
            LastTextBox.FontBold = CommonDialog1.FontBold
            LastTextBox.FontItalic = CommonDialog1.FontItalic
            LastTextBox.ForeColor = CommonDialog1.Color
            LastTextBox.FontUnderline = CommonDialog1.FontUnderline
            LastTextBox.FontStrikethru = CommonDialog1.FontStrikethru
        End If
    Else
        MsgBox "未选择要改变的对像"
    End If
End SubPrivate Sub Text1_LostFocus()
    Set LastTextBox = Text1
End SubPrivate Sub Text2_LostFocus()
    Set LastTextBox = Text2
End Sub