11 2013 档案
摘要:additem 添加属性listcount总记录数listindex索引值Private Sub Form_Load()List1.AddItem "广东省广州市"List1.AddItem "广东省河源市"List1.AddItem "广东省惠州市"List1.ListIndex = 0End SubPrivate Sub LeftAll_Click()Dim i As Integer For i = 0 To List2.ListCount - 1 List1.AddItem List2.List(i) Next List2.Cl
阅读全文
摘要:Format[$] ( expr [ , fmt ] )format 返回变体型format$ 强制返回为文本--------------------------------数字类型的格式化--------------------------------固定格式参数:General Number 普通数字,如可以用来去掉千位分隔号format$("100,123.12","General Number") 返回值 100123.12Currency 货币类型,可添加千位分隔号和货币符号format$("100123.12","
阅读全文
摘要:设定StatusBar上的文字,该文字以StatusBar所在Form的字型设定为准,并以form的ForeColor为字的颜色,文字过长时,自动会截除这个程式的实质意义不太大,因为当文字被盖掉後需自行重新再呼叫这个Sub才能再将文字显示出来,除非我们再使用Subclassing的方式,於statusBar接收到WM_PAINT时,去呼叫这个SubRoutine,这程式着重於Font的了解''below is within FormPrivate Sub Command1_Click()Call ShowPanelText(StatusBar1, 1, "这是一个有趣
阅读全文