方法：
先将要轮流显示的编辑好，建议尺寸设置为一致！并转换为BMP格式的！
打开VB,新建工程,单击窗体中外接程序=>外接程序管理器=>选择VB 资源管理器，并加载它！
将添加进VB 资源管理器里面，文件的ID依次是 101 102 103
在工程项目中添加两个窗体,分别为 Form1 Form2
在Form1窗体中添加一个Command控件, 并在窗体中添加如下代码:
Private Sub Command1_Click()
Form2Show
End Sub
在Form2窗体中添加一个Timer控件,一个PictureBox控件,并在窗体中添加如下代码:
Dim i As Integer
Private Sub Form_Load()
Timer1Interval = 2000 '延时2000ms
i = 1
End Sub
Private Sub Timer1_Timer()
Picture1Picture = LoadResPicture(100 + i, vbResBitmap)
i = i + 1
If i = 6 Then i = 1 ' 数字6是代表有6张
End Sub
这样就按照你的要求做出一个每两秒钟就自动循环更换的程序了!
年轻的男女朋友们，明天又是一个相当重要的日子：520，不知道是从啥时候开始兴起来的，虽然很多单身的人一看到这个几日就觉得闹心，但也有很大一部分单身人士等待着明天的好机会，毕竟天时地利，这么好的日子一定好好珍惜的。
表白的套路很多，但都少不了送花送礼物，作为一个程序员，搞不懂现在流行的泡泡机、小猪、重力感应车等玩具，也不想去让朋友们去送钱炫耀，毕竟真情才重要，钱就物质了。我能给各位单身粉丝们做的可能就只有分享几个表白代码了，在电脑上敲上几行代码，让她在郁闷的周一得到一个大大的惊喜，很简单，一看就会，如果现在用不到也不要紧，先收藏起来，反正这样的节日很多，以后用的时候能找到。
由简到繁，先来五个。
1、浏览器标签法
这个先用不到代码，但却十分简单实用的，首先早一步到办公室，或者趁表白对象不注意的时候在她的电脑上安装chrome浏览器，设置成默认的浏览器，把各项的同步功能打开就可以了。然后选择一个合适的时机，在你的电脑上登录账号，然后标签栏添加你想说的话，例如下图这样：
然后标签就自动同步到表白对象的浏览器上了。
2、两个按键组合成I LOVE U
这个简单的功能是利用的网页查找的功能，在网页中复制下这段文字，
然后crtrl+f，在输入框中输入9，然后回车，看下效果：
3、Python表白代码
心型和圆形椭圆的代码类似，都是由X,Y上的点构成的曲线，确定出一个表达式expression，然后就是两个for循环（for y in range；for x in range），然后逐行逐列的开始就行了。
当然有点太单调，我们可以这样操作一下，让他动起来，像这样
print('\n'join([''join([('Love'[(x-y) % len('Love')] if ((x005)2+(y01)2-1)3-(x005)2(y01)3 <= 0 else ' ') for x in range(-30, 30)]) for y in range(30, -30, -1)]))
当然还能替换表情，这个代码就不放了，需要的直接跟我要就行。
4、炫酷一点的
C语言诠释爱——为TA写下心中情，生成程序传给TA，TA点开程序就懂你。
这个开始的时候会展示出表白对象的名字，接着就是最重要的烟花部分，为了让烟花显得更加真实，需要附加重力效果和空气阻力效果，源代码图如下
如果需要源码的留下邮乡就可以了。
5、恶搞一点的
这个适合关系已经不错的那种了，看看效果
源码直接发
最后再放1个代码表白的图，同样代码无法放出来，但是可以直接用，需要的朋友下方留言。
这些代码在程序员朋友眼里一定是很简单的，而且程序员一般都不会用，因为他们的对象不需要表白，NEW一个就可以。新手可以慢慢学，才有成就感了，也会很惊喜哦。
JAVA
传说中规范的爱情代码(2010-11-10 21:37:36)
转载
标签：it
private final static DEPOSIT = 100000;
private final static FELLING = 8;
public void love(boy, girl) {
Boolean isMarried = false;
if(boy有房() &&boy有车()) {
doMarry(boy, girl);
isMarried = true;
} else if(girl愿意等()) {
while(!(boy赚钱 > DEPOSIT && girl感情 > FELLING)) {
for(int day=1; day <=365; day++) {
if( day == 情人节 ) {
if(boygivegirl(玫瑰)) {
girl感情++;
} else {
girl感情--;
}
}
if(day == girl生日) {
if( boygivegirl(玫瑰) )
{
girl感情++;
}
else {
girl感情--;
boy拼命赚钱();
}
}
}
if(boy有房() && boy有车()) {
doMarry(boy, girl);
isMarried = true;
break;
}
年龄++;
girl感情--;
}
}
if(!IsMarried) {
girlgoto(another_boy);
}
private void doMarry(boy, girl) {
boyset(nothing);
girl嫁给(boy);
}
被一个程序员表白真的是一件特别搞笑的事情。因为我的对象就是一个程序员，记得当时被一个程序员表白的是时候，我都有点愣了，他给我发了一个程序说让我点开，我就特别纳闷，是一个什么样的程序，不会是帮忙砍一刀吧，事实也不是，系统会出现一系列简单操作，指导你一步一步地操作，按照提示操作。最后屏幕就出现了一个“我爱你”520这一些列操作很简单就完成了，事后才发现他的这些举动都是经过自己一些列的设计和代码的敲定才会这个小程序的程序，这也是他表达爱的一种方式。在我看来是一件用自己的智慧创造出来的一种浪漫式的爱。
程序员的表白方式有很多种，但是只要是自己的喜欢的人，任何一种都是你喜欢的方式。因为任何一种方式都会使你快乐。
程序员的表白
Attention ！！！
再过几天，
就到了恩爱秀满天的日子了！
七夕！中国情人节！
很多单身汪都在绞尽脑汁
买什么礼物给TA？
鲜花？包包？
还是请TA一起去看场**？
用什么方式告诉对方
内心最想对TA说的话
不能跟这个哥们一样
原本想对TA说
结果嘴巴一哆嗦
说成了
每当想起你这张丑脸，我就泛起了微笑……
结果可想而知？
一开始我以为这样的悲剧
只会发生在程序员身上
因为外界都认为
程序员不浪漫、木内
但我错了
程序员的表白方式更加的特别
NO1
把以下代码保存为html后缀文件在浏览器中打开，
Happy
结果就是这样的
喜欢吗？
NO2
某公司程序员对小编说
于是就有了
有没有暖到你的内心呢？
温馨告白
程序员，也许不善言辞
但总是默默地在行动
用行动去诠释他们对你的爱
值此七夕佳节
雅腾教育祝愿
每一个程序员
和即将成为程序员的朋友
七夕快乐！
永远幸福！
这个问题你算是问对人，我一个程序员来说我就觉得这个问题问的特别好，程序员在大多数人眼中就是那种穿着白格子衬衫儿头发乱糟糟戴个眼镜整天就会在电脑面前敲代码的书呆子，其实你们这种认知是非常非常错误的程序猿也有活泼好动的好不好，你们看到的那种只是表面现象和学的都已经入迷的程序员，我感觉我就是一个特别浪漫的一个人吧然后我说说我是如何利用浪漫的方式来表白的。
我大学学的是计算机专业学的是软件，然后我现在谈的这个对象也是大一的时候认识的，当时学的是软件吗然后她学的也是软件软件我就用我自己学过的一些知识写的一个小程序，就是静态网页的一些知识做了一个表白的网页，然后把这个网页的链接设成了一个二维码，那天表白的时候我就把这个二维码送给她我说回宿舍的时候你可以看一下，然后他第二天找到我的时候（当天表白肯定是成功啦）你就跟我问说这是你做的吗，我就告诉他死啊我说怎么了，他说你真是太厉害了我们宿舍的女生都羡慕死我了，我说你喜欢吗你开心就好，就说我特别特别喜欢，所以说谁说成宣布浪漫啊一个浪漫的程序员肯定是特别招女孩儿喜欢的那种，原不浪漫网页上的表白网站都是谁做的呀难不成是你做的吗，所以说你居然也有特别浪漫的表白方式。
下面我就来说说我宿舍的一哥们而是通过那种方法来表白的，我宿舍的他也是学计算机的然后她学的是计算机网络，他也用里学过的一些知识做了一个单片儿机，然后用这个单片儿机又做了一个小的八音盒儿吧可能是，然后这个单片儿机就可以用手机去控制他去放什么歌儿随时随地就可以改我感觉特别厉害比我厉害多了，我就特别佩服和羡慕她，所以说程序员的表白都是特别高深的，不是那种简单的送送花送送东西的它可以让你眼前一亮。
#define IdYes 1002
#define IdNo 1003
#define IdStatic 1004
#define IdTimer 1005
#define Width 640
#define Height 480
#define Tick 2000
#include<windowsh>
int x,y;
RECT rdesk;
HINSTANCE hinst;
HWND hyes,hno;
BOOL quit=FALSE;
LRESULT CALLBACK WndProc(HWND hwnd,UINT Message,WPARAM wParam,LPARAM lParam)
{
HDC hdc;
PAINTSTRUCT ps;
RECT rclient;
HBRUSH hbrbkgnd;
static COLORREF c;
static BYTE r,g,b;
switch(Message)
{
case WM_TIMER:
if(IdTimer==LOWORD(wParam))
{
r=(BYTE)(rand()%256);
g=(BYTE)(rand()%256);
b=(BYTE)(rand()%256);
c=RGB(r,g,b);
InvalidateRect(hwnd,NULL,TRUE);
UpdateWindow(hwnd);
}
break;
case WM_PAINT:
hdc=BeginPaint(hwnd,&ps);
hbrbkgnd=CreateSolidBrush(c);
SelectObject(hdc,hbrbkgnd);
GetClientRect(hwnd,&rclient);
FillRect(hdc,&rclient,hbrbkgnd);
DeleteObject(hbrbkgnd);
EndPaint(hwnd,&ps);
break;
case WM_COMMAND:
switch(LOWORD(wParam))
{
case IdYes:
quit=TRUE;
MessageBox(hwnd,TEXT("回答正确，太太太好了！"),TEXT("宝贝"),MB_ICONEXCLAMATION|MB_OK);
SendMessage(hwnd,WM_CLOSE,0,0);
break;
case IdNo:
MessageBox(hwnd,TEXT("回答错误哦，我很生气呢！"),TEXT("宝贝"),MB_ICONEXCLAMATION|MB_OK);
break;
}
break;
case WM_SIZE:
case WM_MOVE:
SetWindowPos(hwnd,HWND_TOPMOST,x,y,Width,Height,SWP_SHOWWINDOW);
break;
case WM_DESTROY:
PostQuitMessage(0);
break;
case WM_CLOSE:
if(quit)
{
KillTimer(hwnd,IdTimer);
DestroyWindow(hwnd);
}
break;
case WM_CREATE:
CreateWindow(TEXT("Static"),
TEXT("请回答：做我女朋友好吗？"),
WS_CHILD|WS_VISIBLE|SS_CENTER,
200,
200,
240,
20,
hwnd,
(HMENU)IdStatic,
hinst,
NULL
);
hyes=CreateWindow(TEXT("Button"),
TEXT("好"),
WS_CHILD|WS_VISIBLE|BS_CENTER,
270,
230,
45,
20,
hwnd,
(HMENU)IdYes,
hinst,
NULL
);
hno=CreateWindow(TEXT("Button"),
TEXT("不好"),
WS_CHILD|WS_VISIBLE|BS_CENTER,
325,
230,
45,
20,
hwnd,
(HMENU)IdNo,
hinst,
NULL
);
SetTimer(hwnd,IdTimer,Tick,NULL);
break;
default:
return DefWindowProc(hwnd,Message,wParam,lParam);
}
return 0;
}
int WINAPI WinMain(HINSTANCE hInstance,HINSTANCE hPrevInstance,LPSTR lpCmdLine,int nCmdShow)
{
WNDCLASSEX wc;
HWND hwnd;
MSG msg;
hinst=hInstance;
srand(time(NULL));
memset(&wc,0,sizeof(wc));
wccbSize=sizeof(WNDCLASSEX);
wclpfnWndProc=WndProc;
wchInstance=hInstance;
wchCursor=LoadCursor(NULL,IDC_ARROW);
wchbrBackground=(HBRUSH)(COLOR_WINDOW+1);
wclpszClassName=TEXT("WindowClass");
wchIcon=LoadIcon(NULL,IDI_APPLICATION);
wchIconSm=LoadIcon(NULL,IDI_APPLICATION);
if(!RegisterClassEx(&wc))
{
MessageBox(NULL,TEXT("窗口注册失败！"),TEXT("错误"),MB_ICONEXCLAMATION|MB_OK);
return 0;
}
GetWindowRect(GetDesktopWindow(),&rdesk);
x=(rdeskright-Width)/2;
y=(rdeskbottom-Height)/2,
hwnd = CreateWindowEx(WS_EX_TOPMOST,
TEXT("WindowClass"),
TEXT("I Love You"),
WS_THICKFRAME|WS_VISIBLE,
x,
y,
Width,
Height,
NULL,NULL,hInstance,NULL);
if(NULL==hwnd)
{
MessageBox(NULL,TEXT("窗口创建失败！"),TEXT("错误！"),MB_ICONEXCLAMATION|MB_OK);
return 0;
}
while(GetMessage(&msg,NULL,0,0)>0)
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
return msgwParam;
}
截图
既然是PYTHON程序员，肯定信仰PYTHON彩蛋中的话。简洁大于复杂。
所以你要简洁一点。又要给点惊喜。如果你是男的的话，就买好鲜花，订好午餐。在她的计算机写一个python脚本。写下你的表白，然后设置成开机运行（称她不注意。），在脚本中计算好时间 ，设计好效果。然后水到渠成。
如果你是女的 向男的表白。那最好的方法就是直接跟他说就行了。现在这年代 有个媳妇就不错了。。还挑什么啊。
欢迎分享，转载请注明来源：表白网
微信扫一扫
支付宝扫一扫
评论列表（0条）