文件名称:卡通时钟源码
文件大小:179KB
文件格式:PBL
更新时间:2020-12-09 03:57:30
时钟源码
界面非常漂亮的卡通时钟。。。。。。 integer li_xx,li_yy //f_central_window(this) //gm_new_menu.m_main.m_position.m_right_top.triggerevent(clicked!) gm_new_menu.m_main.m_position.m_central.triggerevent(clicked!) integer li_day li_day = DayNumber(today()) choose case li_day case 1 uo_1.st_13.text = "星期日" case 2 uo_1.st_13.text = "星期一" case 3 uo_1.st_13.text = "星期二" case 4 uo_1.st_13.text = "星期三" case 5 uo_1.st_13.text = "星期四" case 6 uo_1.st_13.text = "星期五" case 7 uo_1.st_13.text = "星期六" end choose this.title=gs_title li_xx=unitstopixels(this.uo_1.oval_1.width,xunitstopixels!) li_yy=unitstopixels(this.uo_1.oval_1.height,yunitstopixels!) SetWindowRgn(handle(this),CreateEllipticRgn(1,1,li_xx,li_YY),true) wf_add_icon() open(w_date) timer(1)