form1.frm

来自「蒋加伏主编VB程序设计第四版PPT及全部课本源码 北京邮电大学出版社 」· FRM 代码 · 共 39 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "例[4-11] 字体风格的设定"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4230
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4230
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Click()
Sample$ = "VB程序设计"
FontSize = 20                     '设字体大小
Print Sample$
FontBold = True                   '设置为黑体
Print Sample$
FontItalic = True                 '设置斜体
Print Sample$
FontStrikethru = True             '加中划线
Print Sample$
FontUnderline = True              '加下划线
Print Sample$
FontSize = 16
FontTransparent = True              '设置变量重叠
Print Sample$
CurrentX = 1000                  '设置当前光标的x,y坐标
CurrentY = 1500
Print "AAAAAAAAAA"; '在(x, y); 处输出

End Sub