Private Sub Command1_Click() Form3.Show Form3.Visible = True Form2.Visible = False Form1.Visible = False End Sub
Private Sub Command2_Click() Form2.Show Form2.Visible = True Form3.Visible = False Form1.Visible = False End Sub
Private Sub Command3_Click() End End Sub
Public Sub Picture1_Load() Timer1.Enabled = True Picture1.AutoSize = True Dim i As Integer Dim Globe(15) As Globe For i = 1 To 15 Set Globe(i) = LoadPicture(strFile) = LoadPicture("C:\Documents and Settings\Administrator\桌面\globe\globe" & i & ".bmp") '给数组赋值 Next i End Sub
Private Sub Timer1_Timer() Select Case i Case 1 To 14 Timer1.Interval = 250 Case Is = 15 Timer1.Interval = 500
End Sub 支持楼主的伟大想法 lz，你可以把这些画面连起来，做成一个gif图片，或者flash，然后载入。
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' 打开刚创建的文件。 ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' 读入所有字符到变量中 ......
