软件VB
新建一个Form（窗体）在Fomr_Load()事件中输入以下代码
Private Sub Form_Load()
Dim i As Integer
With Me
.Move Screen.Width * 0.1, Screen.Height * 0.1, Screen.Width * 0.8, Screen.Height * 0.8
.AutoRedraw = True
.BackColor = vbRed
.ForeColor = vbYellow
.Caption = "五星红旗"
.Icon = LoadPicture("")
For i = 0 To 4
.CurrentX = Array(0.01, 0.25, 0.35, 0.35, 0.25)(i) * Me.Width
.CurrentY = Array(0.05, 0, 0.13, 0.32, 0.45)(i) * Me.Height
.FontSize = Array(150, 50, 50, 50, 50)(i)
Print Chr(&HA1EF)
Next
End With
End Sub
效果如下所示
新建一个Form（窗体）在Fomr_Load()事件中输入以下代码
Private Sub Form_Load()
Dim i As Integer
With Me
.Move Screen.Width * 0.1, Screen.Height * 0.1, Screen.Width * 0.8, Screen.Height * 0.8
.AutoRedraw = True
.BackColor = vbRed
.ForeColor = vbYellow
.Caption = "五星红旗"
.Icon = LoadPicture("")
For i = 0 To 4
.CurrentX = Array(0.01, 0.25, 0.35, 0.35, 0.25)(i) * Me.Width
.CurrentY = Array(0.05, 0, 0.13, 0.32, 0.45)(i) * Me.Height
.FontSize = Array(150, 50, 50, 50, 50)(i)
Print Chr(&HA1EF)
Next
End With
End Sub
效果如下所示
