可以将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
相关问答:
vb将winsock控件封装到dll问题 有什么好的思路? 如果用Socket API呢?
例如,像下面这样封装Winsock控件,行的通?
创建ActiveX dll,添加窗体frmClient,加入WinSock控件wskClient。
类代码:
Option Expli ......
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的,有兴趣做的话留下联系方式
VB6 OR VB.NET?
可惜不在杭州,遠程可否?
兄台联系方式呢
我也联系一下,不过在宁波
可惜我也不在杭州
北京的行不?
我在苏州, ......
据说java语言是这样的,那VB呢?
byte[] b(byte)0x62,(byte)0x11,(byte)0x72,(byte)0x31};
try {
System.out.println(new String(b,"UTF-16"));
} catch (UnsupportedEnco ......