pb9 日历控件（源码）

已于 2023-04-28 11:00:45 修改
阅读量2.5k 收藏 7
点赞数
分类专栏： PowerBuilder 文章标签： pb 日历
于 2020-10-12 09:07:37 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_37914760/article/details/109021103
版权

一、效果图：

X【关闭日历】 、<【上一月份】、>【下一月份】、≤ 【上一年】、≥ 【下一年】、今天：2020/10/20 【 显示今天日期 】

二、使用方法:

1）.vo_calendar对象放到需要显示的窗口上

2）.获取vo_calendar对象日期：控件名称.text

3）.如被其它控件遮住；可以在窗体open事件中使用 控件名称.setposition(ToTop!)  使日历显示在最上层

三、源码

1、创建Custom Visual对象，命名为vo_calendar

2、源码

forward
global type vo_calendar from userobject
end type
type st_1 from statictext within vo_calendar
end type
type dw_1 from datawindow within vo_calendar
end type
type st_2 from statictext within vo_calendar
end type
type em_date from editmask within vo_calendar
end type
end forward

global type vo_calendar from userobject
integer width = 995
integer height = 1053
long backcolor = 16777215
string text = "none"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
st_1 st_1
dw_1 dw_1
st_2 st_2
em_date em_date
end type
global vo_calendar vo_calendar

type variables
long il_headerColor = rgb(84,110,122),il_Color = rgb(166,166,166)
int ii_Days[12] 

string is_arrDdate[6,7],is_arrNull[6,7]
string is_modifyLeft,is_modifyRight
boolean ib_bool = false
long il_DWHeight
end variables

forward prototypes
public subroutine of_draw_day (integer ai_year, integer ai_month)
public subroutine of_set_ii_days (integer ai_year)
public subroutine of_selected_day ()
public subroutine of_visible (boolean ab_bool)
end prototypes

public subroutine of_draw_day (integer ai_year, integer ai_month);//==================
//绘制日历，同时表格日期存储数组
//===================
int li_insertrow,li_for,li_weet,li_for2,li_for3
int li_number,li_val = 0,li_w,li_mod,ll_row,li_month,li_year
string ls_value,ls_ifCon
string ls_ifCon1='', ls_ifCon2='', ls_ifCon3='', ls_ifCon4='', ls_ifCon5='', ls_ifCon6='', ls_ifCon7=''
//long ll_arrVlaueR[]
string ls_arrVlaue[],ls_Null[]
any lany_arrVlaueR[]
date ldt_date


of_set_ii_days(ai_year)

is_arrDdate = is_arrNull

dw_1.reset( )

for li_for = 1 to 6
	dw_1.insertrow(0)
	lany_arrVlaueR[li_for] = ls_Null
next

ldt_date = date(string(ai_year)+'-'+string(ai_month)+'-01')
dw_1.object.ldate[1] = ldt_date
dw_1.object.t_years.text =string(ldt_date,'yyyy年mm月')

li_insertrow = 1
for li_for = 1 to ii_Days[ai_month]
	li_weet = daynumber(date(string(ai_year)+'-'+string(ai_month)+'-'+string(li_for)+''))
	if li_weet = 1 then 
		li_weet = 7
	else
		li_weet = li_weet -1
		if li_weet = 1 and li_for <> 1 then li_insertrow  = li_insertrow + 1
	end if 
	dw_1.setitem(li_insertrow,'d_'+string(li_weet), string(li_for))
	is_arrDdate[li_insertrow ,li_weet] = string(date(string(ai_year)+'-'+string(ai_month)+'-'+string(li_for)),'yyyy-mm-dd')

	//显示当前月份上月和下月日期
	if li_for = 1 then
		for li_for2 = li_weet -1 to 1 step -1
			if ai_month -1 <=0 then
				li_month = 12
				li_year = ai_year -1
			else
				li_year = ai_year
				li_month = ai_month -1
			end if			
			ls_value = string(ii_Days[li_month] -(li_weet - li_for2 - 1))
			dw_1.setitem(li_insertrow,'d_'+string(li_for2), ls_value)
			is_arrDdate[li_insertrow ,li_for2] = string(date(string(li_year)+'-'+string(li_month)+'-'+ls_value),'yyyy-mm-dd')	
			ls_arrVlaue[upperbound(ls_arrVlaue) + 1] = ls_value
		next
		lany_arrVlaueR[li_insertrow] = ls_arrVlaue
	elseif ii_Days[ai_month] = li_for then
		ls_value = '0'
		ls_arrVlaue = ls_Null
		
		if li_weet = 6 then //
			li_number = (li_insertrow ) * 7 
		else
			li_number = (li_insertrow ) * 7 -(6 -li_weet)
		end if

		for li_for2 = li_number to 42
			ls_value = string(long(ls_value) + 1)
			li_mod = mod(li_for2,7)
			ll_row = int(long(li_for2)/7)  

			if li_mod = 0 then 
				li_mod = 7
			else
				ll_row  = ll_row + 1
			end if
			
			//if ll_row = 6 then ls_arrVlaue = ls_Null
			
			if ai_month + 1 > 12 then
				li_month =1 
				li_year = ai_year +1
			else
				li_year = ai_year
				li_month = ai_month + 1
			end if
			
			dw_1.setitem(ll_row,'d_'+string(li_mod), ls_value)
			is_arrDdate[ll_row,li_mod] = string(date(string(li_year)+'-'+string(li_month)+'-'+string(ls_value)),'yyyy-mm-dd')
			
			ls_arrVlaue[upperbound(ls_arrVlaue) + 1] = ls_value
			lany_arrVlaueR[ll_row] = ls_arrVlaue
		next
	end if
next



//拼接dw表达式
for li_for = 1 to  upperbound(lany_arrVlaueR) 
	ls_arrVlaue = lany_arrVlaueR[li_for]
	if upperbound(ls_arrVlaue) > 0 then
		for li_for3 = 1 to  7
			ls_ifCon = ''
			for li_for2 = 1 to  upperbound(ls_arrVlaue) 
				ls_value = ls_arrVlaue[li_for2]
				if ls_ifCon = '' then
					ls_ifCon = "(d_"+string(li_for3)+" = '"+ls_value+"'"
				else
					ls_ifCon = ls_ifCon + "or d_"+string(li_for3)+" = '"+ls_value+"'"
				end if
			next
			
			if ls_ifCon <> '' then 
				ls_ifCon = ls_ifCon + ') and (getrow()='+string(li_for)+')'
				if li_for3 = 1 then
					if ls_ifCon1 = '' then
						 ls_ifCon1= "("+ls_ifCon
					else
						ls_ifCon1 =ls_ifCon1 + " or ("+ls_ifCon
					end if
					ls_ifCon1 = ls_ifCon1+")"
					
				elseif li_for3 = 2 then
					if ls_ifCon2 = '' then
						 ls_ifCon2= "("+ls_ifCon
					else
						ls_ifCon2 =ls_ifCon2 + " or ("+ls_ifCon
					end if
					ls_ifCon2 = ls_ifCon2+")"
					
				elseif li_for3 = 3 then
					if ls_ifCon3 = '' then
						 ls_ifCon3= "("+ls_ifCon
					else
						ls_ifCon3 =ls_ifCon3 + " or ("+ls_ifCon
					end if
					ls_ifCon3 = ls_ifCon3+")"
					
				elseif li_for3 = 4 then
					if ls_ifCon4 = '' then
						 ls_ifCon4= "("+ls_ifCon
					else
						ls_ifCon4 =ls_ifCon4 + " or ("+ls_ifCon
					end if
					ls_ifCon4 = ls_ifCon4+")"
				elseif li_for3 = 5 then
					if ls_ifCon5 = '' then
						 ls_ifCon5= "("+ls_ifCon
					else
						ls_ifCon5 =ls_ifCon5 + " or ("+ls_ifCon
					end if
					ls_ifCon5 = ls_ifCon5+")"
				elseif li_for3 = 6 then
					if ls_ifCon6 = '' then
						 ls_ifCon6= "("+ls_ifCon
					else
						ls_ifCon6 =ls_ifCon6 + " or ("+ls_ifCon
					end if
					ls_ifCon6 = ls_ifCon6+")"
				elseif li_for3 = 7 then
					if ls_ifCon7 = '' then
						 ls_ifCon7= "("+ls_ifCon
					else
						ls_ifCon7 =ls_ifCon7 + " or ("+ls_ifCon
					end if
					ls_ifCon7 = ls_ifCon7+")"
				end if
			end if
		next
	end if
next

dw_1.modify("d_"+string(1)+".color =~"0~tif("+ls_ifCon1+" ,"+string(il_Color)+",0)~"")
dw_1.modify("d_"+string(2)+".color =~"0~tif("+ls_ifCon2+" ,"+string(il_Color)+",0)~"")
dw_1.modify("d_"+string(3)+".color =~"0~tif("+ls_ifCon3+" ,"+string(il_Color)+",0)~"")
dw_1.modify("d_"+string(4)+".color =~"0~tif("+ls_ifCon4+" ,"+string(il_Color)+",0)~"")
dw_1.modify("d_"+string(5)+".color =~"0~tif("+ls_ifCon5+" ,"+string(il_Color)+",0)~"")
dw_1.modify("d_"+string(6)+".color =~"0~tif("+ls_ifCon6+" ,"+string(il_Color)+",0)~"")
dw_1.modify("d_"+string(7)+".color =~"0~tif("+ls_ifCon7+" ,"+string(il_Color)+",0)~"")

//messagebox("",dw_1.Describe("datawindow.syntax"))


end subroutine

public subroutine of_set_ii_days (integer ai_year);//==================================
//当前年份，每月天数
//=========================
ii_Days = {31,28,31,30,31,30,31,31,30,31,30,31}

If ( (Mod(ai_year,4) = 0 And Mod(ai_year,100) <> 0) Or (Mod(ai_year,400) = 0) ) Then
	ii_Days[2] = 29
End If

end subroutine

public subroutine of_selected_day ();//========================================
//文本框日期day,默认背景色
//==============================
int li_years,li_month,li_day
date ldt_date
int li_for ,li_for2

ldt_date = date(em_date.text)
if ldt_date <> date('1900-01-01') then
	for li_for =1 to 7
		dw_1.modify("d_"+string(li_for)+".background.color =536870912")
	next
	
	for li_for =1 to 6
		for li_for2 = 1 to 7
			if is_arrDdate[li_for,li_for2] = string(ldt_date,'yyyy-mm-dd') then
				li_day = day(ldt_date)
				dw_1.modify("d_"+string(li_for2)+".background.color =~"0~tif(d_"+string(li_for2)+"='"+string(li_day)+"' and getrow() = "+string(li_for)+" and '"+string(ldt_date)+"' = '"+string(ldt_date)+"',"+string(il_headerColor)+",536870912)~"")
			end if
		next
	next
end if

	


end subroutine

public subroutine of_visible (boolean ab_bool);//======================
//显示，隐藏日历；
//显示：日历上默认文本框日期day背景色，使用文本框日期绘制日历
//隐藏：重置border属性
//====================
date ldt_date
int li_year,li_month,li_for

if ab_bool then
	this.height = il_DWHeight
	ldt_date = date(em_date.text)
	if ldt_date <> date('1900-01-01') then
		li_year = year(ldt_date)
		li_month = month(ldt_date)
		of_draw_day(li_year,li_month)
		of_selected_day()
	end if
	ib_bool = true
	this.width = dw_1.width 
else
	for li_for = 1 to 7 //重置背景
		dw_1.modify("d_"+string(li_for)+".border ='0'")	
	next
	dw_1.modify("t_close.color ='0'")	
	ib_bool = false
	this.height = em_date.height 
	this.width = em_date.width 
end if

dw_1.x = 0
dw_1.y = em_date.y + em_date.height 
end subroutine

on vo_calendar.create
this.st_1=create st_1
this.dw_1=create dw_1
this.st_2=create st_2
this.em_date=create em_date
this.Control[]={this.st_1,&
this.dw_1,&
this.st_2,&
this.em_date}
end on

on vo_calendar.destroy
destroy(this.st_1)
destroy(this.dw_1)
destroy(this.st_2)
destroy(this.em_date)
end on

event constructor;string ls_syanx


ls_syanx = 'release 9;&
datawindow(units=0 timer_interval=0 color=1073741824 processing=0 HTMLDW=no print.printername="" print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 96 print.margin.bottom = 96 print.paper.source = 0 print.paper.size = 0 print.canusedefaultprinter=yes print.prompt=no print.buttons=no print.preview.buttons=no print.cliptext=no print.overrideprintjob=no print.collate=yes hidegrayline=no )&
header(height=282 color="536870912" )&
summary(height=90 color="536870912" )&
footer(height=0 color="536870912" )&
detail(height=86 color="536870912" )&
table(column=(type=char(10) updatewhereclause=no name=d_2 dbname="a" )&
 column=(type=char(10) updatewhereclause=no name=d_3 dbname="b" )&
 column=(type=char(10) updatewhereclause=no name=d_4 dbname="c" )&
 column=(type=char(10) updatewhereclause=no name=d_5 dbname="d" )&
 column=(type=char(10) updatewhereclause=no name=d_6 dbname="e" )&
 column=(type=char(10) updatewhereclause=no name=d_7 dbname="f" )&
 column=(type=char(10) updatewhereclause=no name=d_1 dbname="g" )&
 column=(type=char(255) updatewhereclause=no name=posmsg dbname="name_1")&
 column=(type=date updatewhereclause=no name=ldate dbname="name_2" )&
 )&
rectangle(band=header x="0" y="0" height="198" width="1719"  name=r_backcolor visible="1" brush.hatch="6" brush.color="134217731" pen.style="5" pen.width="4" pen.color="1073741824"  background.mode="2" background.color="33554432" )&
column(band=header id=9 alignment="0" tabsequence=32766 border="0" color="33554432" x="0" y="0" height="77" width="571" format="[general]" html.valueishtml="0"  name=ldate visible="0" edit.limit=0 edit.case=any edit.autoselect=yes edit.imemode=0  font.face="宋体" font.height="-8" font.weight="400"  font.family="2" font.pitch="2" font.charset="134" background.mode="2" background.color="1073741824" )&
text(band=header alignment="2" text=">" border="0" color="33554432" x="750" y="26" height="125" width="99" html.valueishtml="0"  name=t_right visible="1"  font.face="微软雅黑" font.height="-18" font.weight="400"  font.family="2" font.pitch="2" font.charset="134" background.mode="2" background.color="1073741824" ) &
text(band=header alignment="2" text="≥" border="0" color="33554432" x="856" y="26" height="125" width="99" html.valueishtml="0"  name=t_1 visible="1"  font.face="微软雅黑" font.height="-18" font.weight="400"  font.family="2" font.pitch="2" font.charset="134" background.mode="2" background.color="1073741824" ) &
text(band=header alignment="2" text="<" border="0" color="33554432" x="121" y="26" height="125" width="99" html.valueishtml="0"  name=t_left visible="1"  font.face="微软雅黑" font.height="-18" font.weight="400"  font.family="2" font.pitch="2" font.charset="134" background.mode="2" background.color="1073741824" ) &
text(band=header alignment="2" text="≤" border="0" color="33554432" x="15" y="26" height="125" width="99" html.valueishtml="0"  name=t_2 visible="1"  font.face="微软雅黑" font.height="-18" font.weight="400"  font.family="2" font.pitch="2" font.charset="134" background.mode="2" background.color="1073741824" ) &
text(band=header alignment="2" text="2020年10月" border="0" color="33554432" x="252" y="54" height="86" width="475" html.valueishtml="0"  name=t_years visible="1"  font.face="微软雅黑" font.height="-12" font.weight="400"  font.family="2" font.pitch="2" font.charset="134" background.mode="2" background.color="1073741824" )&
text(band=header alignment="2" text="一" border="0" color="33554432" x="22" y="208" height="64" width="121" html.valueishtml="0"  name=w_1 visible="1"  font.face="微软雅黑" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="134" background.mode="2" background.color="1073741824" )&
text(band=header alignment="2" text="二" border="0" color="33554432" x="157" y="208" height="64" width="121" html.valueishtml="0"  name=w_2 visible="1"  font.face="微软雅黑" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="134" background.mode="2" background.color="1073741824" )&
text(band=header alignment="2" text="三" border="0" color="33554432" x="293" y="208" height="64" width="121" html.valueishtml="0"  name=w_3 visible="1"  font.face="微软雅黑" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="134" background.mode="2" background.color="1073741824" )&
text(band=header alignment="2" text="四" border="0" color="33554432" x="428" y="208" height="64" width="121" html.valueishtml="0"  name=w_4 visible="1"  font.face="微软雅黑" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="134" background.mode="2" background.color="1073741824" )&
text(band=header alignment="2" text="五" border="0" color="33554432" x="563" y="208" height="64" width="121" html.valueishtml="0"  name=w_5 visible="1"  font.face="微软雅黑" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="134" background.mode="2" background.color="1073741824" )&
text(band=header alignment="2" text="六" border="0" color="33554432" x="699" y="208" height="64" width="121" html.valueishtml="0"  name=w_6 visible="1"  font.face="微软雅黑" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="134" background.mode="2" background.color="1073741824" )&
text(band=header alignment="2" text="日" border="0" color="33554432" x="834" y="208" height="64" width="121" html.valueishtml="0"  name=w_7 visible="1"  font.face="微软雅黑" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="134" background.mode="2" background.color="1073741824" )&
column(band=detail id=2 alignment="2" tabsequence=32766 border="0" color="33554432" x="293" y="3" height="77" width="121" format="[general]" html.valueishtml="0"  name=d_3 visible="1" edit.limit=0 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes edit.imemode=0  font.face="微软雅黑" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="134" background.mode="1" background.color="536870912" )&
column(band=detail id=3 alignment="2" tabsequence=32766 border="0" color="33554432" x="428" y="3" height="77" width="121" format="[general]" html.valueishtml="0"  name=d_4 visible="1" edit.limit=0 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes edit.imemode=0  font.face="微软雅黑" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="134" background.mode="1" background.color="536870912" )&
column(band=detail id=4 alignment="2" tabsequence=32766 border="0" color="33554432" x="563" y="3" height="77" width="121" format="[general]" html.valueishtml="0"  name=d_5 visible="1" edit.limit=0 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes edit.imemode=0  font.face="微软雅黑" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="134" background.mode="1" background.color="536870912" )&
column(band=detail id=5 alignment="2" tabsequence=32766 border="0" color="33554432" x="699" y="3" height="77" width="121" format="[general]" html.valueishtml="0"  name=d_6 visible="1" edit.limit=0 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes edit.imemode=0  font.face="微软雅黑" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="134" background.mode="1" background.color="536870912" )&
column(band=detail id=6 alignment="2" tabsequence=32766 border="0" color="33554432" x="830" y="3" height="77" width="124" format="[general]" html.valueishtml="0"  name=d_7 visible="1" edit.limit=0 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes edit.imemode=0  font.face="微软雅黑" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="134" background.mode="1" background.color="536870912" )&
column(band=detail id=7 alignment="2" tabsequence=32766 border="0" color="33554432" x="22" y="3" height="77" width="121" format="[general]" html.valueishtml="0"  name=d_1 visible="1" edit.limit=0 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes edit.imemode=0  font.face="微软雅黑" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="134" background.mode="1" background.color="536870912" )&
column(band=detail id=1 alignment="2" tabsequence=32766 border="0" color="33554432" x="157" y="3" height="77" width="121" format="[general]" html.valueishtml="0"  name=d_2 visible="1" edit.limit=0 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes edit.imemode=0  font.face="微软雅黑" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="134" background.mode="1" background.color="536870912" )&
compute(band=summary alignment="0" expression="date(today())"border="0" color="33554432" x="395" y="19" height="64" width="421" format="[General]" html.valueishtml="0"  name=today visible="1"  font.face="微软雅黑" font.height="-9" font.weight="700"  font.family="2" font.pitch="2" font.charset="134" background.mode="2" background.color="1073741824" )&
text(band=summary alignment="1" text="今天：" border="0" color="33554432" x="223" y="19" height="64" width="165" html.valueishtml="0"  name=t_11 visible="1"  font.face="微软雅黑" font.height="-9" font.weight="700"  font.family="2" font.pitch="2" font.charset="134" background.mode="2" background.color="1073741824" )&
text(band=summary alignment="2" text="×" border="0" color="33554432" x="830" y="3" height="74" width="124" html.valueishtml="0"  name=t_close visible="1"  font.face="Arial" font.height="-16" font.weight="400"  font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="1073741824" )&
column(band=header id=8 alignment="0" tabsequence=32766 border="0" color="33554432" x="1017" y="67" height="64" width="260" format="[general]" html.valueishtml="0"  name=posmsg visible="1" ddlb.limit=0 ddlb.allowedit=no ddlb.case=any ddlb.imemode=0  font.face="微软雅黑" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="134" background.mode="1" background.color="536870912" )&
htmltable(border="1" )&
htmlgen(clientevents="1" clientvalidation="1" clientcomputedfields="1" clientformatting="0" clientscriptable="0" generatejavascript="1" encodeselflinkargs="1" netscapelayers="0" )&
export.xml(headgroups="1" includewhitespace="0" metadatatype=0 savemetadata=0 )&
import.xml()&
export.pdf(method=0 distill.custompostscript="0" xslfop.print="0" )&
'
dw_1.Create(ls_syanx)
 
string ls_date
date ld_date
int li_year,li_month

ld_date =today()//dw_1.getitemdate(1, 'ld_date')
li_year = year(ld_date)
li_month = month(ld_date)
ls_date = string(ld_date,'yyyy年mm')

dw_1.modify("t_years.text = "+ls_date+"")	
dw_1.modify("t_years.Background.Mode = 1")	
dw_1.modify("t_left.Background.Mode = 1")	
dw_1.modify("t_1.Background.Mode = 1")	
dw_1.modify("t_2.Background.Mode = 1")	
dw_1.modify("t_right.Background.Mode = 1")	
dw_1.modify("t_years.color = '16777215'")	
dw_1.modify("t_1.color = '16777215'")	
dw_1.modify("t_2.color = '16777215'")	
dw_1.modify("t_left.color = '16777215'")	
dw_1.modify("t_right.color = '16777215'")	
dw_1.modify("r_backcolor.brush.color ='"+string(il_headerColor)+"'")

dw_1.modify("d_1.Background.Mode = 2")	
dw_1.modify("d_2.Background.Mode = 2")	
dw_1.modify("d_3.Background.Mode = 2")	
dw_1.modify("d_4.Background.Mode = 2")	
dw_1.modify("d_5.Background.Mode = 2")	
dw_1.modify("d_6.Background.Mode = 2")	
dw_1.modify("d_7.Background.Mode = 2")	

dw_1.modify("w_1.Background.Mode = 1")	
dw_1.modify("w_2.Background.Mode = 1")	
dw_1.modify("w_3.Background.Mode = 1")	
dw_1.modify("w_4.Background.Mode = 1")	
dw_1.modify("w_5.Background.Mode = 1")	
dw_1.modify("w_6.Background.Mode = 1")	
dw_1.modify("w_7.Background.Mode = 1")	

il_DWHeight = em_date.height + dw_1.height 

text= ''
of_draw_day(li_year,li_month)
of_visible(false)

//dw_1.modify('posmsg.values="2012	2012/')	
//this.backcolor= parent.backcolor

end event

type st_1 from statictext within vo_calendar
boolean visible = false
integer x = 373
integer y = 6
integer width = 102
integer height = 70
integer textsize = -14
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "▼"
alignment alignment = center!
borderstyle borderstyle = styleshadowbox!
boolean focusrectangle = false
end type

event clicked;//of_visible()
end event

type dw_1 from datawindow within vo_calendar
event ue_dwmousemove pbm_dwnmousemove
integer y = 131
integer width = 976
integer height = 902
integer taborder = 10
string title = "none"
boolean livescroll = true
end type

event ue_dwmousemove;int li_for
string ls_date
this.setredraw( false)
if dwo.name = 't_left' or dwo.name = 't_right' or dwo.name = 't_2' or dwo.name = 't_1' then 
	this.modify(string(dwo.name)+".color =255")	
elseif pos(dwo.name,'d_') > 0 and row > 0 then
	for li_for = 1 to 7 //重置border
		this.modify("d_"+string(li_for)+".border ='0'")	
	next
	ls_date = this.getitemstring( row, string(dwo.name))
	if ls_date <> '' and not isnull(ls_date) then this.modify(string(dwo.name)+".border ='0~tif(getrow() = "+string(row)+",2,0)'")	
elseif dwo.name = 't_close' then
	this.modify("t_close.color ='255'")	
else
	this.modify("t_1.color =536870912")	
	this.modify("t_2.color =536870912")	
	this.modify("t_left.color =536870912")	
	this.modify("t_right.color =536870912")	
	for li_for = 1 to 7 //重置border
		this.modify("d_"+string(li_for)+".border ='0'")	
	next
	this.modify("t_close.color ='0'")	
end if
this.setredraw( true)
end event

event clicked;string ls_years,ls_month
int li_years,li_month,li_for
date ldt_date
string ls_data,ls_name

this.setredraw( false)
if dwo.name = 't_left' or dwo.name = 't_right' then
	ldt_date = dw_1.getitemdate(1, 'ldate')
	li_years = year(ldt_date)
	li_month = month(ldt_date)	
	if dwo.name = 't_left' then	
		if li_month -1 > 0 then
			li_month = li_month -1
		else
			li_month = 12
			li_years = li_years -1
		end if
	elseif dwo.name = 't_right' then
		if li_month +1 < 13 then
			li_month = li_month +1
		else
			li_month = 1
			li_years = li_years +1
		end if
	end if
	
	of_draw_day(li_years,li_month)
	of_selected_day()
elseif dwo.name = 't_1' or dwo.name = 't_2' then
	ldt_date = dw_1.getitemdate(1, 'ldate')
	li_years = year(ldt_date)
	li_month = month(ldt_date)	
	if dwo.name = 't_1' then
		li_years = li_years + 1
	elseif dwo.name = 't_2' then
		li_years = li_years - 1
	end if
	of_draw_day(li_years,li_month)
	of_selected_day()
elseif pos(dwo.name,'d_') > 0 and row > 0 then
	ls_name = dwo.name
	ls_data = is_arrDdate[row ,long(right(ls_name,1))]
	if ls_data <> '' then
		em_date.text = ls_data
		text = ls_data
		of_visible(false)
	end if
	
elseif dwo.name = 'today' then
	ldt_date = date(dw_1.getitemdatetime(1, 'today'))
	em_date.text = string(ldt_date)
	text = string(ldt_date)
	of_visible(false)
	
elseif dwo.name = 't_close' then
	of_visible(false)
	
end if
this.setredraw( true)

end event

type st_2 from statictext within vo_calendar
integer x = 563
integer y = 16
integer width = 121
integer height = 83
boolean bringtotop = true
integer textsize = -20
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 10789024
string text = "▼"
alignment alignment = center!
borderstyle borderstyle = styleshadowbox!
boolean focusrectangle = false
end type

event clicked;if ib_bool = false then
	of_visible(true)
else
	of_visible(false)
end if
end event

type em_date from editmask within vo_calendar
integer width = 699
integer height = 115
integer taborder = 10
integer textsize = -18
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
end type

event getfocus;of_visible(false)
end event

菜鸟--\(˙<>˙)/--战斗机
关注
专栏目录
pb强大的日期时间控件
05-11
有下拉式日期选择，时钟显示时间，普通时间显示等各种日期时间控件，基本能满足开发需要，欢迎下载试用。
pb日期控件
08-30
powerbuilder 9 日历控件 sru 可以直接导入使用 调用时间方法 用于做按日期查询的窗口很方便 datetime ldt_start datetime ldt_end ldt_start = datetime(parent.uo_date.uf_getstartdate(),00:00:00) ldt_end = datetime(parent.uo_date.uf_getenddate(),23:59:59)
vue框架学习 -- 日历控件 FullCalendar 使用总结
最新发布
dazhong2012的专栏
09-28 1030
最近在项目中要实现日期排班的功能，正好要用到日历视图的控件，经过对比发现，vue 中 使用可以实现相关需求，下面对使用过程做一个总结。
PB日历控件
12-20
PB日历控件,包括农历.用于PB11版本以下 datawindow.
在PB中使用日期时间控件
03-12
在PowerBuilder中如何调用日期时间控件，
pb 實現日曆控件
zzj227的专栏
07-24 2015
2005年初實現的農曆控件，湊或夠用。需要著發email到zzjzzj227@163.com，title=Calendar.its free. :-)
三个PB日历控件
01-11
三个版本的日历控件，PB9上测试正确。
Jquery日历控件代码
weixin_33863087的博客
11-26 105
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head>&...
PowerBuilder 9日历控件展示，下载(附带源码)
weixin_37914760的博客
07-29 1247
1、pb9日历控件，支持多个日期选择
Qt自定义DateTime控件--实现日历及时间选择器自定义
slowlytalk
07-06 1万+
怎样能够完全地实现一个不用其他控件就能正常使用的控件。最近尝试了下，使用了Qt的基础控件实现了一个完全自定义的日历控件，顺便改良了一下以前的时间选择器，测试效果还可以。终于实现了自定义的DateTime控件。......
微信小程序源码打包合集 游戏商城抽奖转盘预约点餐等-1
chenhao0568的专栏
06-13 1万+
下载 2019.06.13更新 2.16 GB共1,848 个文件，487 个文件夹。 文件夹 PATH 列表 卷序列号为 0FEA-0BC6 E:. │ 001各种结构文件列表生成.bat │ 目录列表_树2019.06.13更新.txt │ ├─20190612后收集游戏 │ │ 小程序版转盘游戏 &&一款解决生活分歧的小程序BifurcationTermin...
漂亮的pb日历控件
01-10
一个漂亮的pb日历控件，是PB9.0版的用了不错。给喜欢的人用。
10几种PB日期控件
04-17
10几种PB日期控件 不同类型的日期控件
pb 日期控件
01-03
pb 日期控件 下拉列表选择日期，有例子
PB9日历农历日历控件源码
01-28
pb9.0日历控件源码，农历日历图形格式，源码验证可正常使用界面
STM32+EMWIN电子日历
热门推荐
wangzibigan的博客
11-05 1万+
之前花了几百元买的电子时钟坏了，就用闲置的板子做了一个。 功能是显示/调整日期，时间，多个闹钟，倒计时。倒计时使用实体脉冲旋钮控制。 基本软件架构是STM32F407+UCOSIII+STEMWIN+RTC。 效果如下： 这个是定时器，依靠旋钮调节定时时间   1.RTC 参照原子历程初始化，并且定义一个新的日期时间结构这是为了一次性把相关消息发送到UI，注意要使...
超级漂亮的日历控件源码
05-03
这里提到的是一个在PB（PowerBuilder）环境中开发的日历控件源码，PowerBuilder是一款强大的Windows应用程序开发工具，以其图形化界面和数据窗口组件而知名。 【描述】中的"日历控件"是指该控件能够提供一个可视化...
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值