SUB CMD_CLICK() TEXT1.TEXT="DDDD" END SUBSUB CMD1_CLICK() TEXT1.TEXT="" END SUB
'不明白楼主的意思,是不是这样: private sub cmd1_click() text1.text="" cmd.caption="" end sub
private bcmd as boolean private sub form_load() bcmd = true end sub private sub cmd_click() if bcmd then text1.text = "" end sub private sub cmd1_click() bcmd1 = false end if 这个意思么?
TEXT1.TEXT="DDDD"
END SUBSUB CMD1_CLICK()
TEXT1.TEXT=""
END SUB
private sub cmd1_click()
text1.text=""
cmd.caption=""
end sub
private sub form_load()
bcmd = true
end sub
private sub cmd_click()
if bcmd then text1.text = ""
end sub
private sub cmd1_click()
bcmd1 = false
end if
这个意思么?