citect2018R2學習筆記:Citext.textbox控制字型

来自金沙江的小鱼發表於2024-03-26

新浪那邊的審查真的嚴格,一晚上了,一篇學習筆記還是沒有過審,在這裡也發表一次吧。

前兩天群裡面有個哥們諮詢怎麼控制Citext.textbox控制元件的字型,我嘗試著做了練習,還是比較簡單的。假設Citext.textbox控制元件編號是AN4,寫下面的指令碼:

FUNCTION Citext_Fontini()
OBJECT citext
citext=ObjectByName("AN4")
_ObjectSetProperty(citext,"text","這是一個測試")
_ObjectSetProperty(citext,"FontName","微軟雅黑")
_ObjectSetProperty(citext,"FontBold",True)
_ObjectSetProperty(citext,"FontSize","36")
_ObjectCallMethod(citext,"UpdateText")
END
上面的指令碼設定了該控制元件的文字、字型、是否加粗、大小。
畫面上在某個按鈕的滑鼠點選事件執行上面的指令碼,最終效果就是這個樣子,注意設定字型大小指令碼那裡,屬性值是字串的樣式,直接寫成整數不會有效果。

相關文章