MsgBox语句与MsgBox函数:
MsgBox "欢迎使用VB" & Chr$(13) + Chr$(10) & "祝您学习愉快、进步" 黑体表示换行符
换行符也可以使用:MsgBox "欢迎使用VB" & vbCrLf & "祝您学习愉快、进步" & vbCrLf &
用法: MsgBox "欢迎使用VB" & vbCrLf & "祝您学习愉快、进步" , 0 (列表中的值)
MsgBox "欢迎使用VB" & vbCrLf & "祝您学习愉快、进步" , 35 (列表中值3和32相加得到的)
MsgBox "欢迎使用VB" & vbCrLf & "祝您学习愉快、进步" , 35+768,这是个例子
这是个例子设置的是msgbox弹出对话框的标题名称。
Msgbox函数:
例:
打印机输出:
数据输出的Print方法:
格式输出:
例:
print format$(0012,#) 则输出12
print format$(12,"0000") 则输出 0012
print format$(1234,"00") 则输出1234
print format$(12345,"000000,0") 则输出 0,012,345
print format$(12345.123,"000000,0.00") 则输出0,012,345.12
print format$(12345.123,"0000,000.00") 则输出0,012,345.12
例:
print format$(10,"$0.00") 则输出$10.00
例:
print format$(10,"+0.00") 则输出 +10.00
print format$(10,"-0.00") 则输出 -10.00
print format$(10,"-0.00") 则输出 -10.00
print format$(-10,"+0.00") 则输出 -+10.00
print format$(+10,"+0.00") 则输出 -+10.00
例:
print format$(123.45,"0.00E+00") 则输出 123E+02
print format$(123.45,"0.00E-00") 则输出 123E02
与Print方法有关的函数:
例子:
SPC函数:
数据输入的InputBox函数:
字体类型:
例:
字体名要和当前系统中字体名相同。
Option Explicit
Private Sub Command1_Click()
Text1.FontBold = Not Text1.FontBold 单击加粗,再单击不加粗。如此切换
End Sub
其他方法和属性:
Move方法:
CurrentX和CurrentY属性:
定义输出“你好”的位置
TextHeight和TextWidth方法:
例:
ScaleWidth和ScaleHeight属性:
例:
在中心位置输出字符串:
单击窗体时先清除窗体内容: