vbnet粘贴功能如何限定图像大小

你是要把图像缩小以适应picturebox?

创新互联自2013年起，公司以成都网站设计、成都网站建设、系统开发、网络推广、文化传媒、企业宣传、平面广告设计等为主要业务，适用行业近百种。服务企业客户千余家，涉及国内多个省份客户。拥有多年网站建设开发经验。为企业提供专业的网站建设、创意设计、宣传推广等服务。 通过专业的设计、独特的风格，为不同客户提供各种风格的特色服务。

PictureBox1.Image = New Bitmap(PictureBox1.Width, PictureBox1.Height)

Dim g As Graphics = Graphics.FromImage(picView.Image)

g.DrawImage(Clipboard.GetImage(), 0, 0, PictureBox1.Width, PictureBox1.Height)

g.Dispose()

vb.net中，如何像下图一样，用很简单的办法，导入1000张图片。

很简单的方法，貌似没有。这个需要自己写很多代码：

用一个ListView控件。

判断滚动条当前所显示的图片集合，获取它们的物理路径。

用Bitmap.FromImage方法把这些图片读出来，

然后获取缩略图，

把缩略图用Graphics.DrawImage()绘制出来。

我可以提供Bitmap如何获取缩略图的方法：

''' summary必须创建一个委托并将对此委托的引用作为获取缩略图 callback 参数传递，但不使用此委托。/summary

Public Function ThumbnailCallback() As Boolean

Return False

End Function

''' summary返回Image，表示图像指定 宽 和 高 的缩略图。/summary

Public Function 获取缩略图(位图 As Bitmap, 宽 As Integer, 高 As Integer) As Image

Dim myCallback As New Image.GetThumbnailImageAbort(ThumbnailCallback)

Return 位图.GetThumbnailImage(宽, 高, myCallback, IntPtr.Zero)

End Function

VB.net 怎样将richtextbox中带格式的文本和图片导入到word中？

别那么费事,

直接用 richbox 的 save方法把内容存放在一个临时的 rtf文件

RichTextBox1.SaveFile("e:\temp.rtf") '因为word是可以直接打开rtf文件的

然后用 Documents打开这个临时对象

Documents.Open ("e:\temp.rtf")

最后再另存为 word文件

ActiveDocument.SaveAs ("newname.doc",100, False, "", True, "",False, False,False, False, False)

'注意第二个参数是100 表示doc格式

完整代码如下:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim doc As Object, docword As Object

RichTextBox1.SaveFile("e:\1.rtf")

Doc = CreateObject("Word.Application")

DocWord = doc.Documents.Open("e:\1.rtf")

doc.ActiveDocument.SaveAs("newname.doc", 100, False, "", True, "", False, False, False, False, False)

doc.quit()

doc = Nothing

docword = Nothing

End Sub