在桌面上显示很多玫瑰花的一个vb小程序代码?

在桌面上显示很多玫瑰花的一个vb小程序代码?,第1张

桌面涂鸦VB程序代码

Option Explicit

Public Type POINTAPI

x As Long

y As Long

End Type

Public nXn As Long

Public gfqw As Long

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Public sbsb As POINTAPI

Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long

Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lparam As Any) As Long

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, ByVal lpvSource As Long, ByVal cbCopy As Long)

Public Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Public Type MOUSEMSGS

x As Long 'x座标

y As Long 'y座标

a As Long

b As Long

time As Long 'Window运行时间

End Type

Public Const WH_MOUSE_LL = 14

Public Const MB_OK = &H0&

Public Const MB_ICONASTERISK = &H40&

Public Type MSLLHOOKSTRUCT

pt As POINTAPI

mouseData As Long

Flags As Long

time As Long

dwExtraInfo As Long

End Type

Public hHook As Long

'-----------------------------------------

'消息

Public Const HC_ACTION = 0

Public Const HC_SYSMODALOFF = 5

Public Const HC_SYSMODALON = 4

'鼠标消息

Public Const WM_MOUSEMOVE = &H200

Public Const WM_LBUTTONDOWN = &H201

Public Const WM_LBUTTONUP = &H202

Public Const WM_LBUTTONDBLCLK = &H203

Public Const WM_RBUTTONDOWN = &H204

Public Const WM_RBUTTONUP = &H205

Public Const WM_RBUTTONDBLCLK = &H206

Public Const WM_MBUTTONDOWN = &H207

Public Const WM_MBUTTONUP = &H208

Public Const WM_MBUTTONDBLCLK = &H209

Public Const WM_MOUSEACTIVATE = &H21

Public Const WM_MOUSEFIRST = &H200

Public Const WM_MOUSELAST = &H209

Public Const WM_MOUSEWHEEL = &H20A

Public Declare Function GetActiveWindow Lib "user32" () As Long

Public MouseMsg As MOUSEMSGS '鼠标消息结构体

Public lHook As Long '勾子句柄

Public sbss As POINTAPI

'鼠标钩子函数

Public Function HookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lparam As Long) As Long

Dim typMHS As MSLLHOOKSTRUCT, pt As POINTAPI

If wParam = WM_MOUSEMOVE Then

Call CopyMemory(typMHS, ByVal lparam, LenB(typMHS))

pt = typMHSpt

DebugPrint "mouse Cursor at " + CStr(ptx) + "," + CStr(pty)

GetCursorPos sbsb

End If

If wParam = WM_LBUTTONDOWN Then

Form1Timer2Enabled = True

nXn = 2

GetCursorPos sbss

End If

If wParam = WM_RBUTTONDOWN Then

End If

If wParam = WM_LBUTTONUP Then '按下中间记下这个值,然后调用一个过程,我的鼠标没有中键,自己测试一下

Form1Timer2Enabled = False

HookProc = CallNextHookEx(hHook, nCode, wParam, lparam)

End If

End Function

'卸载勾子

Public Sub StopHook()

If lHook <> 0 Then lHook = UnhookWindowsHookEx(lHook)

End Sub

'===================== 模块结束 ========================

Public Sub FreeHook()

If hHook <> 0 Then

Call UnhookWindowsHookEx(hHook)

hHook = 0

End If

End Sub

Public Sub EnableHook()

If hHook = 0 Then

hHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf HookProc, ApphInstance, 0)

End If

End Sub

玫红色象征着典雅和明快。

玫红色来源于玫瑰的颜色。玫瑰被誉为美的化身,而被用来命名色彩,在14世纪的文献就开始有记载,历史十分悠长。玫瑰红的色彩透彻明晰,既包含着孕育生命的能量,又流露出含蓄的美感,华丽而不失典雅。

玫红色象征着典雅和明快。它搭配同系色和类似的亮色,制造出热门而活泼的效果;侵害的条块越多动感越强。而绿色系的色彩给人玫瑰花叶的感觉,搭配起来很协调。通过使用补色的蓝色,与其搭配,制造出水流动的效果,衬出了动感。

橙色,最健康的颜色

橙色衣服利于交友。不同颜色的着装给人留下的印象不同。日本研究发现,橙色着装可以给人带来活泼、爽朗、容易亲近的感觉,聚会、交流会上穿件橙色衣服能吸引他人与你交谈,有助于给人留下美好的印象。

老人多穿橙色,心情更舒畅。中国健康教育中心专家沈雁英教授指出,很多老年朋友的衣物都以黑色、灰色等深沉的颜色为主,这样穿着的确稳妥,但却少了活力和精气神儿。老年朋友若能穿件橙色的衣服,利于摆脱焦躁烦闷和情绪低落,给生活注入生机。

性格保守的老人如果实在不愿穿上橙色的衣服,试着戴顶橙色的帽子、佩戴橙色的首饰,也能在不知不觉中调节情绪。建议白色、黑色和橙色搭配比较好。白色可以提升橙色的亮度,给人健康活泼、活力四射的感觉。而黑色与橙色搭配,不仅非常打眼,还不失沉稳、庄重。

java jsp的啊

第一个:把如下代码加入<body>区域中,设置文字的话你自己弄吧

<style>

drop { position: absolute; width: 3; filter: flipV(), flipH(); font-size: 40; color: blue }

</style>

<script language="javascript">

snow = false; // false-rain; true-snow

snowsym = " " //These are the symbols for each

rainsym = " " //You can put images here

howmany = 15 //How many drops/snowflakes

/Do not need to change anything below/

if(snow){sym = snowsym; speed=1; angle=10; drops=howmany}

else{sym = rainsym; speed=50; drops=howmany; angle=6}

movex = -speed/angle; movey = speed; count = 0;

function moverain(){

for(move = 0; move < drops; move++){

xx[move]+=movex; yy[move]+=mv[move];

hmm = Mathround(Mathrandom()1);

if(xx[move] < 0){xx[move] = maxx+10;}

if(yy[move] > maxy){yy[move] = 10;}

drop[move]left = xx[move]

drop[move]top = yy[move]+documentbodyscrollTop;

}setTimeout('moverain()','1')}

</script>

<script language="javascript">

if (documentall){

drop = new Array(); xx = new Array(); yy = new Array(); mv = new Array()

ly = "documentall[\'"; st = "\']style"

for(make = 0; make < drops; make++){

documentwrite('<div id="drop'+make+'" class=drop>'+sym+'</div>');

drop[make] = eval(ly+'drop'+make+st);

maxx = documentbodyclientWidth-40

maxy = documentbodyclientHeight-40

xx[make] = Mathrandom()maxx;

yy[make] = -100-Mathrandom()maxy;

drop[make]left = xx[make]

drop[make]top = yy[make]

mv[make] = (Mathrandom()5)+speed/16;

drop[make]fontSize = (Mathrandom()10)+20;

if(snow){col = 'white'}else{col = 'blue'}

drop[make]color = col;

}

windowonload=moverain

}

</script>

第二种:建议你用这个,你可以在加几个

脚本说明:

第一步:把如下代码加入<body>区域中

<script language="JavaScript">

<!--

Pic=new Array('photo/04261gif','photo/04262gif','photo/04263gif','photo/04264gif','photo/04265gif')

//Smoothness of animation depends on the number of images and they're file size

MaxSpeed=5;

MinSpeed=2;

load = new Array()

for(i=0; i < Piclength; i++)

{

load[i] = new Image();

load[i]src = Pic[i];

}

amount=Piclength;

ns=(documentlayers)1:0;

if (ns){

for (i=0; i < amount; i++){

documentwrite("<LAYER NAME='netscape"+i+"' LEFT=0 TOP=0><img name='netpics' src="+load[i]src+"></LAYER>")}

}

else{

documentwrite("<div style='position:absolute;top:0px;left:0px'><div style='position:relative'>");

for (i=0; i < amount; i++){

documentwrite("<img id='explorer' src='"+load[i]src+"' style='position:absolute;top:0px;left:0px'>")}

documentwrite("</div></div>")

}

VB=0;

HB=0;

R=new Array();

PB=new Array();

RD=new Array();

Y=new Array();

X=new Array();

D=new Array();

SP=new Array();

BY=new Array();

BX=new Array();

for (i=0; i < amount; i++){

Y[i]=10;

X[i]=10;

D[i]=Mathfloor(Mathrandom()70+10);

SP[i]=Mathfloor(Mathrandom()MaxSpeed+MinSpeed);

}

function Curve(){

plusMinus=new Array(1,-1,2,-2,3,-3,0,1,-1,0,5,-5)

for (i=0; i < amount; i++){

R[i]=Mathfloor(Mathrandom()plusMinuslength);

RD[i]=plusMinus[R[i]];

}

setTimeout('Curve()',1500);

}

function MoveRandom(){

var H=(documentlayers)windowinnerHeight:documentbodyclientHeight;

var W=(documentlayers)windowinnerWidth:documentbodyclientWidth;

var YS=(documentlayers)windowpageYOffset:documentbodyscrollTop;

var XS=(documentlayers)windowpageXOffset:documentbodyscrollLeft;

for (i=0; i < amount; i++){

BY[i]=-load[i]height;

BX[i]=-load[i]width;

PB[i]=D[i]+=RD[i];

y = SP[i]Mathsin(PB[i]MathPI/180);

x = SP[i]Mathcos(PB[i]MathPI/180);

if (D[i] < 0) D[i]+=360;

Y[i]+=y;

X[i]+=x;

VB=180-D[i];

HB=0-D[i];

//Corner rebounds! not necessary but looks nice

if ((Y[i] < 1) && (X[i] < 1)) {Y[i]=1;X[i]=1;D[i]=45;}

if ((Y[i] < 1) && (X[i] > W+BX[i])) {Y[i]=1;X[i]=W+BX[i];D[i]=135;}

if ((Y[i] > H+BY[i]) && (X[i] < 1)) {Y[i]=H+BY[i];X[i]=1;D[i]=315;}

if ((Y[i] > H+BY[i]) && (X[i] > W+BX[i])) {Y[i]=H+BY[i];X[i]=W+BX[i];D[i]=225;}

//Edge rebounds!

if (Y[i] < 1) {Y[i]=1;D[i]=HB;}

if (Y[i] > H+BY[i]) {Y[i]=H+BY[i];D[i]=HB;}

if (X[i] < 1) {X[i]=1;D[i]=VB;}

if (X[i] > W+BX[i]) {X[i]=W+BX[i];D[i]=VB;}

var layer=(documentlayers)documentlayers['netscape'+i]:explorer[i]style;

layertop=Y[i]+YS;

layerleft=X[i]+XS;

}

setTimeout('MoveRandom()',10);

}

function sTaRt(){Curve();MoveRandom()}

//-->

</script>

第二步:

把如下代码加入<body>区域中<body bgcolor="#ffffff" onLoad="if (documentall||documentlayers) sTaRt()">

第三个:这个是文字的显示,你自己决定采用上面那个后加进去

脚本说明:

第一步:把如下代码加入<body>区域中

<script LANGUAGE="JavaScript">

function init() {

setTimeout("shake(3)",1000);

// setTimeout("thisfocus()",4000);

setTimeout("shake(3)",4100);

}

function shake(n) {

if (selfmoveBy) {

for (i = 10; i > 0; i--) {

for (j = n; j > 0; j--) {

selfmoveBy(0,i);

selfmoveBy(i,0);

selfmoveBy(0,-i);

selfmoveBy(-i,0);

}

}

}

setTimeout("shake(5)", 5000);

}

</script>

<script language="JavaScript">

<!-- begin

var max=0;

function textlist()

{

max=textlistargumentslength;

for (i=0; i<max; i++)

this[i]=textlistarguments[i];

}

tl=new textlist

(

"李鹏会见安得拉邦首席部长奈杜",

"述评:发展新世纪睦邻友好合作关系",

"我国外汇储备已达一千六百五十六亿美元 ",

"人民日报18日社论:推进新的农业科技革命 ",

"“神舟二号”飞船轨道舱留轨继续进行空间科学探测试验",

"联合国证实贫铀弹含有铀-236",

"罗伯逊称北约将继续东扩",

"巴方指责以色列暗杀其高级官员 ",

"亚太议会论坛第九届年会在智利开幕",

"专电:布什宣誓就职典礼准备就绪",

"专电:布什宣誓就职典礼准备就绪 "

);

var x=0; pos=0;

var l=tl[0]length;

function textticker()

{

documenttickformtickfieldvalue=tl[x]substring(0,pos)+"_";

if(pos++==l)

{

pos=0;

setTimeout("textticker()",1000);

x++;

if(x==max) x=0; l=tl[x]length;

}

else

setTimeout("textticker()",50);

}

// end -->

</script>

<form name="tickform"><input type=text name="tickfield" size=33></form>

第二步:把如下代码加入<body>区域中<body bgcolor=#000000" onload="init();textticker()">

能把你的就这么多了 看你的了

欢迎分享,转载请注明来源:浪漫分享网

原文地址:https://hunlipic.com/langman/3469453.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-08-15
下一篇2023-08-15

发表评论

登录后才能评论

评论列表(0条)

    保存