请帮我看一看下面VB程序需要添加什么控件?控件名称?

来源：百度知道编辑：UC知道时间：2024/07/03 04:24:09

请帮我看一看下面VB程序需要添加什么控件?控件名称是什么?

Public picRTF As String
Public picPath As String
Public isPicAlreadHave As Boolean
Function isEqual(ByVal clsPic As ClassPic)
If picRTF = clsPic.picRTF Then
isEqual = True
Else
isEqual = False
End If
End Function
'form
'插入的图片对应的路径,读取或者提交时,可以把对应的替换一下对应路径,可以看一下RTF格式
Dim picCollection As New Collection
Sub initPic()
Dim clsPic As ClassPic
For i = 1 To picCollection.Count
Set clsPic = picCollection.Item(i)
clsPic.isPicAlreadHave = False
Next i
End Sub
Function isPicPathHasMark(ByVal newClsPic As ClassPic)
Dim i As Integer
Dim clsPic As ClassPic
Dim flag As Boolean
flag = False
For i = 1 To picCollection.Count
Set clsPic = picCollection.Item(i)
If clsPic.isEqual(newClsPic) Then
flag = True
clsPic.isPicAlreadHave = True
End If
Next i
isPicPathHasMark = f

在VB的工具箱上边右击，点部件菜单，在弹出的对话框中找“Microsoft Rich Textbox Control 6.0”

控件都添加了还不知道是什么名，这才叫晕呢。

回楼下：代码中有如下代码：
Private Sub RichTextBox1_Change()
Call makePicPathAndRTF
End Sub

添加一个RichTextBox控件默认的名字又是RichTextBox1，就是猜也应该可以猜的到吧？你说了个如果，可惜他不是如果，呵呵！

这个代码还要有一个ClassPic类模块的。

这么高分的问题，只有一句话就可以解决？也太容易了吧楼上的兄弟？

人家问控件是什么名称呢，不是问用什么控件呢，高手不至于犯这么低级的错误吧。

回楼上：如果有
Private Sub Rx1_Change()
Call mamn
End Sub

这Rx1究竟是什么控件？还晕吗？

RICH TEXTBOX控件！

争什么，这个程序好像根本就无法运行。少了什么呢？

请帮我看一看小弟刚学VB，请高手帮我看下，下面的程序有什么错误，为什么实现不了我的查找功能请各位大虾帮我看一看这是个什么病毒。。。请帮我看看这个VB程序!!! 请帮我设计一个vb程序请帮我解释VB程序请帮我解释下VB程序 vb程序WebBrowser控件 vb中添加winsock控件 vb中怎么添加控件?