00问答网
所有问题
当前搜索:
vb用picture控件输出数组
vb
在图片框中
输出数组
答:
Private Sub
Picture
1_Click()Dim i As Integer Dim int
Array
(5) As Integer Randomize ’ 生成 0 - 9 之间的 6 个随机数到
数组
中。For i = 0 To 5 intArray(i) = Int(Rnd * 10)Next Dim strTemp As String ‘ 拼接 6 个随机数到字符串变量中。For i = 0 To 5 strTemp = strTem...
VB
怎么把pic
控件
做成
数组
答:
先在窗口中画一个
picture
1;再在这个picture1上单击鼠标右键,选择“复制”;再在窗口空白处单击鼠标右键,选择“粘贴”这时出现一个对话框,对话框中提示将要“生成
控件数组
”,单击“确定”这时会在窗体中出现另一个图片框。这时已经形成了“控件数组”,其中第一个你画的那一个是picture1(0),后来出...
vb
生成一个4行5列的两位随机整数
数组
,并在图片框中
输出
答:
这个很简单,本程序用
VB
6.0编写 新建一窗体,在窗体上放一个
picture控件
,与一个command控件,然后在代码窗口里粘贴以下代码即可。Private Sub Command1_Click()Dim a(3, 4) As LongDim i As LongDim j As LongPicture1.Cls For i = 0 To 4 For j = 0 To 3 a(j, i) = Rn...
vb
在图片框中
输出数组
答:
图片框与窗体很多地方比较相似,要在图片框
输出数组
用print语句,(通常打form1. 然后系统会自动跳出各种属性,如print、caption等等,但
picture
跳出的属性中是没有print的,所以要你自己写),举例说明:Private Sub Command1_Click()Dim a(3, 3) As Integer For i = 1 To 3 For j = 1 To 3 ...
vb
.net 如何动态添加
picture
box
控件数组
(在不知道图片大小的情况下...
答:
Form_load 设i=0 动态添加:if i>
picture
box11.ubound then load(picturebox11(i))picturebox11(i).loadpicture("图片地址")
Picture
11(i).PaintPicture Picture11(i).Picture, 0, 0, Picture11(i).Width, Picture11(i).Height picturebox11(i).visible=true i=i+1 动态删除 i=i-1 unload...
...要求这个
数组
里有五个元素
PICTURE
BOX这个
控件
定义一个数组 里面...
答:
给个示例给你,其实最好是用
控件数组
。Private Sub Command1_Click()Dim P(4) As
Picture
Box, I As Integer Set P(0) = Picture1 Set P(1) = Picture2 Set P(2) = Picture3 Set P(3) = Picture4 Set P(4) = Picture5 For I = 0 To 4 P(I).Print I Next I End Sub ...
vb中picture
box
控件数组
中画图显示
答:
回答:经测试,你的代码没有问题。 据你所说,“
Picture
1(b1).PSet画的图在Picture1(b1)中能显示,Picture1(b1).Line画的图却不能显示”,问题应该出在你的
数组
x2或者g中,请你检查数组的值是不是正常。 如果还不能正常工作,建议你将数组创建和赋值部分的代码贴出来,打叫也好帮你分析解决问题。
VB
如何在label中显示
数组
答:
使用
label的caption属性。假如
数组
为a(5),label
控件
名为label1,则在label中显示数组的语句就是 For i = 0 To 5 Label1.Caption = Label1.Caption & a(i) & ","Next i
VB
如何用将大量
控件
赋值给
数组
答:
把
picture
box做成
数组
(复制粘贴或者改成相同名字不同index),然后循环赋值或者直接复制内存 CopyMemory。
VB
控件数组
答:
.
Picture
= LoadPicture(App.Path & "\Vehicle\坦克" & i + 1 & ".gif").Visible = True End With Next 也可以这样:Dim Goods(9) As Image, i As Long For i = 0 To 9 Set Goods(i) = Controls.Add("
vb
.image", "MyImage" & i, Me)With Goods(i).Height = 280 .Width =...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vbpicturebox控件
vb数组控件使用方法
vb控件数组
vb如何创建控件数组
vb判断控件数组
控件数组的index
控件数组的index为0
vb判断控件数组卸载
menu控件数组元素必须有索引