我做的是一个串口通讯程序的例子
硬件部分可以接收共150个Page
大概发送格式是这样的

如果选择只发送一个Page 只有一幕
Message(1) = &H0 '引入方式 第一幕的数据
Message(2) = &H0 '引出方式 第一幕的数据
Message(3) = &H0 '幕间延时 第一幕的数据
Message(4) = &HA '速度 第一幕的数据
Message(5) = &H6 '附加方式 第一幕的数据
Message(6) = &H2 '动画 第一幕的数据

如果选择发送两个Page 有两幕
Message(1) = &H0 '引入方式 第一幕的数据
Message(2) = &H0 '引出方式 第一幕的数据
Message(3) = &H0 '幕间延时 第一幕的数据
Message(4) = &HA '速度 第一幕的数据
Message(5) = &H6 '附加方式 第一幕的数据
Message(6) = &H2 '动画 第一幕的数据

Message(7) = &H0 '引入方式 第二幕的数据
Message(8) = &H0 '引出方式 第二幕的数据
Message(9) = &H0 '幕间延时 第二幕的数据
Message(10) = &HA '速度 第二幕的数据
Message(11) = &H6 '附加方式 第二幕的数据
Message(12) = &H2 '动画 第二幕的数据
.
.
.
反正每6个Message则为一个Page,假如信息有18个Message的长度，它就会显示3个Page,一个Page为一幕，Page最大150个，也就有150个可能，请教高手要怎样写一个循环，谢谢大家！不知道是否讲得明白，请大家帮忙啊，急。。。

[此贴子已经被作者于2007-4-13 11:59:34编辑过]

问题不太明了...

比如窗体上有一个Combo控件，数据是从Page1到Page150,还有一个按钮，如果我选择Page2,当我点按钮时，将发送Message(1)...Mesage(12),这12个数据，如果我选择Page100,点按钮将发送Message(1)...Message(100)这100个数据，如果不用循环肯定是可以做出来，只是太罗嗦了

For i = 0 to PageNum - 1
for j = 1 to 6
SendMessage(Message(i* 6 + j))
next j
Next i

Kendy123456版主
这样写是可以发送信息，但怎么去控制那些方式？

Kendy123456请帮我看看，谢谢！

我晕 我没有装vb6的 我们单位只允许装正版软件 我们开发不用vb6所以我们老板没买vb6

你想控制什么?

Private Sub Combo1_Click()
Dim sendMe As Integer

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 sendMe
Text1.Text = Text1.Text & "sendMessage(" & i & ")" & vbCrLf
Next
End Sub

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

'一个combo控件和一个textbox控件

[此贴子已经被作者于2007-4-13 12:45:28编辑过]

我这个程序可以发送共59个Page,但是每个Page的引入方式，引出方式等需要控制，那个控制方式可以以combo控件来体现，我想不要做59个吧，那样很罗嗦

不明白你说的...请清楚些吧!