fanhappy123的个人资料

【静茹】静茹时钟找到缺少的报时录音了好消息,找到静茹报时录音了(8,9,10,11,14,15)可以替换偶先前剪辑合成的了,不过5点和24点的还是合成的,没有原始的录音啦.新加入录音下载地址:http://pickup.mofile.com/7497469191032603 或登录Mofile，使用提取码 7497469191032603 提取文件完整版下载地址:http://pickup.mofile.com/0930902954534814 或登录Mofile，使用提取码 0930902954534814 提取文件

【静茹】静茹时钟,整点有静茹的声音报时[07.21最新完整] 版本更新了,为方便各位吧友,重发一下完整的软件下载地址: http://pickup.mofile.com/3733703206332788 源代码下载地址(编程用): http://pickup.mofile.com/9449410373532183

【静茹】[通知]静茹时钟程序更新了版本更新，修正了程序存在的一些错误和不完善的地方伴随此版本发布新皮肤fish03

【静茹】我制作的静茹时钟,整点有静茹声音报时,可更换皮肤在鱼吧潜水很久了,这是我用VB6编写的静茹时钟,整点有静茹声音报时(来源于吧内 http://post.baidu.com/f?kz=146571611 ,缺少1,2,3,4,5,8,9,10,11,14,15,24点的报时,希望有这些录音的朋友能提供一下)。可更换皮肤，吧内的PS高手有空可以帮忙做些皮肤，谢谢。

vb做的图片切换效果,希望高手完善它 Private Declare Function BitBlt Lib "gdi32" (ByVal _ hDestDC As Long, ByVal X As Long, ByVal Y As Long, _ ByVal nWidth As Long, ByVal nHeight As Long, ByVal _ hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As _ Long, ByVal dwRop As Long) As LongPrivate Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As LongPrivate Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As LongPrivate Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As LongConst SRCCOPY = &HCC0020Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '随机方格显示图片Public Sub Eff_RndPane(ohDC As Long, shDC As Long, Speed As Long) Dim a(400) As Integer Dim intX As Integer Dim X As Integer Dim Y As Integer Dim iIndex As Integer For i = 0 To 400 a(i) = i Next i For i = 400 To 0 Step -1 intX = Int(i * Rnd) iIndex = a(intX) X = 0: Y = 0 If iIndex < 0 Or iIndex >= 400 Then Exit Sub End If X = iIndex \ 20: Y = iIndex Mod 20 X = X * 20: Y = Y * 20 BitBlt ohDC, X, Y, 20, 20, shDC, X, Y, _ SRCCOPY '加入延迟效果,延迟效果再不同的机器上的延迟 '时间是不一样的，可以根据需要调整Sleep Speed For j = intX To i - 1 a(j) = a(j + 1) Next j Next iEnd Sub'垂直百叶窗Public Sub Eff_VShutter(ohDC As Long, shDC As Long, sHeight As Long, sWidth As Long, winWidth As Integer, Speed As Long)'ohdc 目标设备上下文'shdc 源设备上下文' sHeight sWidth 源设备客户区高度和宽度'winWidth 百叶窗宽度'speed 速度 Dim i As Long, j As Long, m As Long, n As Long For i = 0 To (winWidth - 1) Sleep Speed For j = i To sWidth Step winWidth Call BitBlt(ohDC, j, 0, 1, sHeight, shDC, j, 0, SRCCOPY) DoEvents Next j Next iEnd Sub'水平百叶窗Public Sub Eff_HShutter(ohDC As Long, shDC As Long, sHeight As Long, sWidth As Long, winWidth As Integer, Speed As Long)'参数同垂直百叶窗 Dim i As Long, j As Long, m As Long, n As Long For i = 0 To (winWidth - 1) Sleep Speed For j = i To sHeight Step winWidth BitBlt ohDC, 0, j, sWidth, 1, shDC, 0, j, SRCCOPY DoEvents Next j Next iEnd Sub'交互百叶窗'当 winWidth 设的比较小时类似于淡出Public Sub Eff_DShutter(ohDC As Long, shDC As Long, sHeight As Long, sWidth As Long, winWidth As Integer, Speed As Long) Dim i As Long, j As Long For i = 0 To winWidth - 1 Sleep Speed For j = i To sHeight Step winWidth BitBlt ohDC, j, 0, 1, sHeight, shDC, j, 0, SRCCOPY BitBlt ohDC, 0, j, sWidth, 1, shDC, 0, j, SRCCOPY

谁有雪莲菌吗

这首歌简直就是为雪琪写的，作诛仙的插曲很棒梁静茹的《你还记得我吗》这首歌歌词中很多内容和诛仙中的场景很配，再加上梁静茹用伤感而甜美的嗓音唱出来简直非常完美，曲中一段间奏是用笛子吹的，婉转悠扬。例如歌词中第一段配这一场景{这十年的光阴，忽然间，从心间，一点一丝的慢慢翻腾起来，涌在心头。她的手，握着剑，白皙如十年一般模样，曾几何时，曾经握在手心么？他微笑了，带着淡淡的苦涩，轻轻道：“你还好么？” 陆雪琪没有回答，一个字也没有说，她的嘴唇因为用力咬着而显得苍白，夜色簇拥下的她的身影，凄清而幽美。 }还有“云掀开面纱　半遮半掩的月”那段配书中“望月台”那段也很合适。梁静茹-你还记得我吗我轻轻摸着　乱了头发不要再问我　你还好吗倦鸟飞晚霞　孤独的回家没有人看见路边花枫叶片片的落下　染红天边的彩霞痴痴的望着远远的地方人在茫茫的天涯　回忆渐渐溶化我想你已经忘记了谁在牵挂云掀开面纱　半遮半掩的月我看见它正在流泪若说不想他　是害怕难过吧这就是爱的代价枫叶片片的落下　染红天边的彩霞这些年你过得还好吗若说这是个惩罚　这辈子都别想啦至少在梦里让我跟你说句话你还会记得我吗　记得我吗　我还在这里你知道我在等吗　还在等吗　好想你你还会记得我吗　记得我吗　我还是你的我终於看见你了　看见你了别再离去http://www.st020.cn/play/120941.Htm

【静茹】"不想睡"的原唱是什么谁知道"不想睡的"原唱是什么,歌曲名,歌手,在哪里下载,谢谢

谁有 Windows 32位消息及附加信息的详细介绍和用法谢谢谁有 Windows 32位消息及附加信息的详细介绍和用法请发一个,谢谢