vb改变字形的代码是什么_vb 改变字体的位置

满意答案

qt77882888

2014.01.03

采纳率：48%    等级：12

已帮助：11321人

一个上下左右移动的例子

花了一些时间来做了一个上下左右移动的例子

包括四个标签控件,和一个时间控件

'把以下的代码另存为一个FORM1.FRM的文件

(先新建一个文本文档,保存后改名字即可)

'代码开始

VERSION 5.00

Begin VB.Form Form1

BackColor = &H00000000&

BorderStyle = 1 'Fixed Single

Caption = "字体上下左右来回移动的动画"

ClientHeight = 5490

ClientLeft = 45

ClientTop = 435

ClientWidth = 7605

LinkTopic = "Form1"

MaxButton = 0 'False

MinButton = 0 'False

ScaleHeight = 5490

ScaleWidth = 7605

StartUpPosition = 3 '窗口缺省

Begin VB.Timer Timer1

Left = 7020

Top = 4980

End

Begin VB.Label Label4

AutoSize = -1 'True

BackStyle = 0 'Transparent

Caption = "字体左右来回移动"

ForeColor = &H00FFFF00&

Height = 180

Left = 6180

TabIndex = 3

Top = 3720

Width = 1440

End

Begin VB.Label Label3

AutoSize = -1 'True

BackStyle = 0 'Transparent

Caption = "字体左右来回移动"

ForeColor = &H008080FF&

Height = 180

Left = 0

TabIndex = 2

Top = 2100

Width = 1440

End

Begin VB.Label Label2

AutoSize = -1 'True

BackStyle = 0 'Transparent

Caption = "字体上下来回移动"

ForeColor = &H00FF80FF&

Height = 180

Left = 4560

TabIndex = 1

Top = 3180

Width = 1440

End

Begin VB.Label Label1

AutoSize = -1 'True

BackStyle = 0 'Transparent

Caption = "字体上下来回移动"

ForeColor = &H0000FFFF&

Height = 180

Left = 1860

TabIndex = 0

Top = 2760

Width = 1440

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Option Explicit

Dim i As Integer '标签1上下移动的位置

Dim j As Integer '标签2上下移动的位置

Dim c As Integer '标签3左右移动的位置

Dim z As Integer '标签4左右移动的位置

Dim lab1move As Boolean '标签1移动的状态

Dim lab2move As Boolean '标签2移动的状态

Dim lab3move As Boolean '标签3移动的状态

Dim lab4move As Boolean '标签4移动的状态

Private Sub Form_Load()

Timer1.Interval = 10 '每过10豪秒执行一次

i = 0 '初始化标签1的位置

j = Me.Height '初始化标签2的位置

z = Me.Width '初始化标签4的位置

c = 0 '初始化标签3的位置

End Sub

Private Sub Timer1_Timer()

If lab1move = False Then '状态为向下

'标签1从顶部移动到底部

If i < Me.Height Then '小于窗体的高

i = i + 100 '每次移动100

Label1.Top = i '移动标签1

End If

If i > Me.Height Then '大于窗体的高

lab1move = True '状态为向上

i = Me.Height '=窗体的高

End If

Else '状态为向上

'标签1从底部移动到顶部

i = i - 100 '每次移动100

Label1.Top = i '移动标签

If i <= 0 Then lab1move = False: i = 0 '标签1从底部移到顶部

End If

If lab2move = False Then '状态为向上

j = j - 100 '每次移动100

Label2.Top = j '移动标签2

If j < 0 Then lab2move = True: j = 0 '标签1从底部移到顶部

Else '状态为向下

If j < Me.Height Then j = j + 100: Label2.Top = j '移动标签2

If j > Me.Height Then lab2move = False: j = Me.Height '状态为向上

End If

If lab3move = False Then '状态为向右

If c < Me.Width Then c = c + 100: Label3.Left = c '每次移动100移动标签

If c > Me.Width Then lab3move = True: c = Me.Width

Else '状态为向左

c = c - 100

Label3.Left = c '每次移动100移动标签

If c < 0 Then lab3move = False: c = 0 '状态为向右

End If

If lab4move = False Then '状态为向左

z = z - 100

Label4.Left = z '每次移动100移动标签

If z < 0 Then lab4move = True: z = 0

Else '状态为向右

If z < Me.Width Then z = z + 100: Label4.Left = z '每次移动100移动标签

If z > Me.Width Then lab4move = False: z = Me.Width '状态为向左

End If

End Sub

'代码结束.

00分享举报