最近正在写了一个兵种控件，结果发现怎么搞都无法响应事件。 - 设计与修改


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#1

发表于 2006-10-11 12:51 资料个人空间短消息看全部作者

最近正在写了一个兵种控件，结果发现怎么搞都无法响应事件。

详细内容请看#55的帖。

[ 本帖最后由阿尔法孝直于 2007-6-3 16:55 编辑 ]

[广告] 真诚支持说岳，携手共创辉煌


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#2

发表于 2006-10-11 13:24 资料个人空间短消息看全部作者

谢谢！已成功！

[广告] 真诚支持说岳，携手共创辉煌


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#3

发表于 2006-10-12 16:57 资料个人空间短消息看全部作者

问题改了。要求将这段代码夹在语句1与语句2之间，使得程序执行完语句1之后，间隔指定的时间再执行语句2。如果在这段时间内单击鼠标、或者按指定的键（如回车），也执行语句2。

或者这样想，执行完语句1之后，给你一段时间，如果在这段时间内按了指定按键或单击鼠标，执行语句2；这段时间内没有按指定按键且没有单击鼠标，也执行语句2。
最好不使用计时器控件。

[ 本帖最后由阿尔法孝直于 2006-10-12 17:02 编辑 ]

[广告] 真诚支持说岳，携手共创辉煌


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#4

发表于 2006-10-12 19:48 资料个人空间短消息看全部作者

错误

图片附件: error.JPG (2006-10-12 19:48, 37.82 K)

[广告] 真诚支持说岳，携手共创辉煌


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#5

发表于 2006-10-13 17:16 资料个人空间短消息看全部作者

我在Form_KeyPress()事件中的End If 处设置断点，结果运行时单击鼠标，没有停下来。

[广告] 安装Alexa工具条，提高轩辕排名，支持轩辕发展！


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#6

发表于 2006-10-13 20:08 资料个人空间短消息看全部作者

即使用计时器控件，也不行。执行一下代码，发现time2的值总是0

Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Private check1 As Boolean
Private time2 As Byte

Private Sub Form_Click()
check1 = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyAscii = 13 Then '13是回车，0x1是鼠标左键
check1 = True
Else
check1 = False
End If

End Sub

Private Sub Form_Load()
Me.Show
Timer1.Enabled=True
Timer1.Interval=10
time2 = 0
Print "00000000"
Do While Not check1
  Sleep (1000)
Loop
Print "11111111"
Do While Not check1
  Sleep (1000)
Loop
Print "22222222" '事件C
Do While Not check1
  Sleep (1000)
Loop
Print "33333333"
End Sub

Private Sub Timer1_Timer()
Static time1 As Byte
time1 = time1 + 1
time2 = time1
If time1 = 50 Then
  time1 = 0
  check1 = True
End If
End Sub

[广告] 《精忠报国岳飞传完整版》火热发布


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#7

发表于 2006-10-14 15:54 资料个人空间短消息看全部作者

恐怕以下代码是最佳不过了（如果用计时器）

放上一个计时器控件，一个不可见的文本框控件（或一个不可见的标签控件也行），代码如下：

（没办法，为了模拟英杰传的弹出信息框，单击鼠标或等到一定时间信息框消失）

[ 本帖最后由阿尔法孝直于 2006-10-14 15:57 编辑 ]

图片附件: Code1.JPG (2006-10-14 15:54, 77.44 K)

[广告] 真诚支持说岳，携手共创辉煌


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#8

发表于 2006-10-25 12:36 资料个人空间短消息看全部作者

加急！如何做出透明Frame控件？

不是让Frame看不见，而是让放在里面的透明Label控件显示在Progressbar的上面。

比如像曹操传中的生命条一样。

[ 本帖最后由阿尔法孝直于 2006-10-25 13:08 编辑 ]

[广告] 真诚支持说岳，携手共创辉煌


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#9

发表于 2006-10-25 19:52 资料个人空间短消息看全部作者

标签在进度条上面，并且是透明的。

图片附件: [图] Prog.JPG (2006-10-25 19:52, 11.56 K)

[广告] 《精忠报国岳飞传完整版》火热发布


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#10

发表于 2006-10-28 19:06 资料个人空间短消息看全部作者

用什么软件可以制作VB6支持的48*48格式的ICO图标？我试了一些软件比如IconWorkShop、ApearIconMaker等，结果VB6都报“无效图片”。

这里有一个待测图片。

[ 本帖最后由阿尔法孝直于 2006-10-31 15:10 编辑 ]

附件: [待测图片] image1.rar (2006-10-28 19:06, 220 bytes)
该附件被下载次数 139

[广告] 《精忠报国岳飞传完整版》火热发布


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#11

发表于 2006-10-31 15:10 资料个人空间短消息看全部作者

不好意思打错了，是ICO。已改。

[广告] 《精忠报国岳飞传完整版》火热发布


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#12

发表于 2006-11-3 19:53 资料个人空间短消息看全部作者

有谁帮我测一下啊

[广告] 安装Alexa工具条，提高轩辕排名，支持轩辕发展！


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#13

发表于 2006-11-4 19:54 资料个人空间短消息看全部作者

没学过VC。是Visual C++吗？

[广告] 《精忠报国岳飞传完整版》火热发布


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#14

发表于 2006-11-4 20:00 资料个人空间短消息看全部作者

刚看了一下，好像不能编辑48x48的啊。

[广告] 真诚支持说岳，携手共创辉煌


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#15

发表于 2006-11-5 15:39 资料个人空间短消息看全部作者

刚试过，VB6好像只支持32*32*16色的ICO

[广告] 安装Alexa工具条，提高轩辕排名，支持轩辕发展！


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#16

发表于 2006-11-5 15:42 资料个人空间短消息看全部作者

还有32*32*2色的Cur

[广告] 真诚支持说岳，携手共创辉煌


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#17

发表于 2006-11-7 19:37 资料个人空间短消息看全部作者

好像VB1.0/3.0/.NET 2005支持48*48ICO，VB4.0/6.0不支持，谁能帮忙搞一下，如何制作VB6.0支持的48*48的ICO

[广告] 安装Alexa工具条，提高轩辕排名，支持轩辕发展！


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#18

发表于 2006-11-8 12:09 资料个人空间短消息看全部作者

呵呵，最近我想用VB重写英杰传，想用类似孔明传的48*48的大单元格，但是兵在地图上，其他地方得是透明的，于是我就想到了图标。

[广告] 真诚支持说岳，携手共创辉煌


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#19

发表于 2006-11-8 12:11 资料个人空间短消息看全部作者

QUOTE:

原帖由 Maxwell 于 2006-11-8 09:03 发表
icon

A graphical representation of an object or concept; commonly used to represent minimized applications in Microsoft Windows. An icon is a bitmap with a maximum size of 32 x 32 pixels. Icon ...

晕，果然只支持32*32的ICO......

[广告] 真诚支持说岳，携手共创辉煌


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#20

发表于 2007-3-9 18:19 资料个人空间短消息看全部作者

如何用VB获得某网页的最后修改日期、时间？

[广告] 《精忠报国岳飞传完整版》火热发布


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#21

发表于 2007-4-6 13:04 资料个人空间短消息看全部作者

我这里有两个48x48gif动画（ImageReady做的），不知道用什么VB控件可以播放，而且背景还是透明的。

图片附件: [正面] 01-00.gif (2007-4-6 13:04, 1.25 K)

图片附件: [背面] 01-01.gif (2007-4-6 13:04, 1.11 K)

[广告] 真诚支持说岳，携手共创辉煌


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#22

发表于 2007-4-6 19:06 资料个人空间短消息看全部作者

我知道这种方法，但我的本意是要让gif动画放在另一个用放壁纸作背景的image控件上，且动画背景要透明。

[广告] 《精忠报国岳飞传完整版》火热发布


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#23

发表于 2007-4-6 19:08 资料个人空间短消息看全部作者

就像战棋游戏一样。

[广告] 《精忠报国岳飞传完整版》火热发布


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#24

发表于 2007-4-7 12:33 资料个人空间短消息看全部作者

哈哈，问题解决了，谢谢了。

我下了一个没注册版，自己破解汉化的，我把它发上来

附件: [AniGIF控件] AniGIF.rar (2007-4-7 12:33, 60.62 K)
该附件被下载次数 122

[广告] 真诚支持说岳，携手共创辉煌


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#25

发表于 2007-4-12 13:00 资料个人空间短消息看全部作者

还有，如何在运行时用代码改变anigif里的图片？我试着用anigif.gif=FileName,anigif.gif=loadpicture(FileName),都不行。

另外，如何用anigif调用imagelist?

[ 本帖最后由阿尔法孝直于 2007-4-12 13:04 编辑 ]

[广告] 真诚支持说岳，携手共创辉煌


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#26

发表于 2007-4-13 11:55 资料个人空间短消息看全部作者

没人知道吗？

[广告] 安装Alexa工具条，提高轩辕排名，支持轩辕发展！


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#27

发表于 2007-4-13 13:36 资料个人空间短消息看全部作者

我没有anigif手册啊

[广告] 《精忠报国岳飞传完整版》火热发布


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#28

发表于 2007-4-14 15:25 资料个人空间短消息看全部作者

如何让用户控件背景属性调用Imagelist控件？

[广告] 真诚支持说岳，携手共创辉煌


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#29

发表于 2007-4-18 12:06 资料个人空间短消息看全部作者

就是让用户控件多一个ImageList属性，该属性的值直接指向ImageList控件。（没人知道吗？）

[广告] 《精忠报国岳飞传完整版》火热发布


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#30

发表于 2007-4-19 11:44 资料个人空间短消息看全部作者

没人知道

吗？？？？？？？？？？？

[广告] 安装Alexa工具条，提高轩辕排名，支持轩辕发展！