VB6.0实现托盘图标示例
打开菜单编辑器,添加下边菜单项: 1). 添加模块Tray.bas: 2).窗体代码: 运行即可看到效果!
打开菜单编辑器,添加下边菜单项: 1). 添加模块Tray.bas: 2).窗体代码: 运行即可看到效果!
排名,财富(亿),姓名,公司,总部,行业,出生地 1,350,王传福,比亚迪,广东深圳,汽车、手机零部件、充电电池,安徽巢湖 2,330,张茵家族,玖龙纸业,香港、美国,包装纸,黑龙江鸡西 3,320,许荣茂家族,世茂集团,上海,房地产,福建石狮 4,310,杨惠妍家族,碧桂园,广东佛山,房地产,广东佛山 5,300,黄伟、李萍夫妇,新湖集团,浙江杭州,房地产、金融,浙江温州 5,300,刘永行家族,东方希望,上海,重化工、氧化铝、电解铝、饲料,四川新津 5,300,卢志强,泛海建设,北京,房地产、金融,山东威海 5,300,朱孟依家族,合生创展/珠江投资,广东广州,房地产,广东丰顺 9,290,王健林,大连万达,北京,商业地产、酒店、文化产业、住宅地产,四川…
在窗体的Load事件中设置DataGridView行高、背景色代码: 若窗体不是MDI子窗体,上边代码能正常运行;当窗体做为MDI子窗体时,数据绑定正常,但不能设置行高和背景色!获取设置后的值: 说明设置未生效!后测试发现,若在按钮点击事件中设置DataGridView行高、背景色却又可以: 暂未找到原因!
ComboBox.Items.Add参数是object类型的对象,如果用数据绑定可以很容易地实现Text和Value的分别初始化(见《ComboBox绑定数据源示例》一文),但如果要手工添加数据项,就有点困难了,总结了网上方法,有以下两种: 1.使用KeyValuePair 2.自定义类MyListItem MyListItem类: 添加数据项并读取示例:
①.模块 Module1.bas代码: 调用示例: ②类模块 Class1.cls代码: 调用示例: 小结 模块中的公有函数、子过程可以直接调用,而类模块中的公有函数、子过程必须由类实例对象来调用!
使用foreach+Control.Controls移除所有Button: 结果发现只移除了10个,界面还剩下10个!改用for循环: 结果同上,正确的代码应为: 究其原因,应是调用Remove或RemoveAt方法时,也改变了Controls内容所致,做个测试: 结果: i值:0, Controls.Count值:20, 移除:button1 i值:1, Controls.Count值:19, 移除:button3 i值:2, Controls.Count值:18, 移除:button5 i值:3, Controls.Count值:17, 移除:button7 i值:4, Controls.Count值:16, 移除:button9…
①.将以下代码保存为myshow.snippet(UTF-8编码): ②.选择菜单"工具→代码段管理器",导入myshow.snippet; ③.使用示例: 其他说明 ·连续按两次Tab键可输入代码段; ·按一次Tab键切换到下一个变量,且该变量处于选中状态; ·按Enter键完成代码段输入并将光标定位到$end$位置; ·$selected$变量表示在IDE环境中选中的代码段,这个变量通常在外侧代码段中使用; ·$end$变量表示输入代码段后光标所处位置;
代码如下:
http://player.youku.com/player.php/Type/Folder/Fid/3818755/Ob/1/Pt/0/sid/XMTIzOTQyMjc2/v.swf