为什么我实现不了?有代码。

fallback 2004-12-24 03:30:15
Private Sub Command18_Click()
On Error GoTo Err_Handle
With Setting
.DialogTitle = "字体"
.Max = 30
.Min = 0
'.Flags = cdlCFScreenFonts
.Flags = cdlCFBoth
End With
Setting.ShowFont
With Label1
.Font = Setting.FontName

.FontName = Setting.FontName
.FontSize = Setting.FontSize
.FontItalic = Setting.FontItalic
.FontBold = Setting.FontBold
.FontUnderline = Setting.FontUnderline
End With
Err_Handle:
Exit Sub
End Sub

我想按“这是个测试”,可是为什么他每个字都是倒的?
...全文
87 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
myhgyp 2004-12-24
  • 打赏
  • 举报
回复
Private Sub Command18_Click()
On Error GoTo Err_Handle
With Setting
.DialogTitle = "字体"
.FontName = "宋体" '增加这一句,当然也可改成其它的
.Max = 30
.Min = 0
'.Flags = cdlCFScreenFonts
.Flags = cdlCFBoth
End With
Setting.ShowFont
With Label1
.Font = Setting.FontName

.FontName = Setting.FontName
.FontSize = Setting.FontSize
.FontItalic = Setting.FontItalic
.FontBold = Setting.FontBold
.FontUnderline = Setting.FontUnderline
End With
Err_Handle:
Exit Sub
End Sub
fallback 2004-12-24
  • 打赏
  • 举报
回复
做好了,谢谢两位了
踏平扶桑 2004-12-24
  • 打赏
  • 举报
回复
想实现什么功能?或者目标
fallback 2004-12-24
  • 打赏
  • 举报
回复
在问个问题,如何让设置默认的字体?
在打开字体后,默认的就是该字体?
fallback 2004-12-24
  • 打赏
  • 举报
回复
可以了,
wwqna 2004-12-24
  • 打赏
  • 举报
回复
字体没有正确选择了!
fallback 2004-12-24
  • 打赏
  • 举报
回复
那样子要如何修改?谢谢
myhgyp 2004-12-24
  • 打赏
  • 举报
回复
那是字体的原因,与你的程序没关系
在弹出窗口你选择的字体如是倒过来的,你确定后显示的字当然就是倒的了

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧