1 能否从image控件拖出来自动生成一个.jpg后缀的文件呢? 2 读取excel多列含有不同类型数据到一个文本框中?
第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