姓名 学校 编号 分数
aaa aaa aaaa aaa
bbb bbb cccc bbb
-
等级
本版专家分：0结帖率 100% -
我想在FileListBox中画表格或线来显示多个列，应该怎么做？例如在FileListBox显示如下的结果：
姓名 学校 编号 分数
aaa aaa aaaa aaa
bbb bbb cccc bbb
展开阅读全文
-
等级
本版专家分：50422勋章
-
- 银牌 2006年3月 总版技术专家分月排行榜第二
-
-
红花
2006年4月 VB大版内专家分月排行榜第一
2006年3月 VB大版内专家分月排行榜第一
2006年2月 VB大版内专家分月排行榜第一
2006年1月 VB大版内专家分月排行榜第一
2005年10月 VB大版内专家分月排行榜第一
-
-
黄花
2005年12月 VB大版内专家分月排行榜第二
2005年11月 VB大版内专家分月排行榜第二
-
-
FileListBox一般是用来显示文件的，显示数据库的用MSHFlexGrid吧
-
等级
本版专家分：50422勋章
-
- 银牌 2006年3月 总版技术专家分月排行榜第二
-
-
红花
2006年4月 VB大版内专家分月排行榜第一
2006年3月 VB大版内专家分月排行榜第一
2006年2月 VB大版内专家分月排行榜第一
2006年1月 VB大版内专家分月排行榜第一
2005年10月 VB大版内专家分月排行榜第一
-
-
黄花
2005年12月 VB大版内专家分月排行榜第二
2005年11月 VB大版内专家分月排行榜第二
-
-
显示数据库的数据，可以这样做：
'引用ADO(工程／引用／Microsoft ActiveX Data Object 2.X Library)
'添加MSHFlexGrid控件(工程／部件／Microsoft Hierarchical FlexGrid Control 6.0 (OLEDB))
Private Sub Command1_Click()
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;User Id=admin;Password=;"
rs.Open "select * from 表 ", cn, adOpenDynamic, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
End Sub
-
等级
本版专家分：15462勋章
-
- 红花 2007年2月 VB大版内专家分月排行榜第一
-
- 蓝花 2006年3月 VB大版内专家分月排行榜第三
-
-
用listview 来显示你的要求
Option Explicit
Dim intX As Integer ' Counter variable.
Dim Val As Recordset
Dim Max As Integer
Dim Totel As Integer
Private Sub Combo1_Click()
ListView1.View = Combo1.ListIndex
End Sub
Private Sub Command1_Click()
Me.ProgressBar1.Max = Data1.Recordset.RecordCount
Totel = Data1.Recordset.RecordCount
Data1.Caption = Totel
Set Val = Data1.Recordset
Do While Val.EOF = False
Max = Max + 1
Me.ProgressBar1.Value = Max
With ListView1.ListItems.Add()
For intX = 0 To 4
If intX = 0 Then
.Text = Data1.Recordset.Fields(0).Value
Else
.SubItems(intX) = Data1.Recordset.Fields(intX).Value
End If
Next
Data1.Recordset.MoveNext
End With
Loop
End Sub
Private Sub Command2_Click()
Dim Item As ListItem
For Each Item In ListView1.ListItems
Debug.Print Item.Text, Item.SubItems(1), Item.SubItems(2), Item.SubItems(3)
Next Item
End Sub
Private Sub Form_Load()
Me.Show
Me.ListView1.View = lvwReport
Dim colX As ColumnHeader ' Declare variable.
For intX = 1 To 5
Set colX = ListView1.ColumnHeaders.Add()
colX.Text = "Field " & intX
colX.Width = ListView1.Width / 5
Next intX
With Me.Combo1
.AddItem "Icon" '0
.AddItem "Small Icon" '1
.AddItem "List" '2
.AddItem "Report" '3
.ListIndex = 3
End With
End Sub
Private Sub ListView1_Click()
Data1.Caption = Me.ListView1.SelectedItem.Index & "/" & Totel
End Sub
-
等级
本版专家分：166865勋章
-
-
微软MVP
2005年1月 荣获微软MVP称号
2004年1月 荣获微软MVP称号
-
-
红花
2007年5月 VB大版内专家分月排行榜第一
2007年4月 VB大版内专家分月排行榜第一
2005年12月 VB大版内专家分月排行榜第一
2004年2月 VB大版内专家分月排行榜第一
2004年1月 VB大版内专家分月排行榜第一
2003年11月 VB大版内专家分月排行榜第一
2003年10月 VB大版内专家分月排行榜第一
-
-
黄花
2007年6月 VB大版内专家分月排行榜第二
2006年3月 VB大版内专家分月排行榜第二
2006年2月 VB大版内专家分月排行榜第二
2006年1月 VB大版内专家分月排行榜第二
2004年9月 VB大版内专家分月排行榜第二
2004年8月 VB大版内专家分月排行榜第二
2004年3月 VB大版内专家分月排行榜第二
2003年12月 VB大版内专家分月排行榜第二
2003年9月 VB大版内专家分月排行榜第二
2003年7月 VB大版内专家分月排行榜第二
2003年6月 VB大版内专家分月排行榜第二
2003年5月 VB大版内专家分月排行榜第二
-
-
蓝花
2005年11月 VB大版内专家分月排行榜第三
2004年7月 VB大版内专家分月排行榜第三
-
-
用listbox也可以
-
等级
本版专家分：112817勋章
-
- 进士 2002年 总版技术专家分年内排行榜第四
-
- 微软MVP 2003年4月 荣获微软MVP称号
-
-
红花
2002年12月 VB大版内专家分月排行榜第一
2002年11月 VB大版内专家分月排行榜第一
2002年10月 VB大版内专家分月排行榜第一
2002年9月 VB大版内专家分月排行榜第一
2002年8月 VB大版内专家分月排行榜第一
2002年7月 VB大版内专家分月排行榜第一
2002年6月 VB大版内专家分月排行榜第一
2002年5月 VB大版内专家分月排行榜第一
-
-
黄花
2003年8月 VB大版内专家分月排行榜第二
2003年1月 VB大版内专家分月排行榜第二
-
-
同意rainstormmaster(暴风雨 v2.0)
用listbox也可以
vbTab是分栏字符
List1.Add "aaa" & vbTab "aaa" & vbTab "aaaa" & vbTab "aaa"
分栏的精确定位可以发送LB_SETTABSTOPS消息
- 常用控件
第七章 常用控件教学目的及要求： 控件的分类，会利用本章控件设计程序界面 重点与难点： 1．掌握常用控件（单选钮、复选框、框架、列表框、组合框、滚动条、计时器、图片框、图像框）的常用属性、事件和方法的使用...
- 在TFileListBox的子类里重写ReadFileNames那个虚方法(见filectrl.pas),根据文件创建时间进行排序。
原文出自：http://topic.csdn.net/t/20061003/15/5061795.html 在TFileListBox的子类里重写ReadFileNames那个虚方法(见filectrl.pas),根据TSearchRec.Time进行排序。 unit
- 实验三
一、用for循环输出n的阶乘 package hello; public class for{ public static void main(String[] args) { int n，i=1,sum; for(i=1;i<=n;i++) { sum=sum*i; } System.out...
- 文件操作
取得该快捷方式的指向EXE关键词:快捷方式 LNK unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton...
- TCP/UDP编程中的问题汇总
TCP/UDP编程中的问题汇总 TCP和UDP发送大文件的问题。 答： 发送端： 发送时，先发送文件的名称及大小等信息。 然后，设置一个缓冲区的大小，假设为4K。 再循环读4K的文件内容，并发送，直到发送完成...
- VB 函数参考一（A-G）
VB 函数参考一（A-G） <!-- p {line-height:150%; text-indent:2em} --> Abs Activate Asc Atn CBool CByte CCur CDate CDbl CDec Change Chr CInt Click CLng Cos CSng CStr ...
- 我在CSDN参与的3000个帖子
2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，...
- 湖南省计算机等级考试(二级)题库 第七部分
1 在菜单设计器中，要将当前菜单项下移一个等级，应按（ ）按钮。 “左箭头” “右箭头” “上箭头” “下箭头” B 32 在菜单设计器中，要将当前菜单项下移一个位置，应按（ ）按钮。 “左箭头” “右箭头...
- 模式学习（1）：Decorator装饰者模式
使用时机：1、在不影响其他对象的情况下，动态透明的增加责任或功能到某一对象。 2、这些功能可以随时添加或取消； 3、为了增加大量的功能，而导致派生类激增，继承关系复杂而不现实时；累的定义被隐藏或定义不...
- 利用c++builder设计文件分割机
利用C++ Builder 5.0实现文件切割机作者：五大连池马明臣 一、问题的提出：相信很多朋友都遇到过这样的问题，如何将一个大于一张软盘容量的文件拷贝到软盘上，可能读者会想到dos下的Backup与Restore之类的工具，但是...
- VB 控件随窗体自动调整大小.rar
VB 控件随窗体自动调整大小，像窗口中的ListBox、Image、FileListBox、VB.Frame控件等，都可以随窗口的大小变化而变化，当用户拖动改变窗口大小时，这些控件的大小也会随之改变，这个功能的实现得益于自定义函数Form...
- vb/vb.net开发精粹(10)
vb6.0 msdn 请教AUTOCAD+vba问题——区域复制...VB6 类模块，再引用另一个类模块的问题 MsgBox a$, ,b$,c$为什么调试不通？ 请教AUTOCAD+vba问题——区域复制/镜像 如何获取本机IP 为什么vb中显示不了matlab画图结
- Delphi第三方控件大比拼（免费篇）
下面这篇文章是一位网友对多种第三方组（控）件的看法，英雄所见所略同，他的见解还是颇有见地的。但所谓智者见智，仁者见者，下面的红字是我的个人看法。 古人云∶“工欲善其事，必先利其器。” 这句话，我想凡是用...
- vb/vb.net开发技巧荟萃(七)
关于数据库的两个小问题 “VB与EXCEL、VB与ACCESS”的问题 VB画线 百思不得其解VB编小程序的错误 求牛人指导 我新手 VB 如何打开 指定的 TCP端口？ VB6.0获取计算机名 用户名最简单的方法 如...
- Delphi第三方控件大比拼
Delphi第三方控件大比拼 下一节
- 文件的分割与合并
一、程序设计原理 我们知道文件之所以能够被分割是因为所有文件都是以二进制的形式存储的，然后再根据文件系统的相应规定来进行读取处理。我们基于这个原理，把所有类型的文件都以二进制进行读写，合并时再以二进制...
- 如何优化VB程序
如何去优化你的VB程序帮助 1、如何去优化你的VB程序Visual Basic 作为一种高级编程语言，它也有着不可避免的缺点---开发出的应用程序运行速度慢。如果我们能够程序做一些优化，那么情况将会大大改善。要优化程序...
- vb/vb.net开发精粹(9)
filelistbox如何排序? 关于数据库的两个小问题 “VB与EXCEL、VB与ACCESS”的问题 VB画线 百思不得其解VB编小程序的错误 求牛人指导 我新手 VB 如何打开 指定的 TCP端口？ VB6.0获取计算机名 用户名最简单的...
- DELPHI基础教程 第六章 文件管理
第六章 文件管理 文件是同一类型元素的有序集合，是内存与外设间传输数据的渠道。一些外设如显示器、键盘、打印机等都可以看作文件，但最常用的还是磁盘文件，这也是本章我们主要讨论的对象。...
- 6.Delphi文件管理
文件是同一类型元素的有序集合，是内存与外设间传输数据的渠道。一些外设如显示器、键盘、打印机等都可以看作文件，但最常用的还是磁盘文件，这也是...利用Delphi的强大功能，开发一个自己的文件管理系统就成为很容...
- delphi第三方组件总述
众所周知，Delphi提供了大量的组件，使用这些组件基本上已能满足我们的编程需求。但是在对于有特定要求的程序，仅仅使用Delphi自带的组件就无法适应了。例如，Delphi没有提供串口通信组件（反正我是没有找到），编写...
- Delphi第三方组件总述
来自:http://www.hongen.com/pc/program/third/delphi/dthird01.htm众所周知，Delphi提供了大量的组件，使用这些组件基本上已能满足我们的编程需求。但是在对于有特定要求的程序，仅仅使用Delphi自带的组件就无法...
- Delphi第三方组件总述
来自:http://www.hongen.com/pc/program/third/delphi/dthird01.htm众所周知，Delphi提供了大量的组件，使用这些组件基本上已能满足我们的编程需求。但是在对于有特定要求的程序，仅仅使用Delphi自带的组件就无法...
- Delphi第三方控件大比拼
下面这篇文章是一位网友对多种第三方组（控）件的看法，英雄所见所略同，他的见解还是颇有见地的。但所谓智者见智，仁者见者，下面的红字是我的个人看法。 古人云∶“工欲善其事，必先利其器。” 这句话，我想凡是用...
- Delphi第三方组件--Delphi第三方控件大比拼
下面这篇文章是一位网友对多种第三方组（控）件的看法，英雄所见所略同，他的见解还是颇有见地的。但所谓智者见智，仁者见者，下面的红字是我的个人看法。 古人云∶“工欲善其事，必先利其器。” 这句话，我想...
- BCB 第三方组件/控件 ZZ
下面这篇文章是一位网友对多种第三方组（控）件的看法，英雄所见所略同，他的见解还是颇有见地的。但所谓智者见智，仁者见者，下面的红字是我的个人看法。 古人云∶“工欲善其事，必先利其器。” 这句话，我想凡是用...
- Delphi笔记大全
1. Record ： 3. 指针： 类型指针的定义。 var ptr : ^Integer; ptr : ^char; 其实也就是符号的差别而已。 无类型指针的定义。 ptr : Pointer;...ShellExecute(handle,nil,pchar('ht
- C语言游戏代码大全
双人贪吃蛇，别踩白方块，玫瑰花，矿井逃生等多种C语言游戏代码等你来实践！
- Parallels Desktop 16 联网启动脚本.command
Parallels Desktop 16 联网启动脚本.command 管理员运行 就能上网（Mac 虚拟机：Parallels Desktop v16.0.1-48919 TNT 直装版 支持 macos 11）
- 打通Linux脉络系列：进程、线程和调度
本课程分成4个组成部分，每次课60分钟，每次课后留下3-4个练习题，可以在Linuxer公众号留言讨论答案和做题心得。 第一部分：深入彻底搞清楚进程生命周期，进程生命周期创建、退出、停止、以及僵尸是个什么意思； 第二部分：深入分析进程创建的写时拷贝技术、以及Linux的线程究竟是怎么回事（为什么称为轻量级进程），此部分也会搞清楚进程0、进程1和托孤，以及睡眠时的等待队列； 第三部分：搞清楚Linux进程调度算法，不同的调度策略，实时性，完全公平调度算法； 第四部分：讲解Linux多核下CPU、中断、软负载均衡、cgroups调度算法以及Linux为什么不是一个实时操作系统。 掌握Linux脉络知识：进程、线程和调度。