下面这个填空程序是怎么做的？ - vb.net吧

level 3

覃秋i 楼主

如图
如何把文本框精确定位在横线位置啊？
写坐标的话，由于屏幕大小调整，坐标会变化，这样会很麻烦
谢谢大家

2014年03月28日 08点03分 1

level 14

sanhom

和LABEL水平中线对齐

2014年03月28日 11点03分 2

覃秋i

怎么获取label中横线坐标啊？

2014年03月28日 13点03分

sanhom

回复覃秋i :不用获取啊，菜单栏下面不是有排列方式吗嘛

2014年03月28日 13点03分

覃秋i

回复 sanhom :可能说的不是一回事吧。我这个文本框的数量和位置都不确定啊。要根据文本中横线坐标自动调整的

2014年03月28日 15点03分

level 4

沂男糊涂银☜

没看明白楼主的意思？你是要点击横线处，能够自动蹦出个文本框？然后在文本框里输入东西，文本框里面的东西能够自动的填到横线上？

2014年03月28日 15点03分 3

覃秋i

有好多段文字，文字中间有横线（留待填空）。我想让程序自动判断横线处坐标，自动把文本框移动到横线处，这样用户就可以在文本框处输入字符。如上图三道题四条横线，我想让四个文本框自动跑到横线处。只要把文本框边框去掉，就可以达到图示样式，用户可以在横线处输入字符

2014年03月28日 15点03分

level 4

沂男糊涂银☜

你的程序里面的________是什么东西？
姑且当__________是lable控件，那么：
Dim lab As Control
For Each lab In Me.Controls
Dim newTextBox As New TextBox
newTextBox.Size = New Size(lab.Width,20) '大小和_____一样长,高度20可以自己设定
If lab.Name Like "Lab*" Then ‘每个lable控件（当然名称里面要有Lab***才能行）
Controls.Add(newTextBox)
newTextBox.Location = New Point(lab.Location.X, lab.Location.Y) ’____的位置
End If
Next
好了，这样每个_______的地方就都会加上一个和它一样长，高度为20的textbox了。

2014年03月28日 17点03分 4

覃秋i

所有文字整体是label。“___”是text的一部分。比如有一个label，它的text属性是： “这样每个_______的地方就都会加上一个和它一样长” 也有可能是 “就都会加上一个和它一样长这样每个_______的地方” 我想先根据label的text找出"_____"，再得到"______"的坐标，然后把text放到这个坐标上

2014年03月29日 00点03分

level 3

覃秋i 楼主

用笨方法解决了。先取出"________"前的字符串，然后挨个判断全角半角，再根据字号和像素折算得出距离Label前面的像素值，然后把这个值当x赋值给text的x属性

2014年03月30日 09点03分 5