上下行之间感觉太紧了,怎么将行之间的高度增大,看上去舒服一些,谢谢!
解决方案 »
- MSHFlexGrid1:在允许换行时,如何自动调节行高以显示出所有内容?
- Open fn For Output Shared As #1 Print #1, "..." 能不能不换行
- VsFlexGrid 如何设置列名?
- 如何自动删除Excel,水晶报表生成临时文件?
- 点击保存对话框的保存按钮之后文件就自动保存了吗?还要编程写保存代码吗?
- 怎樣判斷任務管理器中是否已經啟動了某進程
- 我想问一下,datagird控件,我是用绑定的方式,现在请教以下问题,紧急???
- 简单问题:水晶报表的使用问题!
- 请教高手,有关权限管理的问题?
- vb调用DLL时,有VB6.EXE (Cipher.dll) 处有未经处理的异常:读取位置 0x00000000 时发生访问冲突
- xp和win2k的sp4下打印错位问题
- 当表中有很多的字段时,大家是如何制作输入,编辑窗体的
Dim li As ListItem
Dim lCount As Long
Me.ListView1.View = lvwReport
Me.ListView1.GridLines = True
Me.ListView2.View = lvwReport
Me.ListView2.GridLines = True
Set Me.ListView2.SmallIcons = Me.ImageList1 'listview2加了这句话,你看下效果和listview1 有什么不同
With ListView1.ListItems
For lCount = 1 To 100
Set li = .Add(, , lCount)
li.SubItems(1) = lCount
li.SubItems(2) = lCount
Next
End With
With ListView2.ListItems
For lCount = 1 To 100
Set li = .Add(, , lCount)
li.SubItems(1) = lCount
li.SubItems(2) = lCount
Next
End WithEnd Sub