VB richtextbox 图片控制大小

RichTextBox可以说就是类似于写字板的功能，除了textbox的基本功能之外还有很多特殊的功能，比如标注字体颜色，字体大小等。非常实用。

1,引用"Windows Rich TextBox Control"2.菜单中选择"工程"->"工程1 属性"->选择"生成"->最下面一个勾"删除有关未使用的ActiveX控件的信息"不要勾 3.代码如下 OptionExplicit DimWithEventsRichTextBox1AsRichTextBox PrivateSubForm_Load()SetRichTextBox1=Controls.Add("RichText.RichTextCtrl.1"...

.Flags = &H200000 '允许长文件名 .ShowOpen If Err.Number = 32755 Then Exit Sub '若按取消按钮，则退出过程 openFilename = .FileName '获得要打开的文件名 Form1.Picture = LoadPicture(openFilename)End With End Sub Private Sub Form_Load()Command1.Caption = "选择图片"End Sub ...

我把原理说一下，由于不知道你要的VB版本，所以无法直接给你代码：先把rtb的文字内容用LCase函数转为小写赋值给一个变量，再把要替换的字符串也转为小写，然后用InStr函数找出这个要替换的字符串在变量中的位置，再在rtb的相同位置进行替换即可。替换时可以采用字符串拼接的方式，即把位置前的字符串+...

不知道你要啥 不过做了个效果你看看：图片框的BorderStyle 值为0 Private Sub Picture1_Click(Index As Integer)Select Case Index Case 0 Text1.ForeColor = QBColor(13)Case 1 Text1.ForeColor = QBColor(0)Case 2 Text1.ForeColor = QBColor(9)Case 3 Text1.ForeColor = QBColor(12)End ...

在程序运行期间,你可以用Text1.FontSize=Int(Rnd*20) 每运行一次,字体会改变一次 要是你觉得好玩,可以放个定时器,一直改变大小= =

这个控件可以设置字体的颜色，样式。你这个问题应该不难，代码如下：private sub form_load()‘在richtextbox中输入'I LOVE YOU',然后选中’love'richtextbox1.selcolor=vbred ‘设置选中的部分的颜色’richtextbox1.selfontsize=18 '设置选中字体的的大小‘end sub 应该是这样的，你试试吧 ...

通过acdsee等软件将图片缩小就行了

你的图有多大，数据当然就有多大了，纯文本不会这么大的。我的建议是，不要把原图放在数据库中，可以考虑在某个地方存放原图，然后把该图的路径地址放到数据库中。当需要读取或者进行其它操作的时候，从数据库中得到路径，然后再去得到图。这样数据库小，还方便操作。

If Me.Caption = "新文件" And RichTextBox1.Text = "" Then '判断用户是否修改了文件 Unload Me Else '若用户修改了文件，则弹出消息框询问用户是否要保存文件 result = MsgBox("您已经对文件作了修改，要保存吗？", vbYesNoCancel, "提示")Select Case result '选择选定 Case ...