第1个问题：
 我知道能从WINDOWS资源管理器中拖入图片到控件中，但能否从image控件拖出来自动生成一个.jpg或.bmp后缀的文件呢？高手指教。

Private Sub Image1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
  Image1.Picture = LoadPicture() '先清除一次里面的图片内容
  Image1.Picture = LoadPicture(Data.Files(1))
End Sub
Private Sub Picture2_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
  Picture2.Picture = LoadPicture() '先清除一次图片控件中的图片
  Picture2.Picture = LoadPicture(Data.Files(1)) '拖放是可以达到展示图片的效果。
End Sub

第2个问题：
下面是我的代码：想将EXCEL表格的全部工作表的内容读出放到一个文件框内。。。。下面代码运行到红色部分报错： 类型不正确 。请高手帮忙。。。。要么也可以提供一个你们读出EXCEL表内容的示例代码 谢谢。

 Set NewBook = NewApp.Workbooks.Open("d:\201109072.xls", , , , "")
'第一位为路径，第五位为密码
  For i = 1 To NewBook.Worksheets.Count
  Set NewSheet = NewBook.Worksheets(i)
  For j = 1 To NewSheet.UsedRange.Rows.Count
  For jj = 1 To NewSheet.UsedRange.Columns.Count
  str1 = str1 & str(NewSheet.Cells(j, jj).Value) 在这句报错提示有类型不匹配  
  'str1 = NewSheet.Cells(j, jj): str2 = NewSheet.Cells(1, 2)
 '获取a1,b1的数据
  Label2.Caption = str2
  Next
  str1 = str1 & Chr(32) & Chr(10)
  Next
  str1 = str1 & Chr(32) & Chr(10) & "第 " & i & " 个工作表读写完成"
  Next
  Text1.Text = str1

为什么没有高手出手呢?

我是低手每天一帖来赚分的～

PictureBox绝对可以～之前网路上有看过～找找就有～
而imageBox好像不行～控件内建功能太阳春～记得是抓不到控件句柄的关系～

str1 = str1 & NewSheet.Cells(j, jj)
记得Sheet的Cells没有.Value～
而读出来的数据应该是String～不用再转态吧？

三楼的是 "青峰侠" 了不应该会是低手啦

天天来马上就是 "青峰侠" 了

Private Sub Command2_Click()
Set DataGrid1.DataSource = Read_Excel(App.Path & "\2145.xls")
DataGrid1.Refresh
End Sub
Public Function Read_Excel _
         (ByVal sFile _
          As String) As ADODB.Recordset

      On Error GoTo fix_err
      Dim rs As ADODB.Recordset
      Set rs = New ADODB.Recordset
      Dim sconn As String

      rs.CursorLocation = adUseClient
      rs.CursorType = adOpenKeyset
      rs.LockType = adLockBatchOptimistic

      sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile
      rs.Open "SELECT * FROM [sheet1$]", sconn
      Set Read_Excel = rs
      Set rs = Nothing
      Exit Function
fix_err:
      Debug.Print Err.Description + " " + _
                  Err.Source, vbCritical, "Import"
      Err.Clear
End Function
引用ado