如何给FORM的CAPTION上加上个"*"符号?

Question

动态的.为了判断文件是否保存.

Answer 1

Form1.Caption = Form1.Caption & "*"
是这个吗？

Answer 2

正如 vbman2003(家人)所说的，Form1.Caption = Form1.Caption & "*"

Answer 3

Private Sub Text1_Change()    Form1.Caption = Form1.Caption & "*"
    
End Sub每次都出来一个 -_-||  我只要一个啊

Answer 4

To: LordSimon(LordSimon)为什么比较有趣?

Answer 5

LDN211(菜鸟学着飞!) 蹭分的话可以直说.

Answer 6

Private Sub Text1_Change()    Form1.Caption = Form1.Caption & "*"
    
End Sub每次都出来一个 -_-||  我只要一个啊
=========================
这样试试：
if right(Form1.Caption,1)<>"*" then
    Form1.Caption = Form1.Caption & "*"
end if