2009年5月9日

VB6设置进度条颜色

摘要： VB6，新建一个工程，在界面中放置一个进度条控件，输入如下代码：Option ExplicitPrivate Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Lon... 阅读全文

posted @ 2009-05-09 21:44 yzx99 阅读(917) 评论(0) 推荐(0) 编辑

判断ListView双击了子项，并获取其位置与大小

摘要：在VB中新建一个工程，放一个文本框与ListView，输入如下代码：Option ExplicitPrivate Type POINTAPI X As Long Y As LongEnd TypePrivate Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypePrivate Declare Functio... 阅读全文

posted @ 2009-05-09 21:17 yzx99 阅读(1242) 评论(0) 推荐(0) 编辑

VB6实现ListView各行间隔颜色

摘要：建立新工程，添加一个ListView控件与一个Picture控件，然后输入如下代码：Option ExplicitPrivate Sub Form_Load()Dim i As Long '列表框的属性及准备数据 ListView1.View = lvwReport ListView1.ColumnHeaders.Add , , "This is Just a Simple Example" Li... 阅读全文

posted @ 2009-05-09 17:07 yzx99 阅读(1223) 评论(0) 推荐(0) 编辑

导航

2009年5月9日