| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 948 人关注过本帖
标题:1 能否从image控件拖出来自动生成一个.jpg后缀的文件呢? 2 读取excel多列含 ...
只看楼主 加入收藏
yiyaozjk
Rank: 2
等 级:论坛游民
帖 子:231
专家分:30
注 册:2010-3-10
结帖率:51.67%
收藏
 问题点数:0 回复次数:6 
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
搜索更多相关主题的帖子: 图片 资源管理器 excel 文本框 
2011-10-05 14:33
yiyaozjk
Rank: 2
等 级:论坛游民
帖 子:231
专家分:30
注 册:2010-3-10
收藏
得分:0 
为什么没有高手出手呢?
2011-10-13 14:25
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:0 
我是低手每天一帖来赚分的~

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

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

不要選我當版主
2011-10-13 19:17
yiyaozjk
Rank: 2
等 级:论坛游民
帖 子:231
专家分:30
注 册:2010-3-10
收藏
得分:0 
三楼的是 "青峰侠" 了不应该会是低手啦
2011-10-13 22:12
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:0 
回复 4楼 yiyaozjk
天天来马上就是 "青峰侠" 了

不要選我當版主
2011-10-14 11:34
zhuyongxing
Rank: 6Rank: 6
等 级:侠之大者
威 望:1
帖 子:234
专家分:482
注 册:2009-8-5
收藏
得分:0 
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
2011-10-14 15:32
快速回复:1 能否从image控件拖出来自动生成一个.jpg后缀的文件呢? 2 读取excel ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027095 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved