vb界面设计_图文_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
vb界面设计
上传于||暂无简介
大小：626.00KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢【图文】第2章 VB创建用户界面_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
第2章 VB创建用户界面
上传于||文档简介
&&V​B​教​程​课​件
大小：534.50KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢 上传我的文档
 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
正在努力加载中...
在Form1上添加一个图片框,名称为Pic,通过属性窗口将考生文件夹下的文件Tu1-1.jpg添加.
下载积分：1888
内容提示：在Form1上添加一个图片框,名称为Pic,通过属性窗口将考生文件夹下的文件Tu1-1.jpg添加到图片框
文档格式：DOC|
浏览次数：78|
上传日期： 20:43:12|
文档星级：
该用户还上传了这些文档
在Form1上添加一个图片框,名称为Pic,通过属性窗口将考
官方公共微信VB高手请进，richtextbox 插入图片问题_百度知道
VB高手请进，richtextbox 插入图片问题
且点击可以插入存在于VB6运行后界面的图片请教各位VB高手：VB中richtextbox可任意设置字号大小、并将路径存入数据库中的实现代码。我的希望是实现一个VB文本编辑器，而后存入数据库，并在其中加插些已有的图片
那么如何将RichTextBox2内容包括图片command发送到RichTextBox1:你的方法可行请问44670,以及如何获得图片文件名呢
提问者采纳
得文件名是完全不可行的.FontSize = RichTextBox1.SelBold = CommonDialog1.bmp&quot, ByVal wMsg As Long.FontUnderline = RichTextBox1.FontItalic = RichTextBox1.Picture = LoadPicture(&quot.SelColor = CommonDialog1,命名为PicInsertAutosize=true Autoredraw=trueOption ExplicitPrivate Declare Function SendMessage Lib &quot.Flags = cdlCFEffects Or cdlCFForceFontExist Or cdlCFScreenFonts
CommonDialog1.SetData PicInsert，因为把图片插入后不会保存文件名信息至于复制这样写Private Sub Command2_Click()
RichTextBox2.ShowFont
With RichTextBox1
.SelItalic = CommonDialog1, &1.Coloruser32& (ByVal hwnd As Long, .TextRTF
End Sub顺便帮你写了个改变字体大小的再加一个CommonDialogPrivate Sub Command1_Click()
On Error Resume Next
With CommonDialog1C.OLEObjects.SelFontSize
Clipboard.bmp&quot, 0.Picture = PicInsert.SetFocusEnd Sub新建一个C)
PicInsert，图片会嵌入在文本里;C.FontSize
.SelFontSize = CommonDialog1.TextRTF=RichTextBox1.FontName = RichTextBox1.FontName
SendMessage RichTextBox1, ByVal wParam As Long.Color = RichTextBox1:&#92.SelStrikeThru
CommonDialog1;可以改为其它文件名添加图片后：再加一个Picturebox.bmp&quot.Image
Clipboard.FontItalic
.SelStrikeThru = CommonDialog1.FontStrikethru
RichTextBox1，不需要原来的图片文件附方法2.SelItalicEnd Sub注:&#92.SelColorc:&#92：&quot.SelUnderline
.SelFontName = CommonDialog1.FontBold = RichTextBox1; Alias &1.FontUnderlineSendMessageA&1.SelBold
.Add .FontStrikethru = RichTextBox1.hwnd.SelUnderline = CommonDialog1.SelFontName
, lParam As Any) As LongPrivate Const WM_PASTE = &H302Private Sub Command1_Click()
PicInsert，一个RichtextboxPrivate Sub Command1_Click()RichTextBox1, WM_PASTE
提问者评价
感谢44670,也感谢各位热心帮忙.
其他类似问题
为您推荐：
其他4条回答
要什么事情总问别人！努力吧 你是最棒的，自己动脑子好好想一想，对于面向对象的语言总是比面向过程的语言实现要容易的多
richtextbox的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁君，已阅读到文档的结尾了呢~~
广告剩余8秒
文档加载中
第十一章VB综合应用实例
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
第十一章VB综合应用实例
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer--144.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口}