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

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

我想按“这是个测试”,可是为什么他每个字都是倒的?
...全文
45 点赞 收藏 8
写回复
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日
那是字体的原因,与你的程序没关系
在弹出窗口你选择的字体如是倒过来的,你确定后显示的字当然就是倒的了
回复 点赞
发动态
发帖子
VB基础类
创建于2007-09-28

2752

社区成员

19.7w+

社区内容

VB 基础类
社区公告
暂无公告