可以将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
相关问答:
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
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
......
我想做个用vb6做的程序,可以控制GPRS MODEM拨号,如拨我自己的手机
可以啊
你先下个AT命令集合学习学习
我来顶
顶贴
LZ好厉害
不顶不行
老是排MP
引用
LZ好厉害
......
看了一些VB ini文件写入读取的方法 但是还是不知道怎么写,上面写了很长 很多,但是我不知道怎么用,我想问一下怎样写才能实现在TEXT1中写字,然后点Command1提交,然后TEXT1里面的数字就写进INI里面[Section]的Key1 ......