author:
水如煙
下面是擴充套件功能。先從簡單的做起。
按鈕和狀態列的顯示隱藏
''按鈕、狀態列的隱藏顯示
''動作由選單發出
public
event
statusbarvisiblechanged
aseventhandler
public
event
addressbarvisiblechanged
aseventhandler
public
event
linkbarvisiblechanged
aseventhandler
public
event
standarbarvisiblechanged
aseventhandler
private
gstatusbarvisible
asboolean
private
gaddressbarvisible
asboolean
private
glinkbarvisible
asboolean
private
gstandarbarvisible
asboolean
public
property
statusbarvisible()
asboolean
getreturn
me.gstatusbarvisible
endget
set(
byval
value
asboolean)if
me.gstatusbarvisible
<>
value
then
me.gstatusbarvisible
=value
raiseevent
statusbarvisiblechanged(
me,
neweventargs)
endif
endset
end property
public
property
addressbarvisible()
asboolean
getreturn
me.gaddressbarvisible
endget
set(
byval
value
asboolean)if
me.gaddressbarvisible
<>
value
then
me.gaddressbarvisible
=value
raiseevent
addressbarvisiblechanged(
me,
neweventargs)
endif
endset
end property
public
property
linkbarvisible()
asboolean
getreturn
me.glinkbarvisible
endget
set(
byval
value
asboolean)if
me.glinkbarvisible
<>
value
then
me.glinkbarvisible
=value
raiseevent
linkbarvisiblechanged(
me,
neweventargs)
endif
endset
end property
public
property
standarbarvisible()
asboolean
getreturn
me.gstandarbarvisible
endget
set(
byval
value
asboolean)if
me.gstandarbarvisible
<>
value
then
me.gstandarbarvisible
=value
raiseevent
standarbarvisiblechanged(
me,
neweventargs)
endif
endset
end property
end class
end namespace
類winstatusstip需要修改的**:
private
gwebbrowser
aswebbrowser
<
designerserializationvisibility(designerserializationvisibility.visible)
>
_public
property
webbrowser()
aswebbrowser
getreturn
me.gwebbrowser
endget
set(
byval
value
aswebbrowser)
ifgwebbrowser
isnot
nothing
then
removehandler
gwebbrowser.progresschanged,
addressof
webbrowser_progresschanged
removehandler
gwebbrowser.statustextchanged,
addressof
webbrowser_statustextchanged
removehandler
gwebbrowser.statusbarvisiblechanged,
addressof
webbrowser_statusbarvisiblechanged
gwebbrowser.statusbarvisible
=false
gwebbrowser
=nothing
endif
ifvalue
isnot
nothing
then
gwebbrowser
=value
gwebbrowser.statusbarvisible
=true
addhandler
gwebbrowser.progresschanged,
addressof
webbrowser_progresschanged
addhandler
gwebbrowser.statustextchanged,
addressof
webbrowser_statustextchanged
addhandler
gwebbrowser.statusbarvisiblechanged,
addressof
webbrowser_statusbarvisiblechanged
endif
endset
end property
private
subwebbrowser_statusbarvisiblechanged(
byval
sender
asobject
, byval
e as
eventargs)
me.visible =me
.gwebbrowser.statusbarvisible
end sub
字典功能的應用 迴圈
sub 字典功能應用 dim i as integer,arr dim dic as object,wb as object dim kl as integer for kl 1 to 2 set wb getobject thisworkbook.path 彙總資料調整格式版.xls 資料來源 w...
塗抹功能 耐火塗抹料的效能和應用
耐火塗抺料是泥膏狀的功能性材料，可以在高溫工業爐中可以塗抹施工做襯體 作保護層，作密封塗料。耐火塗抹料是以手工或機械塗抹方式，使用於其它襯體耐火材料層表面的。是用水或是液體結合劑調和使用。具有一定可塑性。塗層厚度不超過50mm，但同樣具有較高的強度和良好的抗熔體或氣體的侵蝕性，耐火塗抺料在使用時不開...
智慧型路燈杆雲盒閘道器的功能和應用
智慧型路燈杆雲盒閘道器，是用在多功能路燈桿上的智慧型通訊一體化整合裝置，主要是給路燈桿上的各類終端外設提供閘道器支援，執行資料採集 本地化資料處理，以及指令控制等工作。開發智慧型路燈杆雲盒閘道器的原因 由於多功能路燈杆承載的業務多樣性，因此對通訊網路的建設要求也比較高 1 智慧型路燈杆的通訊網路要求...