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 阅读全文
posted @ 2013-11-21 16:45 笑笑小白 阅读(4049) 评论(0) 推荐(0) 编辑
摘要:Format[$] ( expr [ , fmt ] )format 返回变体型format$ 强制返回为文本--------------------------------数字类型的格式化--------------------------------固定格式参数:General Number 普通数字,如可以用来去掉千位分隔号format$("100,123.12","General Number") 返回值 100123.12Currency 货币类型,可添加千位分隔号和货币符号format$("100123.12"," 阅读全文
posted @ 2013-11-07 11:15 笑笑小白 阅读(761) 评论(0) 推荐(0) 编辑
摘要:设定StatusBar上的文字,该文字以StatusBar所在Form的字型设定为准,并以form的ForeColor为字的颜色,文字过长时,自动会截除这个程式的实质意义不太大,因为当文字被盖掉後需自行重新再呼叫这个Sub才能再将文字显示出来,除非我们再使用Subclassing的方式,於statusBar接收到WM_PAINT时,去呼叫这个SubRoutine,这程式着重於Font的了解''below is within FormPrivate Sub Command1_Click()Call ShowPanelText(StatusBar1, 1, "这是一个有趣 阅读全文
posted @ 2013-11-06 14:25 笑笑小白 阅读(765) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示