vb6.0现在想要实现一个功能,就是用MSFlexGrid控件显示vb中的数据(记录)。
本人是vb菜鸟,感觉vb编程很难,看书也不怎么能看懂。现在想要实现一个功能,就是利用MSFlexGrid或者什么控件或者text文件记录vb中的数据。比如点击一个按钮,在...
本人是vb菜鸟,感觉vb编程很难,看书也不怎么能看懂。现在想要实现一个功能,就是利用MSFlexGrid或者什么控件或者text文件记录vb中的数据。比如点击一个按钮,在该MSFlexGrid控件中会显示:步骤1,点击这个了这个按钮。再点击了另一个按钮,又记录一条:步骤2,点击了这个按钮。就是把这些步骤显示在控件中。还可以实现清空等功能。
展开
1个回答
展开全部
回答之前,先建议你去学习.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
以下看是不是你希望的代码,对于你的信息显示,用文本框会简单很多。在界面拉三个按钮,一个文本框,文本框的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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询