ioriliao,你是否看过我的程序？如果看了我的程序就应该知道，如果我选择page1,将会发送一副图片，如果我选择page2就会发送两副图片，一副图片即为一个page,但是发送的时候，图片是以默认方式显示的，
比如：
&H1代表从左向右移动，&HA表示向上覆盖，&H7表示停留7S，&H5表示速度为Faster,&H3表示连续，&H9表示奔跑的马
Message(1) = &H1 '引入方式 第一幕的数据
Message(2) = &HA '引出方式 第一幕的数据
Message(3) = &H7 '幕间延时 第一幕的数据
Message(4) = &H5 '速度 第一幕的数据
Message(5) = &H3 '附加方式 第一幕的数据
Message(6) = &H9 '动画 第一幕的数据
上面的控制将会使图片先从左向右移动以Faster的速度显示出来然后停留7秒后，再以向上覆盖的方式退出显示，然后再连续出现一个动画（奔跑的马）

ioriliao,你是否看过我的程序？如果看了我的程序就应该知道，如果我选择page1,将会发送一副图片，如果我选择page2就会发送两副图片，一副图片即为一个page,但是发送的时候，图片是以默认方式显示的，
比如：
&H1代表从左向右移动，&HA表示向上覆盖，&H7表示停留7S，&H5表示速度为Faster,&H3表示连续，&H9表示奔跑的马
Message(1) = &H1 '引入方式 第一幕的数据
Message(2) = &HA '引出方式 第一幕的数据
Message(3) = &H7 '幕间延时 第一幕的数据
Message(4) = &H5 '速度 第一幕的数据
Message(5) = &H3 '附加方式 第一幕的数据
Message(6) = &H9 '动画 第一幕的数据
上面的控制将会使图片先从左向右移动以Faster的速度显示出来然后停留7秒后，再以向上覆盖的方式退出显示，然后再连续出现一个动画（奔跑的马）

我这程序是示例你要的控制!
不知道你的意思是不是这样...

谢谢你，不是这样的！
如果我选page1发送的是：Message(1)、Message(2)、Message(3)、Message(4)、Message(5)、Message(6)
如果我选Page2发送的是：Message(1)、Message(2)、Message(3)、Message(4)、Message(5)、Message(6)、Message(7)、Message(8)、Message(9)、Message(10)、Message(11)、Message(12)
如果我选Page3发送的将是：Message(1)、Message(2)、Message(3)、Message(4)、Message(5)、Message(6)、Message(7)、Message(8)、Message(9)、Message(10)、Message(11)、Message(12)、Message(13)、Message(14)、Message(15)、Message(16)、Message(17)、Message(18)
.
.
.
一个Page有6个Message,我说的选择的Page是发送Page的个数，也就是PageNum,Page3便是发送3个Page,
Page1的内容:Message(1)、Message(2)、Message(3)、Message(4)、Message(5)、Message(6)
Page2的内容:Message(7)、Message(8)、Message(9)、Message(10)、Message(11)、Message(12)
Page3的内容:Message(13)、Message(14)、Message(15)、Message(16)、Message(17)、Message(18)
看这样是否明白？

[此贴子已经被作者于2007-4-13 14:53:58编辑过]

噢...明白了...
我再写写看!

辛苦了，哈哈，谢谢，很郁闷我不能上QQ，你加我好吗？

QQ：357766186
MSN：MSNTHW19850316@hotmail.com

我加了你的Q了!

哦，好的，我现在上不了QQ，公司禁止了，只能MSN

Dim Cle As Collection
Dim sendMe As Integer
Dim Message(1 To 900) As Variant
Dim Sum() As Variant
Private Sub Combo1_Click()

If Len(Combo1.Text) = 5 Then
sendMe = Val((Right(Combo1.Text, 1)))

ElseIf Len(Combo1.Text) = 6 Then
sendMe = Val((Right(Combo1.Text, 2)))
Else
sendMe = Val((Right(Combo1.Text, 3)))
End If

For i = 1 To 6 * sendMe
'ReDim Sum(1 To 6 * sendMe)
Message(i) = "Message(" & i & ")"
Combo2.AddItem i
Next

End Sub

Private Sub Command1_Click()
For i = 1 To Cle.Count
Text1.Text = Text1.Text & Message(i) & Cle.Item(i) & vbCrLf
Next
End Sub

Private Sub Command2_Click()
On Error GoTo err457:
Cle.Add Combo3.Text, Combo2.Text
err457:
If Err.Number = 457 Then
MsgBox "此项已输入", vbInformation, "提示"
End If
End Sub

Private Sub Form_Load()
For i = 1 To 150
Combo1.AddItem "page" & i
Next

Combo3.AddItem "&H1"
Combo3.AddItem "&HA"
Combo3.AddItem "&H7"
Combo3.AddItem "&H5"
Combo3.AddItem "&H3"
Combo3.AddItem "&H9"

Set Cle = New Collection
End Sub

看看是不是这样的!