VB字体还原的問題。-ZOL问答

8个回答默认排序

默认排序

按时间排序

已采纳

private sub command1_click() '放大
label1.fontsize=label1.fontsize*3
end sub
private sub command2_click() '加粗
label1.FontBold=true
end sub
private sub command3_click() '下划线
label1.FontUnderline =true
end sub

private sub command4_click() '还原
label1.fontsize=label1.fontsize/3
label1.FontBold=false
label1.FontUnderline =false
end sub

取消评论

中文字体推荐

你打印的是文本框内的字符串 t(i) ，t(i)是不带属性的
直接打印文本框内容也不行，text3.text也是不带属性的
上面代码要打印下划线，需要添加下面一条语句
Printer.FontUnderline = True

取消评论

panjun001

桌面右键属性，把主题改一下
或者
桌面右键属性外观里可以选择字体大小！

取消评论

qq1060819636

Clipboard.Clear '清空剪贴板
Clipboard.SetText (Text1.Text) '复制到剪贴板

取消评论

qq231518150

浏览器右下角有一个百分数，如“120%”，就是显示比例，你改成100%就OK了

取消评论

f4xingye

这么简单的，百度一大堆

取消评论

yqliangxi

你按下“Ctrl”键的同时，再按鼠标的轮子....

取消评论

111yuding

'复制
Clipboard.Clear
Clipboard.SetText (Text1.SelText)

'剪切
Clipboard.Clear
Clipboard.SetText (Text1.SelText)
tmp = Text1.SelText
Text1.Text = Replace(Text1.Text, tmp, )

'粘贴
tmp = Text2.SelText
tmp1 = Left(Text2.Text, Text2.SelStart)
tmp2 = Replace(Right(Text2.Text, Len(Text2.Text) - Text2.SelStart), tmp, )
Text2.Text = tmp1 & Clipboard.GetText & tmp2

取消评论

8个回答默认排序

默认排序

按时间排序

中文字体推荐

最新回答更多>

产品比一比查看详情 >>

相关问答

热门手机排行

举报

举报成功

私信

删除

数码爱好者必备神器

中关村在线客户端

8个回答 默认排序 默认排序 按时间排序

中文字体推荐

最新回答 更多>

产品比一比查看详情 >>

相关问答

热门手机排行

举报

举报成功

私信

删除

8个回答默认排序

默认排序

按时间排序

最新回答更多>