怎么样用VB来做一个生日祝福的程序，最好能漂亮有新意的哦

要会如何隐藏程序，要会api绘图，要会高数，最后面要回打字！

首先一运行，程序隐藏，出现一段文字，文字周边有分红的韵不断的若隐若现

就这样，关键在于字，软件只是起到氛围效果

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Const WS_EX_LAYERED = &H80000

Private Const GWL_EXSTYLE = (-20)

Private Const LWA_COLORKEY = &H1

Private Sub Form_Load()

MeBorderStyle = 0

MeBackColor = vbBlue 'vbBlue

MeWindowState = 2

Dim rtn As Long

rtn = GetWindowLong(hwnd, GWL_EXSTYLE)

rtn = rtn Or WS_EX_LAYERED

SetWindowLong hwnd, GWL_EXSTYLE, rtn

SetLayeredWindowAttributes hwnd, vbBlue, 0, LWA_COLORKEY 'vbBule

End Sub

加上这堆代码以后，随便在上面加几个生日快乐的image

#include <reg51h>

sbit speaker=P1^2;

unsigned char timer0h,timer0l,time;

//生日歌

code unsigned char sszymmh[]={5,1,1, 5,1,1, 6,1,2, 5,1,2, 1,2,2, 7,1,4,

5,1,1, 5,1,1, 6,1,2, 5,1,2, 2,2,2, 1,2,4,

5,1,1, 5,1,1, 5,2,2, 3,2,2, 1,2,2, 7,1,2, 6,1,2,

4,2,1, 4,2,1, 3,2,2, 1,2,2, 2,2,2, 1,2,4};

// 音阶频率表 高八位

code unsigned char FREQH[]={

0xF2,0xF3,0xF5,0xF5,0xF6,0xF7,0xF8,

0xF9,0xF9,0xFA,0xFA,0xFB,0xFB,0xFC,0xFC, //1,2,3,4,5,6,7,8,i

0xFC,0xFD,0xFD,0xFD,0xFD,0xFE,

0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0xFF,

} ;

// 音阶频率表 低八位

code unsigned char FREQL[]={

0x42,0xC1,0x17,0xB6,0xD0,0xD1,0xB6,

0x21,0xE1,0x8C,0xD8,0x68,0xE9,0x5B,0x8F, //1,2,3,4,5,6,7,8,i

0xEE,0x44, 0x6B,0xB4,0xF4,0x2D,

0x47,0x77,0xA2,0xB6,0xDA,0xFA,0x16,

};

void delay(unsigned char t)

{

unsigned char t1;

unsigned long t2;

for(t1=0;t1<t;t1++)

{

for(t2=0;t2<8000;t2++)

{

;

}

}

TR0=0;

}

void t0int() interrupt 1

{

TR0=0;

speaker=!speaker;

TH0=timer0h;

TL0=timer0l;

TR0=1;

}

void song()

{

TH0=timer0h;

TL0=timer0l;

TR0=1;

delay(time);

}

void main(void)

{

unsigned char k,i;

TMOD=1; //置CT0定时工作方式1

EA=1;

ET0=1;//IE=0x82 //CPU开中断,CT0开中断

while(1)

{

i=0;

while(i<75){ //音乐数组长度 ，唱完从头再来

k=sszymmh[i]+7sszymmh[i+1]-1;

timer0h=FREQH[k];

timer0l=FREQL[k];

time=sszymmh[i+2];

i=i+3;

song();

}

}

}

'═════代═══码═══开═══始═════

do

name=inputbox("请输入你的姓名：")

if name="" or name<>"张三" then

msgbox "你输入的姓名不正确，请重新输入"

else

exit do

end if

loop

msgbox name&"祝你生日快乐！",64,"温馨提示"

'═════代═══码═══结═══束═════

请将代码中“张三”改为你需要的名字，注意不要丢掉了代码中的英文引号。

以上就是关于怎么样用VB来做一个生日祝福的程序，最好能漂亮有新意的哦全部的内容，包括:怎么样用VB来做一个生日祝福的程序，最好能漂亮有新意的哦、急求一个VB生日快乐的小程序，在线等，很急、求： 用51单片机c语言 *** 作使蜂鸣器奏出“祝你生日快乐”音乐的全部程序！等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！