不知道可否批量设置LABEL标签的属性。 - 编程论坛

#2

sdta2020-11-16 13:14

但愿下面的代码对楼主有所帮助

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

效果图

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

#3

总是出错2020-11-17 00:49

谢谢你！我的意思是说当一个表单有若干个标签的时候，我如何一次性对这些标签更改属性。不仅是颜色属性的设置。

#4

总是出错2020-11-17 00:58

回复 2楼 sdta

误会了，正在看

#5

总是出错2020-11-17 02:08

回复 2楼 sdta

好像程序无法运行，好多变量找不到。
=ALines(Acolor,Strtran(cVar,Chr(9),""),Chr(13)+Chr(10))       （ cVar找不到）
nColor=Evaluate("0x"+Substr(Acolor[lnI],2))                  参数无效
  lnRed = Mod(nColor,256)                                       （nColor找不到）
  lnBlue = Bitrshift(nColor,16)                                  （nColor找不到）
.BackColor=Rgb(lnRed,lnGreen,lnBlue)                           (lnRed)
=BindEvent(ThisForm.&oLabel,"MouseMove",ThisForm,"Mouse_Move")  文件不存在
运行结果，表单可以显示，内容空白。

#6

wengjl2020-11-17 10:05

附件运行正常　SDTA高

#7

总是出错2020-11-17 11:25

回复 6楼 wengjl

我这里无法运行

#8

wengjl2020-11-17 13:09

以下是引用总是出错在2020-11-17 11:25:08的发言：

我这里无法运行

我是VFP8.0的环境

#9

吹水佬2020-11-17 14:43

以下是引用总是出错在2020-11-17 00:49:52的发言：

谢谢你！我的意思是说当一个表单有若干个标签的时候，我如何一次性对这些标签更改属性。不仅是颜色属性的设置。

用表单的SetAll方法不可以吗？如：
thisform.SetAll("ForeColor",0xFF,"label")

#10

radiofan2020-11-17 20:57

以下是引用吹水佬在2020-11-17 14:43:15的发言：

用表单的SetAll方法不可以吗？如：
thisform.SetAll("ForeColor",0xFF,"label")

我也这么认为！

#11

总是出错2020-11-18 01:16

回复 8楼 wengjl

哦我是6.0系统。在此向各位高手致谢！我来仔细读各位的指点。

#12

总是出错2020-11-18 01:17

回复 9楼吹水佬

谢谢提示，我来仔细看看。

#13

总是出错2020-11-18 01:59

回复 9楼吹水佬

谢谢你的提示！解决了，是我糊涂了。我一直以为控件类的引用需要BOX,没有想到标签不需要后面的1234等标号,直接引用Label即可。

#14

总是出错2020-11-18 10:00

回复 2楼 sdta

如读天书，进行中，有点眉目了。再次谢谢！

#15

总是出错2020-11-21 01:44

DoCreate=.T.
这个是一个什么属性?谢谢

#16

总是出错2020-11-21 01:50

Public oForm
oForm=NewObject("Form1")
oForm.Show
Return
DEFINE CLASS form1 AS form

    Height = 550
    Width = 900
    ShowWindow = 1
    ScrollBars = 2
    DoCreate = .T.       这个是什么属性？在中文帮助里面查不到。
    AutoCenter = .T.
    Caption = "常用颜色图谱"
    Name = "Form1"
附件开始的一段程序大致读懂了，唯有DoCreate = .T.   这个属性没有读懂。谢谢高手指点一下。

#17

schtg2020-11-21 05:11

DoCreate 这个好像是表单“私有”，具体作用、属性未知。我们不用理会，注释掉也没有影响的哈。

#18

总是出错2020-11-21 09:14

回复 17楼 schtg

谢谢你！
如何从英文单词看，似乎应该是允许在表单中创建表格。