(关于数组怎么分割符号的问题)各位大虾帮看看VB应该怎么书写才对！ - 编程论坛

#2

lowxiong2013-03-08 11:40

Dim 颜色数组() As string,ys as string
ys=""
For i = 121 To 225 Step 13
    c = Color(i, 51)
    ys = ys & c & ","
Next
ys=left(ys,len(ys)-1)     '去掉最后一个多余的逗号
颜色数组 = Split(ys, ",")

[ 本帖最后由 lowxiong 于 2013-3-8 13:44 编辑 ]

#3

qiziyun2013-03-08 12:50

lowxiong 又是你回答我！哈哈谢谢你了！我试试

#4

qiziyun2013-03-08 12:52

回复 2楼 lowxiong

ys="" 这里是什么意思呢？我这个YS是表示颜色我就是找颜色！必须要+ ys="" 这个吗

#5

Artless2013-03-08 12:59

以下是引用qiziyun在2013-3-8 12:52:38的发言：

ys="" 这里是什么意思呢？我这个YS是表示颜色我就是找颜色！必须要+ ys="" 这个吗

for 之前ys=?

#6

lowxiong2013-03-08 13:57

split函数是字符串处理函数，使用字符串（尤其进行字符串累加）前对字符串进行清空操作是个习惯（赋初值）。"颜色数组"变量必须是一个动态字符串数组，因此应定义为“dim 颜色数组() as string”，要得到真正颜色要做一次转换（如"val(颜色数组(0))").

#7

qiziyun2013-03-08 14:18

回复 6楼 lowxiong

那准确的应该怎么写呢！
Dim 颜色数组() As string,ys as string
    While 1 = 1
    For i = 121 To 225 Step 13
    c = Color(i, 51)
    ys = ys & c & ","
Next
ys=left(ys,len(ys)-1)     '去掉最后一个多余的逗号
颜色数组 = Split(ys, ",")
        下标 = Combo1.ListIndex
        do
            If Color(下标 * 13 + 121, 51) <> 颜色数组(下标) Then
            End If
        loop
    Wend

我这样写对吗！！！！！！运行出错啊！你帮我看一下嘛

#8

qiziyun2013-03-08 14:18

回复 5楼 Artless

Artless 你也帮我看看嘛怎么写才对呢！！我找色执行动作

#9

qiziyun2013-03-08 14:29

c = Color(i, 51) 运行后这里提示错误

#10

风吹过b2013-03-08 16:01

Color 这个是什么函数？？？？

刚查了一下，Color 关键字在VB 里一个常量。

如果你自定义了一个函数，那需要你把函数的定义也贴出来。

只有本站会员才能查看附件，请登录

[ 本帖最后由风吹过b 于 2013-3-8 16:04 编辑 ]

#11

bczgvip2013-03-08 17:44

Private Sub Form_Load()
    Dim s1 As String
    Debug.Print StrPtr(s1)
    Dim s2 As String
    s2 = ""
    Debug.Print StrPtr(s2)
End Sub
试了下，的确是。至少数组不为空。

#12

Artless2013-03-08 19:32

Color的定义是什么？

#13

qiziyun2013-03-08 20:54

回复 10楼风吹过b

风吹过b

那请问一下我应该怎么书写才对呢！！能帮我修改一下我的那个代码吗！！！

#14

qiziyun2013-03-08 23:06

回复 6楼 lowxiong

lowxiong 在吗你帮看看应该怎么写才对啊！！

#15

qiziyun2013-03-08 23:08

回复 12楼 Artless

Artless 在吗
Color 定义的是坐标！就是指定的一个横坐标！！！

#16

qiziyun2013-03-09 06:22

回复 11楼 bczgvip

这个是原稿！！！但是在VB里运行不聊！！！在按键精灵里却可以运行！在VB里应该怎么写才对呢！！！
For i=121 to 225 step 13
    c = GetColor(i, 51)
    ys = ys & "|" & color
Next
颜色数组=Split(Mid(ys,2),"|")
下拉框 =
键值=Form1.InputBox1.Text
do
    If GetColor(下拉框 * 13 + 121, 51) <> 颜色数组(下拉框) Then
        Delay 500
    End If
    Delay 100
loop

=========================================================================================

下面是修改后的但是还是有错！应该怎么写才是VB的书写方式呢？？？
Dim 颜色数组() As string,ys as string
For i=121 to 225 step 13   '这里是横坐标的意思121到225的一个范围内的横坐标
    c = GetColor(i, 51)    '这里是赋值横坐标到i，51是固定的竖坐标！这个坐标不变！只是横坐标变动
    ys = ys & c & "-"      '这里YS是颜色的意思，也就是一个横坐标对应一个颜色利用“-”分割他们
Next
ys=left(ys,len(ys)-1)      这个是修改后的！但是运行到这里就错误！应该怎么书写才能通过啊！！！
颜色数组 = Split(ys, "-")
下拉框 = Combo1.ListIndex
do
    If GetColor(下拉框 * 13 + 121, 51) <> 颜色数组(下拉框) Then
        Delay 500
    End If
    Delay 100
loop

[ 本帖最后由 qiziyun 于 2013-3-9 06:24 编辑 ]

#17

Artless2013-03-09 10:32

以下是引用qiziyun在2013-3-9 06:22:17的发言：

这个是原稿！！！但是在VB里运行不聊！！！在按键精灵里却可以运行！在VB里应该怎么写才对呢！！！
For i=121 to 225 step 13
    c = GetColor(i, 51)
    ys = ys & "|" & color
Next
颜色数组=Split(Mid(ys,2),"|")
下拉框 =
键值=Form1.InputBox1.Text
do
    If GetColor(下拉框 * 13 + 121, 51) <> 颜色数组(下拉框) Then
        Delay 500
    End If
    Delay 100
loop

=========================================================================================

下面是修改后的但是还是有错！应该怎么写才是VB的书写方式呢？？？
Dim 颜色数组() As string,ys as string
For i=121 to 225 step 13   '这里是横坐标的意思121到225的一个范围内的横坐标
    c = GetColor(i, 51)    '这里是赋值横坐标到i，51是固定的竖坐标！这个坐标不变！只是横坐标变动
    ys = ys & c & "-"      '这里YS是颜色的意思，也就是一个横坐标对应一个颜色利用“-”分割他们
Next
ys=left(ys,len(ys)-1)      这个是修改后的！但是运行到这里就错误！应该怎么书写才能通过啊！！！
颜色数组 = Split(ys, "-")
下拉框 = Combo1.ListIndex
do
    If GetColor(下拉框 * 13 + 121, 51) <> 颜色数组(下拉框) Then
        Delay 500
    End If
    Delay 100
loop

for 中c一直=""

#18

qiziyun2013-03-10 11:20

回复 17楼 Artless

Artless 你说的C里面一直="" 是什么意思啊！！！C里面是=颜色Color制定的Y横坐标啊！后面那个是固定的X坐标51
意思在这里修改成 c="" 这样吗?? 我实验过了不行啊

#19

qiziyun2013-03-10 19:54

回复 17楼 Artless

Artless 在吗能帮看看不