UC知道vb高手来看看
来源：百度知道 编辑：UC知道 时间：2024/06/23 01:13:51
Private Sub Command1_Click()
Dim sc() As Single, fcc() As Single, bcc() As Single, diam() As Single
Dim x As Integer, y As Integer, z As Integer, i As Integer, j As Integer, k As Integer, a As Integer, b As Integer
ReDim sc(0 To 3, 0 To 3, 0 To 3)
For a = 0 To 10
For i = 0 To 4
For j = 0 To 4
For k = 0 To 4
a = a + 1
Picture1.Print "格点:"; "num"; a; " = "; i; j; k
Next k
Next j
Next i
Next a
End Sub
我用picturebox做容器,可是他放不下那么多数据,我想加滚动条,怎么加?
或者谁告诉我怎么在文本框中显示ijk的坐标也可以
因为这只是程序的一小部分........不行的,我不知道对应picture的那个属性,我只要显示坐标就可以
Dim sc() As Single, fcc() As Single, bcc() As Single, diam() As Single
Dim x As Integer, y As Integer, z As Integer, i As Integer, j As Integer, k As Integer, a As Integer, b As Integer
ReDim sc(0 To 3, 0 To 3, 0 To 3)
For a = 0 To 10
For i = 0 To 4
For j = 0 To 4
For k = 0 To 4
a = a + 1
Picture1.Print "格点:"; "num"; a; " = "; i; j; k
Next k
Next j
Next i
Next a
End Sub
我用picturebox做容器,可是他放不下那么多数据,我想加滚动条,怎么加?
或者谁告诉我怎么在文本框中显示ijk的坐标也可以
因为这只是程序的一小部分........不行的,我不知道对应picture的那个属性,我只要显示坐标就可以
为何不直接在Form上画点？pset(x,y)即可。
文框能画点？
滚动条上不是在画picturebox上面有吗？
画一个横的
再在picturebox里写对应的就行了
Private Sub HScroll1_Change()
End Sub