易截截图软件、单文件、免安装、纯绿色、仅160KB

可以将VB常量设置为数组么?

比如说颜色常量vbRed,vbYellow, 可以把这些vb自带的常量添加到一个数组里面么? 怎么使用?

我是为了试试下面那个

VB code:

Private Sub Command1_Click()
Dim a(6) As Variant

a(6) = Array("vbRed,vbWhite,vbBlack,vbYellow,vbGreen")
Randomize
i = Int(Rnd * 5)
Text1.ForeColor = a[i]
End Sub



VB code:
Private Sub Command1_Click()
Dim a() As Variant

a() = Array(vbRed, vbWhite, vbBlack, vbYellow, vbGreen)
Randomize
i = Int(Rnd * 5)
MsgBox vbRed
Text1.ForeColor = a(i)
End Sub


VB code:
Private Sub Command1_Click()
Dim a() As Variant
a() = Array(vbRed, vbWhite, vbBlack, vbYellow, vbGreen)
Randomize
i = Int(Rnd * 5)
Text1.ForeColor = a(i)
End Sub


是我写错了, Text1.ForeColor = a[i]  应该是a(i),但是还是不对的,提示类型不匹配


使用3楼的可以,但需:dim i as Long
另外,你的a(i)中使用的括号应该是英文括号。

VB code:
Private Sub Command1_Click()
Dim a As Variant
a = Array(vbRed, vbWhite, vbBlack, vbYellow, v


相关问答:

asp.net(vb)问题

login.aspx.vb:

    Public ReadOnly Property nameT() As String
        Get
            Return TextBox1.Text
    &nb ......

请好心人帮我把VB源码转为VB.NET~

希望大家能够帮我下.感谢了..


源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html

转为VB.NET源码.

小弟完全是新手 不懂的说.麻烦各位帮忙一下

我的EMAIL是:4452 ......

vb修改DTPicker1日期问题

Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else ......

vb控制GPRS MODEM拨号

我想做个用vb6做的程序,可以控制GPRS MODEM拨号,如拨我自己的手机
可以啊
你先下个AT命令集合学习学习

我来顶

顶贴

LZ好厉害

不顶不行

老是排MP
引用
LZ好厉害
......

VB ini文件写入 读取 - VB / 基础类

看了一些VB ini文件写入读取的方法 但是还是不知道怎么写,上面写了很长 很多,但是我不知道怎么用,我想问一下怎样写才能实现在TEXT1中写字,然后点Command1提交,然后TEXT1里面的数字就写进INI里面[Section]的Key1 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号