vb 需要帮忙
PrivateSubsyy_Click(IndexAsInteger)IfIndex=0ThenText1.FontName="宋体"ElseIfIndex=1ThenT...
Private Sub syy_Click(Index As Integer)
If Index = 0 Then
Text1.FontName = "宋体"
ElseIf Index = 1 Then
Text1.FontName = "幼圆"
Else
Text1.FontName = "隶书"
End If
End Sub
实时错误380
怎么解决 展开
If Index = 0 Then
Text1.FontName = "宋体"
ElseIf Index = 1 Then
Text1.FontName = "幼圆"
Else
Text1.FontName = "隶书"
End If
End Sub
实时错误380
怎么解决 展开
3个回答
展开全部
Text1.FontName你确定是FontName而不是Text1.text?
如果确定 可能是你的机器上没有哪个字体哦
如果确定 可能是你的机器上没有哪个字体哦
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
我试了，程序没错。可能是你电脑里没有某各字体吧。朋友。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
目测 系统渣 ， 缺字体
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
