帮我编一个vb程序 用来表白的
应室友要求,改了一点点,顺便再发上来:
在窗体上放一个label1,然后把原来所有的代码删掉,复制这里代码进去就可以了.嘿嘿,你要先试一下效果喔
错误?!不是说我的吧....你有没有先在窗口上放一个label1?
PrivateSubForm_Load()
Dimi&,k&
Dimm()AsByte
DimprewAsLong,prehAsLong,pretAsLong
DimhAsLong,wAsLong
ScreenDC=GetWindowDC(0)
ScreenW=Screen.Width/Screen.TwipsPerPixelX
ScreenH=Screen.Height/Screen.TwipsPerPixelY
ReDimm(ScreenW/3,ScreenH/3)
Label1.Visible=False
Me.ScaleMode=3
Me.Show
pret=Me.Top:prew=Me.Width:preh=Me.Height
Me.MoveMe.Left,Screen.Height*2,Screen.Width/3,Screen.Height/3
DoEvents
Me.AutoRedraw=True
Label1.AutoSize=True
Label1=YourWord
Label1.Font.Size=100
Label1.Font.Size=Label1.Font.Size*(Me.ScaleWidth/Label1.Width)*borderScale
Label1.Font.Size=Label1.Font.Size*(Me.ScaleWidth/Label1.Width)*BorderScale
Me.FontName=Label1.FontName
Me.FontSize=Label1.FontSize
Me.ForeColor=0
CurrentX=(Me.ScaleWidth-Label1.Width)/2
CurrentY=(Me.ScaleHeight-Label1.Height)/2
PrintLabel1
Forh=1ToScreenH/3
Forw=1ToScreenW/3
IfPoint(w,h)=0Then
m(w,h)=1
EndIf
Nextw
Nexth
SNOW_MAX=ScreenW*ScreenH\SnowScale
ReDimSnow&(SNOW_MAX,1),Last&(SNOW_MAX)
Randomize
Fori=0ToSNOW_MAX
NewSnowi
Snow(i,1)=-Rnd*ScreenH
Me.MoveMe.Left,pret,prew,preh
Me.WindowState=1
OnErrorResumeNext
Fori=0ToSNOW_MAX
SetPixelScreenDC,Snow(i,0),Snow(i,1),Last(i)
Snow(i,0)=Snow(i,0)+Rnd*FALL_SPEED-FALL_SPEED/2
Snow(i,1)=Snow(i,1)+Rnd*FALL_SPEED
IfSnow(i,0)<0OrSnow(i,0)>ScreenWOrSnow(i,1)>ScreenHThen
NewSnowi
k=Last(i)
Last(i)=GetPixel(ScreenDC,Snow(i,0),Snow(i,1))
SetPixelScreenDC,Snow(i,0),Snow(i,1),SnowColor
Ifm(Snow(i,0)/3,Snow(i,1)/3)Then
IfRnd
IfRnd<0.5ThenLast(i)=WordColor1ElseLast(i)=WordColor2
EndIf
EndIf
EndIf
SleepFALL_Interval&
DoEvents
IfmyendThenExitSub
EndSub
PrivateSubNewSnow(i&)
Snow(i,0)=Rnd*ScreenW
Snow(i,1)=0
Last(i)=GetPixel(ScreenDC,Snow(i,0),0)
EndSub
PrivateFunctionColorDec(ByValColor1&,ByValColor2&)AsLong
DimR1%,G1%,B1%
DimR2%,G2%,B2%
GetRGBColor1,R1,G1,B1
GetRGBColor2,R2,G2,B2
ColorDec=Abs(R1-R2)+Abs(G1-G2)+Abs(B1-B2)
EndFunction
PrivateSubGetRGB(ByValColor&,ByRefr%,ByRefg%,ByRefb%)
r=(ColorMod256)
b=(Int(Color\65536))
g=((Color-(b*65536)-r)\256)
EndSub
PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)
myend=True
DoEvents
DoEvents
EndSub
表白代码大全可复制免费
表白代码大全可复制免费
表白代码大全可复制免费，用代码表白是一件非常浪漫的事情，只需要短短的一行代码,就可以制作生活中的惊喜和小浪漫，但是设置代码是需要技巧的，以下分享表白代码大全可复制免费。
表白代码大全可复制免费1
1.发送xoxO(会出现满屏亲亲)
2.发送mimanchi(会出现满屏小星星)
3.发送ohh(翻译:留在我身边)
4.发送chwillmitdirSwim(翻译:我想和你在一起)
5.发送Voceemeubebe(翻译:你是我的宝贝)
6.发送RUYDUAautrinuU(翻译我只喜欢你)
7.发送loveatfirstsight(翻译:—见钟情)
8.发送Wewillbehappy(我们会幸福)
9.发送missu(会出现星星雨)
10.发送u621u7231u460(翻译:爱你)
11.发送u5728u4e0Ou8d7Nu5427(翻译在一起)
12.发送Miljipouzejednuosobu,taosobajstevy.我只爱一个人,那个人就是你)
13.发送yaxyou(翻译我跟你说)发送yyyaxyou翻译我喜欢你)发送yoxyou!(我爱死你了)
14.n55iw!(倒过来是imissyou我想你。)
15.我想要两颗西柚("1wanttoseeyou"我想要见你)
16.962464(用九宫格输入试试)
17.Mg+Znso4==MgSo4+zn(你的镁夺走了我的锌）
18.Teechodemenos(微信翻译:我想你)
19.双木非林田下有心(相思)
20.n.nggui(倒过来看就是ineedyoy我需要你)
表白代码大全可复制免费2
程序员的表白代码
第一条语言：Java代码翻译：直到死之前，每天爱你多一点代码：while(lifeend){love++;}
第二条语言：C语言代码翻译：IcannotsayHellototheWorldwithoutu.代码：#incldestdio.hintmain(){printf(HelloWorldn);retrn0;}//IcannotsayHellototheWorldwithoutu.
第三条语言：python代码翻译：山无陵，江水为竭，冬雷震震，夏雨雪，天地合，乃敢与君绝！代码：if(mountain.arris==none):if(river.water==None):if(winter.thunder==True):if(summer.snow==
True):if(sky.height==ground.height):i.withyou=Falseelse:i.withyou=True.
第四条语言：Erlang代码代码翻译：深圳相遇，至死不渝代码：-module(you_and_me).-expoRT([start/1]).-record(person,{name,address,status}).start(Name)-one_world(Name).one_world(Name)keep_to_love_you(Person).say_goodbye(Person)-io:format(~p:seeyounextworld!~n,[Person#person.name]).see_you_next_world(Name)-one_world(Name).
第五条语言：Java语言代码翻译：爱你到天荒地老代码：while(!world.destroy){System.out.println(iloveyou);}
表白代码大全可复制免费3
语言：Java
代码翻译：
直到死之前，每天爱你多一点
while(life
love++;
//IcannotsayHellototheWorldwithoutu.
语言：python
代码翻译：
山无陵，江水为竭，冬雷震震，夏雨雪，天地合，乃敢与君绝！
if(mountain.arris==None):
if(river.water==None):
if(winter.thunder==True):
if(summer.snow==True):
if(sky.height==ground.height):
i.withyou=False
else:
i.withyou=True
one_world(Name).
语言：Java语言
代码翻译：
爱你到天荒地老
while(!world.destroy){
System.out.println("iloveyou");
语言：C语言
代码翻译：
两隔的`世界;
无名的信件;
短暂的停留;
长久的记忆;
说这么多，只是想说：我想你了。
#include
intmain()
doubleworld;
unsignedletter;
shoRTStay;
longmemories;
printf("Imissyou.");
return0;
