代码添加窗体，无法设置格式 - 编程论坛

#2

laowan0012021-10-28 09:42

试试 Visible=.T.

#3

吹水佬2021-10-28 11:22

有效的

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

#4

mywisdom882021-10-28 12:44

以下是引用aroffice在2021-10-28 09:30:59的发言：

使用代码添加了一个表单，然后想修改里面的字体等信息，但修改字号好像无法调整显示的大小
tsxx="提示信息"
msgjg=2
PUBLIC OFORM1
OFORM1=NEWOBJECT("form1")
OFORM1.SHOW
DEFINE CLASS FORM1 AS FORM

    TOP = 0
    LEFT = 0
    HEIGHT =147
    WIDTH = 528
    SHOWWINDOW = 1
    DOCREATE = .T.
    CAPTION = "系统提示"
    WINDOWTYPE = 1
    NAME = "form1"
    ALWAYSONTOP=.T.
    AUTOCENTER=.T.
    BORDERSTYLE=0
    CLOSABLE=.t.
    minbutton=.f.
    maxbutton=.f.
    CONTROLBOX=.t.


    ADD OBJECT Label1 AS Label WITH ;
        TOP = 15, ;
        LEFT = 70, ;
        HEIGHT = 60, ;
        WIDTH = 450, ;
        fontsize=12
        &&不能设置字体大小，更改这个字号感觉无效
    ADD OBJECT Commandyes AS Commandbutton WITH ;
        TOP = 100, ;
        LEFT = 270, ;
        HEIGHT = 40, ;
        WIDTH = 80, ;
        Caption="是"
        fontsize=12

    PROCEDURE Commandyes.click
        msgjg=6
        THISFORM.RELEASE
    ENDPROC

    ADD OBJECT Commandno AS Commandbutton WITH ;
        TOP = 100, ;
        LEFT = 400, ;
        HEIGHT = 40, ;
        WIDTH = 80, ;
        Caption="否"
        fontsize=12

    PROCEDURE Commandno.click
        msgjg=7
        THISFORM.RELEASE
    ENDPROC

ENDDEFINE

ADD OBJECT Commandyes AS Commandbutton WITH ;
        TOP = 100, ;
        LEFT = 270, ;
        HEIGHT = 40, ;
        WIDTH = 80, ;
        Caption="是" , ;
        fontsize=12

缺少红色的东西