- Rongsen.Com.Cn 版权所有 2008-2010 京ICP备08007000号 京公海网安备11010802026356号 朝阳网安编号:110105199号
- 北京黑客防线网安工作室-黑客防线网安服务器维护基地为您提供专业的
服务器维护
,企业网站维护
,网站维护
服务 - （建议采用1024×768分辨率，以达到最佳视觉效果） Powered by 黑客防线网安 ©2009-2010 www.rongsen.com.cn
VB 列出系统所有字体
作者：黑客防线网安VB教程基地 来源：黑客防线网安VB教程基地 浏览次数：0 |
黑客防线网安网讯：Private Sub FORM_Load() Dim counter As Integer For counter = 0 To Screen.FontCount - 1 List1.AddItem Screen.Fonts(counter) Next End Sub Private Sub List1_Click() Static temphei...
Private Sub FORM_Load()
Dim counter As Integer
For counter = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(counter)
Next
End Sub
Private Sub List1_Click()
Static tempheight As Single
If tempheight = 0 Then tempheight = List1.Height
Text1.FontSize = 16
Text1.Font.Name = List1.List(List1.ListIndex)
List1.Height = tempheight
End Sub
Dim counter As Integer
For counter = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(counter)
Next
End Sub
Private Sub List1_Click()
Static tempheight As Single
If tempheight = 0 Then tempheight = List1.Height
Text1.FontSize = 16
Text1.Font.Name = List1.List(List1.ListIndex)
List1.Height = tempheight
End Sub
黑客防线网安服务器维护方案本篇连接：http://www.rongsen.com.cn/show-14698-1.html
新闻栏目
| 我要申请本站：N点 | 黑客防线官网 | |
| 专业服务器维护及网站维护手工安全搭建环境，网站安全加固服务。黑客防线网安服务器维护基地招商进行中！QQ:29769479 |