11问答网
所有问题
当前搜索:
vb用picture控件输出数组
vb
如何用inputbox输入二维
数组
并
输出
在介面上
答:
Private Sub Command1_Click()Dim Ewsz(1 To 3, 1 To 2) As Integer For i = 1 To 3 For j = 1 To 2 Ewsz(i, j) = InputBox("请输入Ewsz(" & i & "," & j & ")的值")Print Ewsz(i, j),Next j Print Next i End Sub ...
VB
怎么用代码创建
控件数组
?
答:
先定义一个控件(Option1),然后修改index值为0 ,就创建了
控件数组
,设置你要创建控件数组的其它属性.\x0d\x0aPrivate Sub Form_Load()\x0d\x0a Dim i%\x0d\x0a For i = 1 To 3\x0d\x0a Load Option1(i) ' 这句是关键,,,\x0d\x0a Option1(i).Top = Option...
VB
怎么用代码创建
控件数组
?
答:
先定义一个控件(Option1),然后修改index值为0 ,就创建了
控件数组
,设置你要创建控件数组的其它属性.Private Sub Form_Load()Dim i For i = 1 To 3 Load Option1(i) ' 这句是关键,,,Option1(i).Top = Option1(0).Top Option1(i).Left = Option1(i - 1).Left + Option1(i -...
...25的自然数依次赋值给5*5的二维数组并且
输出数组
的下三角。_百度知...
答:
= iEnd IfIf j < tmp Thentmp = jEnd IfIf 6 - i < tmp Thentmp = 6 - iEnd IfIf 6 - j < tmp Thentmp = 6 - jEnd Ifa(i, j) = tmpNext jNext i For i = 1 To 5For j = 1 To 5
Picture
1.Print Tab(j * 5); a(i, j);Next jPicture1.PrintNext iEnd Sub1 ...
VB
控件数组
问题
答:
Dim y, k, l For i = 1 To 50 Load Check1(i)Check1(i).Visible = True Check1(i).Left = Check1(i - 1).Left Check1(i).Top = Check1(i - 1).Top + 400 Check1(i).Caption = i y = Check1(i).Top k = Form1.Height l = k - y If l < 900 Then '
控件
到...
vb
.net
输出数组
答:
1.你说的这个有点问题,是要只
输出
一次,也可做,2.但问题是如果你
数组
还有就看不到了!这个做法有点问题 1.解决方法:循环前面加入一个变量 dim Temp as Double=0 For i = 0 To 9 If score(i) > avg and score(i)<>temp Then TextBox3.Text = TextBox3.Text & score(i) & " "if...
Visual Studio 2005
VB控件数组
问题
答:
我用做了个按钮的例子,因为空的
picture
box 不太容易看 Public Class Form1 Dim btn(5, 5) As Button Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load For y As Byte = 0 To 5 For x As Byte = 0 To 5 btn(x, y) =...
vb中控件数组
程序设计
答:
'下面是命令按钮
控件数组
的处理,具体语句自己写吧。Private Sub Command1_Click(Index As Integer)Select Case Index Case 0 '单击该命令按钮时的语句 Case 1 '单击该命令按钮时的语句 Case 2 '单击该命令按钮时的语句 Case 3 '单击该命令按钮时的语句 End Select End Sub 下功夫,把
VB
打败。给...
VB
如何获取屏幕图片数据保存在一个二进制
数组
里面?
答:
'以下就是不经过任何
控件
直接把截图数据存入
数组
的代码。分二步:'一、创建一个模块,复制下面代码:Option Explicit Private Type PALETTEENTRY peRed As Byte peGreen As Byte peBlue As Byte peFlags As Byte End Type Private Type LOGPALETTE palVersion As Integer palNumEntries As Integer palPal...
vb
建立一个label的
控件数组
点击label(1) 得到一个结果 点击label(2...
答:
建立一个Label()
数组
,比如是Label1()吧,在程序上建立一个Label1然后把它复制再粘贴就会提示是否建立数组,就点是,我建立了一个Label1数组,该数组中包含3个Label
控件
,按你说的代码是这样写的 第一种 用 Select Case 代码如下 Private Sub Label1_Click(Index As Integer)Select Case Index C...
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜