几个小问题想请教大家

[fanny_wang]

怎么改变一行的底色，而不覆盖原有的内容呢？
怎么用鼠标选中一个字符串，将它变成亮色，然后右击可以弹出一个菜单或者窗口？

谢谢

[sssoft]

在你print的时候，用变量保存这一行字符串的位置矩形。
例如printbox or form
private dim Sx as long ,Sy as long ,Cx as long ,Cy as long 字符串位置的矩形变量
放在模块或窗体的最前面
with picturebox1
.currentx=Sx
.currentY=Sy
.print StrYourSTring
cx=sx+.textwidth(stryourstring)
cy=sy+.textheight(stryourstring)
end with

在picturebox的mousedown事件中添加代码
private sub picturebox1_mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single)
select case button
case 2'鼠标右键
if x>sx and x<cx and y>sy and y<cy then
popupmenu YourpopUpMEnu
end if
end select

end sub

[sssoft]

对不起，有点错误刚才
在你print的时候，用变量保存这一行字符串的位置矩形。
例如picturebox or form
private dim Sx as long ,Sy as long ,Cx as long ,Cy as long 字符串位置的矩形变量
放在模块或窗体的最前面
with picturebox1
.currentx=Sx
.currentY=Sy
picturebox1.print StrYourSTring'必须要有picturebox1
cx=sx+.textwidth(stryourstring)
cy=sy+.textheight(stryourstring)
end with

在picturebox的mousedown事件中添加代码
private sub picturebox1_mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single)
select case button
case 2'鼠标右键
if x>sx and x<cx and y>sy and y<cy then
popupmenu YourpopUpMEnu
end if
end select

end sub

[fanny_wang]

非常感谢

如果用鼠标左键点击拖动选择字符串，怎么取出我选中的字符呢

[sssoft]

不能直接从picturebox中取出，只好也存在变量中，如果点中该区域，则得到该字符串。具体的
单个字，就需要计算坐标了。反正你记住，用print方法打出来的字因为没有句柄，没法单独得到
这些字放到了picturebox or form 的DC（设备场景）里面无法单独提出来。

[fanny_wang]

那可以用别的方法显示字符能够取出来呢

[fanny_wang]

如果不在mousedown,mousemove,mouseup事件中怎么知道鼠标点击的位置？

[joo]

用什么控件？

[fanny_wang]

请大家教教我啊

[sssoft]

这一行在什么地方，文本框？标签？还是窗体？图片框？或是网格？

[pp616]

对啊。不同的地方做法可不一样啊。

[Leemaasn]

up

[fanny_wang]

我自己做的一个控件，这一行的内容是print出来的，这个我已经解决，第二个问题怎么解决？

[sssoft]

如果想要移动的话，直接用lable控件比较简单。

定义全局变量 public ox,oy

private picturebox1_move(Button As Integer, Shift As Integer, X As Single, Y As Single)
ox=x
oy=y
end sub

在其他模块中直接调用ox ,oy 即可！

还不算解决？