label 的VB Code 问题。。。

peepee

有人能帮得到我吗？上面图案的VB program, 我不大会如何把input show 在像这样的Label(看看红色箭头), 像Table look一样整齐的呈现出来output。感谢你们。。。

hooi1983

原帖由 peepee 于 14-9-2007 10:47 PM 发表
http://i45.photobucket.com/albums/f85/cheewei29/screen.jpg

有人能帮得到我吗？上面图案的VB program, 我不大会如何把input show 在像这样的Label(看看红色箭头), 像Table look一样整齐的呈现出来output。 ...

你指的 Table look 是不是 ListView?

peepee

原帖由 hooi1983 于 14-9-2007 11:05 PM 发表


你指的 Table look 是不是 ListView?

大概是这样吧，但又好像不是 @_@ 你看Label内中间上四排字都很整齐的。

hooi1983

原帖由 peepee 于 14-9-2007 11:23 PM 发表


大概是这样吧，但又好像不是 @_@ 你看Label内中间上四排字都很整齐的。

可以 hardcode 你的 Textbox/Label 的位置&数量
也可以用 coding 来 generate Textbox/Label 的位置&数量
也可以用 ListView/DataGrid

peepee

原帖由 hooi1983 于 15-9-2007 02:27 PM 发表


可以 hardcode 你的 Textbox/Label 的位置&数量
也可以用 coding 来 generate Textbox/Label 的位置&数量
也可以用 ListView/DataGrid

我也这么认为，就是可以用 coding 来 generate Textbox/Label 的位置&数量，但我忘了怎么去写，请问它的ｃｏｄｉｎｇ是怎样的？

hooi1983

原帖由 peepee 于 15-9-2007 04:38 PM 发表


我也这么认为，就是可以用 coding 来 generate Textbox/Label 的位置&数量，但我忘了怎么去写，请问它的ｃｏｄｉｎｇ是怎样的？

Textbox/Label 的数量可以用 control array 来控制
如 txtName(0),txtName(1)...

Textbox/Label  的位置就要用 .Move 来控制
.Move 包括了 .Left, .Top, .Width & .Height

ReyesChuah

用listview 可以很快的弄好

ahcheong

tab = vbTab
新的一行 = vbCrLf 或 vbCr

Zhixuen

'Original create by Zhixuen
'Date : 22 / 09 / 2007
'Time 8:40AM

Private i As Integer
Private countctrl As Integer
Private Sub Command1_Click()
Dim Label1 As Label
Dim ctrl As Control
i = i + 1
countctrl = 1
Set Label1 = Me.Controls.Add("VB.LABEL", "label1" & i, Me) ' Add New control by increment of number i to avoid duplication of label name
With Label1  'label setup
    Label1.Move  1000, 1000, 1000, 1000 ' Please specified the left,top,width,length
    Label1.Visible = True 'set label visible
    Label1.Caption = "asadsadasd" 'give label caption text
End With
For Each ctrl In Me.Controls ' loop through form control
    If TypeOf ctrl Is Label Then 'determine typeof ctrl is label
        If ctrl.Name Like "label1*" Then 'Search the label name is start from text label1
            countctrl = countctrl + 1 'increment of count to counting the number of label
        End If
      
    End If
   
Next
Debug.Print countctrl   '  how many label control is exist ( Only for added control )
End Sub

小弟写了一个应该是类似你要的东东。
可是，小弟费解为什么用那么麻烦的方法呢？

小弟的愚见是用DATAGRIDVIEW， LISTVIEW 或者 MSFLEXGRID。
如果利用以上的CONTROL 你的TABLE 简单的多了。



[ 本帖最后由 Zhixuen 于 22-9-2007 09:06 AM 编辑 ]