vb调用shell32.dll里的图标为image1.picture狗的简介

正在使用人数

话题：vb调用shell32.dll里的图标为image1.picture狗问题详情：vb调用shell32.dll里的图标为image1.picture回答：Integer)AsLongDimhIconAsLonghIcon=ExtractIcon(GetModuleHandle(FileName),FileName,IconIndex参考回答：你想说什么？说明白。话题：Image1.Picture问题。

小知识：vb调用shell32.dll里的图标为image1.picture狗

vb调用shell32.dll里的图标为image1.picture狗

时间:2016-03-14 18:31 来源: 我爱IT技术网编辑:佚名

话题：vb 调用 shell32.dll 里的图标为 image1.picture 狗

问题详情：vb 调用 shell32.dll 里的图标为 image1.picture

回答：Integer) As Long Dim hIcon As Long hIcon=ExtractIcon(GetModuleHandle(FileName), FileName, IconIndex

参考回答：你想说什么？说明白。

话题：Image1.Picture

问题详情：为什么Image1.Picture=LoadPicture(＂d：\我的文档\图片收藏\精灵

回答：程序看不出来，可以在这行之前用：MsgBox ＂d：\我的文档\图片收藏\精灵截图\＂ i ＂.jpg＂看看到底LoadPicture得到的是什么

话题：怎么才能不无聊: image1.x5djhttp://www.zhishizhan.net/xiaozhishi/picture/20050/

问题详情：: image1.x5djhttp://www.zhishizhan.net/xiaozhishi/picture/20050/6325235201350.mp3

回答：.麻烦等你知道后也转告下我.. 我比你还无聊呢.

参考回答：找我玩

话题：如何判断Image1.picuture为空,即没有图片？

回答：如何判断Image1.picuture为空，即没有图片？我用以下语句：If Image1.Picture=nil Then 不行，望高手指点！

参考回答：Thank you Very much！！！！

话题：VB的判断语句,求解。

问题详情：Image1.Picture=LoadPicture(＂ then else end end if要判断图片

回答：这里的Picture是个Handle，两次载入后的Handle不同。如果要判断是不是相同，需要判断流是否一致，而不是句柄。这段程序如果是在检验载入是否成功的话，这种再载入一遍的做法是没有用的，要么总相等，要么象这样一样总不等。可行的做法判断载入后指针是否为空，查loadpicture的ERR机制判断。

参考回答：改成 if Image1.Picture==LoadPicture(＂C:\Documents and Settings\Administrator\桌面\VB-屏幕保护程序\picture\al4.jpg＂) then试试

话题：求数字拼图游戏VB程序码

问题详情：基本要求n 能够实现拼图功能。n 可以通过初始化任意次的重新游

回答：Option Explicit Dim i As Integer'定义循环变量 Dim j As Integer Dim step As Integer Dim x() As Integer'定义一个数组，用来存放随机编号 Private Sub mand1_Click（) init'初始化游戏 mand1.Enabled=False'使开始按钮失效 End Sub Private Sub Form_Load（) Randomize'起始随机数产生器 End Sub Sub init（)'初始化游戏子程序 For i=0 To '随机产生不重复的个编号（从0到） a0: x(i)=Int(Rnd*) For j=0 To i - 1 If x(i)=x(j) Then GoTo a0 Next Next For i=0 To Image1(i).Enabled=True'使Image1响应鼠标 Image1(x(i)).Picture=PictureClip1.GraphicCell(i)'让图片的个单元分别赋予个Image控件 Next Image1().Picture=LoadPicture

参考回答：看了你的要求，我可以给你做的，+Q 一二一五六，数字问问就给屏蔽了，只好打汉字了