UC知道vb高手快请支招
来源：百度知道 编辑：UC知道 时间：2024/09/20 22:42:08
一个RichTextBox1，一个按钮c1，按c1插入图片，代码如下：
Private Sub cmdButtonBar_Click(Index As Integer)
On Error GoTo Err
GoOver:
With CommonDialog1
.Filter = "JPEG 文件 (*.jpg, *.jpeg)|*.jpg; *.jpeg|位图文件 (*.bmp)|*.bmp|可移植的网络图形 (*.png)|*.png|GIF 文件 (*.gif)|*.gif|TIFF 文件 (*.tif; *.tiff)|*.tif, *.tiff|所有图片文件|*.bmp; *.jpg; *.gif; *.png; *.tif; *.tiff; *.jpeg; *.ico|所有文件|*.*"
.FilterIndex = 1
.ShowOpen
RichTextBox1.OLEObjects.Add , , .FileName
End With
Exit Sub
Err:
If Err.Number = 32008 Then
Exit Sub
Else
MsgBox "运行时错误(" & Trim(Err.Number) & "):" & vbCrLf & Err.Description
End If
End Sub
为什莫使用时，只有bmp图片可以显示
Private Sub cmdButtonBar_Click(Index As Integer)
On Error GoTo Err
GoOver:
With CommonDialog1
.Filter = "JPEG 文件 (*.jpg, *.jpeg)|*.jpg; *.jpeg|位图文件 (*.bmp)|*.bmp|可移植的网络图形 (*.png)|*.png|GIF 文件 (*.gif)|*.gif|TIFF 文件 (*.tif; *.tiff)|*.tif, *.tiff|所有图片文件|*.bmp; *.jpg; *.gif; *.png; *.tif; *.tiff; *.jpeg; *.ico|所有文件|*.*"
.FilterIndex = 1
.ShowOpen
RichTextBox1.OLEObjects.Add , , .FileName
End With
Exit Sub
Err:
If Err.Number = 32008 Then
Exit Sub
Else
MsgBox "运行时错误(" & Trim(Err.Number) & "):" & vbCrLf & Err.Description
End If
End Sub
为什莫使用时，只有bmp图片可以显示
RichTextBox在微软的帮助上只说明了支持BMP图像,你可以改用PictureBox.
PictureBox 控件可以显示来自位图、图标或者元文件，以及来自增强的元文件、JPEG 或 GIF 文件的图形。如果控件不足以显示整幅图象，则裁剪图象以适应控件的大小。