求助：关于如何在控件中插入任意行(例如EXCEL插入行那样)。详见附件。 - 编程论坛

#2

lianyicq2015-08-06 10:27

不说是什么控件?

#3

xingming0222015-08-06 10:34

回复 2楼 lianyicq

我也不知道什么控件能实现这个效果，最好是文本控件，但是我担心很难实现。只要能做到像附件中的效果什么控件都可以。

#4

lianyicq2015-08-06 10:55

回复 3楼 xingming022

表格控件设置行数没这么困难吧，试试MSHFlexGrid控件。

#5

lianyicq2015-08-06 11:19

程序代码：

Option Explicit
Dim r As Integer
Private Sub Command1_Click()
  r = Val(Text1.Text)
  If r < 2 Then Exit Sub
  MSHFlexGrid1.Rows = r + 1
End Sub

Sub Init_Grid()
  MSHFlexGrid1.Cols = 9
  MSHFlexGrid1.TextMatrix(0, 0) = "序号↓"
  MSHFlexGrid1.TextMatrix(0, 1) = "地基系数m"
  MSHFlexGrid1.TextMatrix(0, 2) = "极限侧阻力"
  MSHFlexGrid1.TextMatrix(0, 3) = "内摩阻角"
  MSHFlexGrid1.TextMatrix(0, 4) = "有效重度"
  MSHFlexGrid1.TextMatrix(0, 5) = "凝聚力"
  MSHFlexGrid1.TextMatrix(0, 6) = "极限端阻力"
  MSHFlexGrid1.TextMatrix(0, 7) = "厚度"
  MSHFlexGrid1.TextMatrix(0, 8) = "土类别Δ"
End Sub

Private Sub Form_Load()
  Init_Grid
End Sub

更多关于MSHFlexGrid的设置和操作,自己查查资料.

只有本站会员才能查看附件，请登录

[ 本帖最后由 lianyicq 于 2015-8-6 11:20 编辑 ]

#6

xingming0222015-08-06 11:27

回复 4楼 lianyicq

哦，这样啊，本人刚刚接触VB不久，仅了解一些二级教材里面提到的内容，像您刚刚说的控件不是VB打开后默认就有的，我还是第一次听说~

谢谢您一直以来的耐心回复~

#7

lianyicq2015-08-06 11:29

回复 6楼 xingming022

工程-部件-Microsoft Hierarchical FlexGrid Con......

#8

xingming0222015-08-06 11:33

感谢，实在是太感谢了~

#9

xingming0222015-09-06 09:25

回复 7楼 lianyicq

你好，根据您上次的指导，关于MSFlexGrid控件的基本应用已经掌握了，现在又遇到一个问题：如何在MSFlexGrid控件中添加下拉框？
烦请指导下，谢谢~~