vb6.0现在想要实现一个功能,就是用MSFlexGrid控件显示vb中的数据(记录)。

本人是vb菜鸟,感觉vb编程很难,看书也不怎么能看懂。现在想要实现一个功能,就是利用MSFlexGrid或者什么控件或者text文件记录vb中的数据。比如点击一个按钮,在该MSFlexGrid控件中会显示:步骤1,点击这个了这个按钮。再点击了另一个按钮,又记录一条:步骤2,点击了这个按钮。就是把这些步骤显示在控件中。还可以实现清空等功能。

回答之前,先建议你去学习.Net,对初学者刚开始学起,VB6与VS2008其实是一样的。VB6虽然仍然可用,但没办法再创造辉煌了。
以下看是不是你希望的代码,对于你的信息显示,用文本框会简单很多。在界面拉三个按钮,一个文本框,文本框的MultiLine属性设为True
Option Explicit

'界面装载代码,这些正常情况下不必在代码中设置,而是直接在界面属性中设置
Private Sub Form_Load()
Command1.Top = 0
Command1.Left = 0
Command1.Width = 900
Command1.Height = 375
Command1.Caption = "步骤1"

Command2.Top = 0
Command2.Left = 1200
Command2.Width = 900
Command2.Height = 375
Command2.Caption = "步骤2"

Command3.Top = 0
Command3.Left = 2400
Command3.Width = 900
Command3.Height = 375
Command3.Caption = "清空"

Text1.Top = 420
Text1.Left = 0
Text1.Width = Me.Width - 120
Text1.Height = Me.Height - 300
' Text1.MultiLine = True // 该属性只能在界面属性中直接设置
Text1.Text = ""
End Sub

'步骤1按钮点击事件的处理代码
Private Sub Command1_Click()
Text1.Text = Text1.Text & "步骤1,点击这个了这个按钮" & vbCrLf
Text1.SelStart = 10000
End Sub

'步骤2按钮点击事件的处理代码
Private Sub Command2_Click()
Text1.Text = Text1.Text & "步骤2,点击了这个按钮" & vbCrLf
Text1.SelStart = 10000
End Sub

'清空按钮点击事件的处理代码
Private Sub Command3_Click()
Text1.Text = ""
End Sub
温馨提示:内容为网友见解,仅供参考
无其他回答

vb6.0现在想要实现一个功能,就是用MSFlexGrid控件显示vb中的数据(记...
'步骤1按钮点击事件的处理代码 Private Sub Command1_Click()Text1.Text = Text1.Text & "步骤1,点击这个了这个按钮" & vbCrLf Text1.SelStart = 10000 End Sub '步骤2按钮点击事件的处理代码 Private Sub Command2_Click()Text1.Text = Text1.Text & "步骤2,点击了这个按钮" & vbCrLf Te...

如何在VB6.0里使用MSFlexGrid将Access中的数据导进来
何必搞得这么复杂,用MSHFlexGrid代替MSFlexGrid 向工程添加部件:microsoft hierarchical flexgrid control 然后用下面的代码同样能达到要求:Set Conn = CreateObject("ADODB.Connection")Set Reco = CreateObject("ADODB.Recordset")Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path ...

vb 6.0中MSFlexGrid控件如何调整单元格宽度
设置单元格宽度用ColWidth属性,比如设置第1列的宽度为1000,可以写 MSHFlexGrid1.ColWidth(1) = 1000单元格对齐方式用CellAlignment属性,比如设置单元格水平左对齐,垂直居中,可以写MSHFlexGrid1.CellAlignment = flexAlignLeftCenter列对齐方式用ColAlignment属性,比如设置第一列为水平垂直都居中对齐,可以写...

VB 6.0中用msflexgrid控件修改数据库的代码怎么写
'MSHFlexGrid1是不能输入的,只有通过一个text来输入 Private Sub MSHFlexGrid1_Click()Dim i As Long With MSHFlexGrid1 If .Col = 1 Then Text1.Text = Trim(.Text)Text1.Left = .CellLeft - 10 Text1.Top = .CellTop - 10 Text1.Height = .CellHeight Text1.Width = .CellWidth T...

如何向vb MSFlexGrid控件添加数据?
1)使用绑定到数据源。可使用ADODB数据源或Data控件绑定MSFlexGrid控件。2)使用AddItem方法添加数据。AddItem 方法 (MSHFlexGrid),该方法将一个行添加到 MSHFlexGrid 控件中。Private Sub Command1_Click() MSFlexGrid1.Cols = 5 MSFlexGrid1.AddItem vbTab & "1" & vbTab & "2" & vbTab...

vb中如何把查询到的数据显示在msflexgrid上呢 请高手来围观解答啊_百度...
1、添加 MSFlexGrid 控件:“工程”->"部件"->"选择 Microsoft FlexGrid Control 6.0"->"确定"2、Data 控件应该会设置吧 3、窗体上放置该控件,设置其 DataSource 属性=Data1 3、添加需要的程序 4、程序中的 "F1" 是我用字段名称,代表的是“错误编号”5、查询中用 Like 语句可以获得相关的...

VB6.0中MSFlexGrid控件的用法
MsFlexGrid.CellFontBold=True >> 添加新的一行 使用AddItem方法,用Tab字符分开不同单元格的内容 dim row as string row=”AAA”&vbtab&”bbb”MsFlexFrid1.addItem row >>怎样来实现MSFlexGrid控件单数行背景为白色,双数的行背景为蓝色?Dim i As Integer With MSFlexGrid1 .AllowBigSelection = ...

VB 6.0中使用msflexgrid控件,如何插入一行?
For i = msflexgrid.Rows - 1 To msflexgrid.Row + 2 Step -1 For j = 0 To msflexgrid.Cols - 1 msflexgrid.TextMatrix(i, j) = msflexgrid.TextMatrix(i - 1, j)Next Next msflexgrid.Row = msflexgrid.Row + 1 For i = msflexgrid.Row To msflexgrid.Row For j = 0 To ms...

VB6.0中如何查询数据库以及如何在DBgrid中显示查询结果
你是想在dbgrid中显示“流量”表中所有的结果吧,给你一个更好的办法使用MSFlexGrid控件,引用DAO libarary 3.51,将查询结果输出到MSFlexGrid中就可以了。照你的例子给你重新写一下:Private Sub Command3_Click()dim rs as adodb.recordset sql = "select * from table where '流量m3\/h'>d"rst...

vb6.0中怎样使data所在记录是DataGrid光标所在行记录?
后来资料介绍,可以用控件的DataGrid1_RowColChange事件读取数据,但是这种读取数据的方法只能读取被点击的记录的字段值,而不能读取整个DataGrid控件显示的所有字段:Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)Text1(0).Text = DataGrid1.Text End Sub 在Text1(0)...

相似回答