求助：怎样让一个窗体或frame与所点击的text位置相关联 - 编程论坛

#2

xiangyue05102016-04-06 19:54

说实话，没有明白你说的什么意思。你可以把你的截图和代码贴出来。

#3

yangfrancis2016-04-06 21:42

回复楼主 ch1964

frame1.leftg=text1.left,frame1.top=text1.top+text1.height
这种做地问题出在哪里？

#4

风吹过b2016-04-07 10:01

frame1.leftg=text1.left,frame1.top=text1.top+text1.height
是这行代码报错吗？

先分成二行来写吧。
frame1.leftg=text1.left
frame1.top=text1.top+text1.height

#5

ch19642016-04-07 16:14

回复 2楼 xiangyue0510

有text的10个相同的输入框，分别为text1(0)到text1(9），我单击任何一个text时，frame容器会在相应的text下面。

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

#6

ch19642016-04-07 16:17

不好意思，我一楼的写的多了一个字母g。
frame1.left=text1.left
frame1.top=text1.top
实际应该是样的

#7

ch19642016-04-07 16:53

Private Sub Text1_click(Index As Integer)
Dim i As Integer

For i = 0 To Index - 1
Frame1.Left = Text1(i).Left
Frame1.Top = Text1(i).Top + Text1(i).Height
Next
End Sub
这样代码好象用了

[此贴子已经被作者于2016-4-7 17:10编辑过]

#8

ch19642016-04-07 17:12

下面又遇到问题，怎样把打开的frame（软键盘）的输入到点击的text里，比如点击text1(0)，数据就是输入到text1(0),当点击text1(5)时，就输入到text1(5)里？请大师指点

#9

风吹过b2016-04-07 17:59

测试代码，你自己琢磨吧

程序代码：

Dim i As Long, s As String

i = Text1.SelStart              '取光标位置
s = Text1.Text                  '取内容

If Len(s) = i Then              '光标是不是在最后
    s = s & "A"                 '如果是，直接加到最后
Else
    s = Left(s, i) & "A" & Mid(s, i + 1)    '否则插到中间
End If
    Text1.Text = s              '给值
    Text1.SelStart = i + 1      '恢复光标位置

#10

风吹过b2016-04-07 18:00

当某个TEXT 得到焦点里，要么保存这个对象，要么保存这个下标。

#11

ch19642016-04-08 11:39

回复 9楼风吹过b

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

显示未找到

#12

风吹过b2016-04-08 13:03

我都说了是测试代码。
在下面一楼说一个说明。

你是控件数组，我是单个控件，直接抄肯定出错。
结合我下面的说明，自己琢磨一下。