'******************************
'奔騰flash player
'全部代碼包括3個form
'author:wgscd（自由奔騰）
'date:2005-3
'qq：153964481
'說明：由于最后調試的代碼丟了，可能form1的code有bug
'再就是此application用到了許多picture，你將不能直接將代碼貼到ide里期望會有漂亮的界面出現
'******************************
imports system.io
imports system.net
public module publicvar
public exitfullscr as boolean = false
'public framnums as integer
end module
public class form1
inherits system.windows.forms.form
#region " windows 窗體設計器生成的代碼 "
public sub new()
mybase.new()
'該調用是 windows 窗體設計器所必需的。
initializecomponent()
'在 initializecomponent() 調用之后添加任何初始化
end sub
'窗體重寫 dispose 以清理組件列表。
protected overloads overrides sub dispose(byval disposing as boolean)
if disposing then
if not (components is nothing) then
components.dispose()
end if
end if
mybase.dispose(disposing)
end sub
'windows 窗體設計器所必需的
private components as system.componentmodel.icontainer
'注意: 以下過程是 windows 窗體設計器所必需的
'可以使用 windows 窗體設計器修改此過程。
'不要使用代碼編輯器修改它。
friend withevents button1 as system.windows.forms.button
friend withevents button2 as system.windows.forms.button
friend withevents label1 as system.windows.forms.label
friend withevents timer1 as system.windows.forms.timer
friend withevents trackbar1 as system.windows.forms.trackbar
friend withevents contextmenu1 as system.windows.forms.contextmenu
friend withevents menuitem1 as system.windows.forms.menuitem
friend withevents menuitem2 as system.windows.forms.menuitem
friend withevents menuitem3 as system.windows.forms.menuitem
friend withevents menuitem4 as system.windows.forms.menuitem
friend withevents menuitem5 as system.windows.forms.menuitem
friend withevents menuitem7 as system.windows.forms.menuitem
friend withevents menuitem8 as system.windows.forms.menuitem
friend withevents menuitem9 as system.windows.forms.menuitem
friend withevents menuitem10 as system.windows.forms.menuitem
friend withevents menuitem11 as system.windows.forms.menuitem
friend withevents menuitem12 as system.windows.forms.menuitem
friend withevents menuitem13 as system.windows.forms.menuitem
friend withevents listbox1 as system.windows.forms.listbox
friend withevents label2 as system.windows.forms.label
friend withevents label3 as system.windows.forms.label
friend withevents label4 as system.windows.forms.label
friend withevents flashp as axshockwaveflashobjects.axshockwaveflash
friend withevents flash as axshockwaveflashobjects.axshockwaveflash
friend withevents label5 as system.windows.forms.label
friend withevents picturebox1 as system.windows.forms.picturebox
friend withevents menuitem14 as system.windows.forms.menuitem
friend withevents menuitem15 as system.windows.forms.menuitem
friend withevents menuitem16 as system.windows.forms.menuitem
friend withevents menuitem17 as system.windows.forms.menuitem
friend withevents menuitem18 as system.windows.forms.menuitem
friend withevents menuitem21 as system.windows.forms.menuitem
friend withevents menuitem22 as system.windows.forms.menuitem
friend withevents menuitem23 as system.windows.forms.menuitem
friend withevents menuitem24 as system.windows.forms.menuitem
friend withevents menuitem25 as system.windows.forms.menuitem
friend withevents menuitem26 as system.windows.forms.menuitem
friend withevents menuitem28 as system.windows.forms.menuitem
friend withevents menuitem29 as system.windows.forms.menuitem
friend withevents contextmenu2 as system.windows.forms.contextmenu
friend withevents menuitem30 as system.windows.forms.menuitem
friend withevents menuitem31 as system.windows.forms.menuitem
friend withevents menuitem32 as system.windows.forms.menuitem
friend withevents timer2 as system.windows.forms.timer
friend withevents menuitem33 as system.windows.forms.menuitem
friend withevents menuitem34 as system.windows.forms.menuitem
friend withevents menuitem35 as system.windows.forms.menuitem
friend withevents menuitem36 as system.windows.forms.menuitem
friend withevents menuitem37 as system.windows.forms.menuitem
friend withevents menuitem38 as system.windows.forms.menuitem
friend withevents menuitem39 as system.windows.forms.menuitem
friend withevents menuitem6 as system.windows.forms.menuitem
friend withevents timer3 as system.windows.forms.timer
friend withevents menuitem40 as system.windows.forms.menuitem
friend withevents menuitem42 as system.windows.forms.menuitem
friend withevents menuitem41 as system.windows.forms.menuitem
friend withevents tooltip1 as system.windows.forms.tooltip
friend withevents menuitem20 as system.windows.forms.menuitem
friend withevents menuitem19 as system.windows.forms.menuitem
friend withevents menuitem27 as system.windows.forms.menuitem
friend withevents label6 as system.windows.forms.label
friend withevents label7 as system.windows.forms.label
friend withevents label8 as system.windows.forms.label
<system.diagnostics.debuggerstepthrough()> private sub initializecomponent()
me.components = new system.componentmodel.container
dim resources as system.resources.resourcemanager = new system.resources.resourcemanager(gettype
(form1))
me.button1 = new system.windows.forms.button
me.button2 = new system.windows.forms.button
me.label1 = new system.windows.forms.label
me.timer1 = new system.windows.forms.timer(me.components)
me.trackbar1 = new system.windows.forms.trackbar
me.contextmenu1 = new system.windows.forms.contextmenu
me.menuitem1 = new system.windows.forms.menuitem
me.menuitem2 = new system.windows.forms.menuitem
me.menuitem6 = new system.windows.forms.menuitem
me.menuitem29 = new system.windows.forms.menuitem
me.menuitem19 = new system.windows.forms.menuitem
me.menuitem3 = new system.windows.forms.menuitem
me.menuitem4 = new system.windows.forms.menuitem
me.menuitem42 = new system.windows.forms.menuitem
me.menuitem5 = new system.windows.forms.menuitem
me.menuitem7 = new system.windows.forms.menuitem
me.menuitem8 = new system.windows.forms.menuitem
me.menuitem33 = new system.windows.forms.menuitem
me.menuitem34 = new system.windows.forms.menuitem
me.menuitem41 = new system.windows.forms.menuitem
me.menuitem35 = new system.windows.forms.menuitem
me.menuitem15 = new system.windows.forms.menuitem
me.menuitem9 = new system.windows.forms.menuitem
me.menuitem11 = new system.windows.forms.menuitem
me.menuitem12 = new system.windows.forms.menuitem
me.menuitem10 = new system.windows.forms.menuitem
me.menuitem13 = new system.windows.forms.menuitem
me.menuitem14 = new system.windows.forms.menuitem
me.menuitem16 = new system.windows.forms.menuitem
me.menuitem18 = new system.windows.forms.menuitem
me.menuitem17 = new system.windows.forms.menuitem
me.menuitem20 = new system.windows.forms.menuitem
me.menuitem21 = new system.windows.forms.menuitem
me.menuitem22 = new system.windows.forms.menuitem
me.menuitem23 = new system.windows.forms.menuitem
me.menuitem25 = new system.windows.forms.menuitem
me.menuitem26 = new system.windows.forms.menuitem
me.menuitem28 = new system.windows.forms.menuitem
me.menuitem39 = new system.windows.forms.menuitem
me.menuitem24 = new system.windows.forms.menuitem
me.menuitem27 = new system.windows.forms.menuitem
me.listbox1 = new system.windows.forms.listbox
me.contextmenu2 = new system.windows.forms.contextmenu
me.menuitem30 = new system.windows.forms.menuitem
me.menuitem31 = new system.windows.forms.menuitem
me.menuitem40 = new system.windows.forms.menuitem
me.menuitem32 = new system.windows.forms.menuitem
me.menuitem36 = new system.windows.forms.menuitem
me.menuitem37 = new system.windows.forms.menuitem
me.menuitem38 = new system.windows.forms.menuitem
me.label2 = new system.windows.forms.label
me.label3 = new system.windows.forms.label
me.label4 = new system.windows.forms.label
me.flashp = new axshockwaveflashobjects.axshockwaveflash
me.flash = new axshockwaveflashobjects.axshockwaveflash
me.label5 = new system.windows.forms.label
me.picturebox1 = new system.windows.forms.picturebox
me.timer2 = new system.windows.forms.timer(me.components)
me.timer3 = new system.windows.forms.timer(me.components)
me.tooltip1 = new system.windows.forms.tooltip(me.components)
me.label6 = new system.windows.forms.label
me.label7 = new system.windows.forms.label
me.label8 = new system.windows.forms.label
ctype(me.trackbar1, system.componentmodel.isupportinitialize).begininit()
ctype(me.flashp, system.componentmodel.isupportinitialize).begininit()
ctype(me.flash, system.componentmodel.isupportinitialize).begininit()
me.suspendlayout()
'
'button1
'
me.button1.cursor = system.windows.forms.cursors.hand
me.button1.flatstyle = system.windows.forms.flatstyle.flat
me.button1.image = ctype(resources.getobject("button1.image"), system.drawing.image)
me.button1.location = new system.drawing.point(424, 24)
me.button1.name = "button1"
me.button1.size = new system.drawing.size(56, 23)
me.button1.tabindex = 14
me.tooltip1.settooltip(me.button1, "打開單個文件")
'
'button2
'
me.button2.cursor = system.windows.forms.cursors.hand
me.button2.flatstyle = system.windows.forms.flatstyle.flat
me.button2.image = ctype(resources.getobject("button2.image"), system.drawing.image)
me.button2.location = new system.drawing.point(488, 24)
me.button2.name = "button2"
me.button2.size = new system.drawing.size(56, 23)
me.button2.tabindex = 15
me.tooltip1.settooltip(me.button2, "瀏覽文件夾，該文件夾下的所有以swf結尾的文件都將添加進列表里")
'
'label1
'
me.label1.backcolor = system.drawing.color.fromargb(ctype(192, byte), ctype(0, byte), ctype(0,
byte))
me.label1.font = new system.drawing.font("宋體", 9.0!, system.drawing.fontstyle.regular,
system.drawing.graphicsunit.point, ctype(0, byte))
me.label1.forecolor = system.drawing.color.fromargb(ctype(255, byte), ctype(192, byte), ctype(192,
byte))
me.label1.location = new system.drawing.point(120, 312)
me.label1.name = "label1"
me.label1.size = new system.drawing.size(152, 16)
me.label1.tabindex = 1
me.label1.text = "自由奔騰（wgscd）"
me.tooltip1.settooltip(me.label1, "當前播放的flash")
'
'timer1
'
me.timer1.interval = 50
'
'trackbar1
'
me.trackbar1.backcolor = system.drawing.color.fromargb(ctype(0, byte), ctype(0, byte), ctype(192,
byte))
me.trackbar1.contextmenu = me.contextmenu1
me.trackbar1.location = new system.drawing.point(0, 336)
me.trackbar1.maximum = 33333
me.trackbar1.name = "trackbar1"
me.trackbar1.size = new system.drawing.size(384, 45)
me.trackbar1.tabindex = 4
me.tooltip1.settooltip(me.trackbar1, "時間幀，可拖動")
'
'contextmenu1
'
me.contextmenu1.menuitems.addrange(new system.windows.forms.menuitem() {me.menuitem1,
me.menuitem2, me.menuitem6, me.menuitem29, me.menuitem19, me.menuitem3, me.menuitem4, me.menuitem42,
me.menuitem5, me.menuitem15, me.menuitem9, me.menuitem14, me.menuitem16, me.menuitem18, me.menuitem17,
me.menuitem20, me.menuitem21, me.menuitem22, me.menuitem23, me.menuitem25, me.menuitem39, me.menuitem24,
me.menuitem27})
'
'menuitem1
'
me.menuitem1.index = 0
me.menuitem1.shortcut = system.windows.forms.shortcut.ctrlo
me.menuitem1.text = "打開單個文件"
'
'menuitem2
'
me.menuitem2.index = 1
me.menuitem2.text = "打開文件夾"
'
'menuitem6
'
me.menuitem6.index = 2
me.menuitem6.text = "打開url"
'
'menuitem29
'
me.menuitem29.index = 3
me.menuitem29.text = "-"
'
'menuitem19
'
me.menuitem19.index = 4
me.menuitem19.text = "搜索ie緩存"
'
'menuitem3
'
me.menuitem3.index = 5
me.menuitem3.text = "-"
'
'menuitem4
'
me.menuitem4.index = 6
me.menuitem4.text = "總在最前"
'
'menuitem42
'
me.menuitem42.index = 7
me.menuitem42.text = "改背景為圖片"
'
'menuitem5
'
me.menuitem5.index = 8
me.menuitem5.menuitems.addrange(new system.windows.forms.menuitem() {me.menuitem7, me.menuitem8,
me.menuitem33, me.menuitem34, me.menuitem41, me.menuitem35})
me.menuitem5.text = "更改時幀條顏色"
'
'menuitem7
'
me.menuitem7.index = 0
me.menuitem7.text = "紅"
'
'menuitem8
'
me.menuitem8.index = 1
me.menuitem8.text = "綠"
'
'menuitem33
'
me.menuitem33.index = 2
me.menuitem33.text = "藍"
'
'menuitem34
'
me.menuitem34.index = 3
me.menuitem34.text = "紫"
'
'menuitem41
'
me.menuitem41.index = 4
me.menuitem41.text = "隨機"
'
'menuitem35
'
me.menuitem35.index = 5
me.menuitem35.text = "自定義"
'
'menuitem15
'
me.menuitem15.index = 9
me.menuitem15.text = "-"
'
'menuitem9
'
me.menuitem9.index = 10
me.menuitem9.menuitems.addrange(new system.windows.forms.menuitem() {me.menuitem11, me.menuitem12,
me.menuitem10, me.menuitem13})
me.menuitem9.text = "窗體透明"
'
'menuitem11
'
me.menuitem11.index = 0
me.menuitem11.text = "30%"
'
'menuitem12
'
me.menuitem12.index = 1
me.menuitem12.text = "60%"
'
'menuitem10
'
me.menuitem10.index = 2
me.menuitem10.text = "100%"
'
'menuitem13
'
me.menuitem13.index = 3
me.menuitem13.text = "自定義"
'
'menuitem14
'
me.menuitem14.index = 11
me.menuitem14.text = "動畫循環放"
'
'menuitem16
'
me.menuitem16.index = 12
me.menuitem16.text = "列表循環"
'
'menuitem18
'
me.menuitem18.index = 13
me.menuitem18.text = "-"
'
'menuitem17
'
me.menuitem17.index = 14
me.menuitem17.text = "播放"
'
'menuitem20
'
me.menuitem20.index = 15
me.menuitem20.text = "下一曲"
'
'menuitem21
'
me.menuitem21.index = 16
me.menuitem21.text = "指定到幀"
'
'menuitem22
'
me.menuitem22.index = 17
me.menuitem22.text = "重新開始"
'
'menuitem23
'
me.menuitem23.index = 18
me.menuitem23.text = "-"
'
'menuitem25
'
me.menuitem25.index = 19
me.menuitem25.menuitems.addrange(new system.windows.forms.menuitem() {me.menuitem26,
me.menuitem28})
me.menuitem25.text = "質量"
'
'menuitem26
'
me.menuitem26.index = 0
me.menuitem26.text = "高"
'
'menuitem28
'
me.menuitem28.index = 1
me.menuitem28.text = "低"
'
'menuitem39
'
me.menuitem39.index = 20
me.menuitem39.text = "全屏幕"
'
'menuitem24
'
me.menuitem24.index = 21
me.menuitem24.text = "關于"
'
'menuitem27
'
me.menuitem27.index = 22
me.menuitem27.text = "退出（&exit）"
'
'listbox1
'
me.listbox1.contextmenu = me.contextmenu2
me.listbox1.horizontalscrollbar = true
me.listbox1.itemheight = 12
me.listbox1.location = new system.drawing.point(424, 56)
me.listbox1.name = "listbox1"
me.listbox1.selectionmode = system.windows.forms.selectionmode.multiextended
me.listbox1.size = new system.drawing.size(120, 160)
me.listbox1.tabindex = 5
me.tooltip1.settooltip(me.listbox1, "flash列表")
'
'contextmenu2
'
me.contextmenu2.menuitems.addrange(new system.windows.forms.menuitem() {me.menuitem30,
me.menuitem31, me.menuitem40, me.menuitem32, me.menuitem36, me.menuitem37, me.menuitem38})
'
'menuitem30
'
me.menuitem30.index = 0
me.menuitem30.text = "清除列表"
'
'menuitem31
'
me.menuitem31.index = 1
me.menuitem31.text = "清除選中項"
'
'menuitem40
'
me.menuitem40.index = 2
me.menuitem40.text = "項另存為"
'
'menuitem32
'
me.menuitem32.index = 3
me.menuitem32.text = "動畫另存為"
'
'menuitem36
'
me.menuitem36.index = 4
me.menuitem36.text = "-"
'
'menuitem37
'
me.menuitem37.index = 5
me.menuitem37.text = "改變列表背景色"
'
'menuitem38
'
me.menuitem38.index = 6
me.menuitem38.text = "改變列表文字顏色"
'
'label2
'
me.label2.backcolor = system.drawing.color.fromargb(ctype(192, byte), ctype(0, byte), ctype(0,
byte))
me.label2.cursor = system.windows.forms.cursors.hand
me.label2.font = new system.drawing.font("華文中宋", 8.999999!, system.drawing.fontstyle.bold,
system.drawing.graphicsunit.point, ctype(134, byte))
me.label2.forecolor = system.drawing.color.fromargb(ctype(224, byte), ctype(224, byte), ctype(224,
byte))
me.label2.image = ctype(resources.getobject("label2.image"), system.drawing.image)
me.label2.location = new system.drawing.point(8, 312)
me.label2.name = "label2"
me.label2.size = new system.drawing.size(40, 16)
me.label2.tabindex = 7
me.tooltip1.settooltip(me.label2, "播放")
'
'label3
'
me.label3.backcolor = system.drawing.color.fromargb(ctype(192, byte), ctype(0, byte), ctype(0,
byte))
me.label3.cursor = system.windows.forms.cursors.hand
me.label3.font = new system.drawing.font("宋體", 14.25!, system.drawing.fontstyle.bold,
system.drawing.graphicsunit.point, ctype(134, byte))
me.label3.forecolor = system.drawing.color.fromargb(ctype(224, byte), ctype(224, byte), ctype(224,
byte))
me.label3.image = ctype(resources.getobject("label3.image"), system.drawing.image)
me.label3.location = new system.drawing.point(64, 312)
me.label3.name = "label3"
me.label3.size = new system.drawing.size(40, 16)
me.label3.tabindex = 8
me.tooltip1.settooltip(me.label3, "暫停")
'
'label4
'
me.label4.backcolor = system.drawing.color.fromargb(ctype(128, byte), ctype(255, byte), ctype(255,
byte))
me.label4.location = new system.drawing.point(296, 312)
me.label4.name = "label4"
me.label4.size = new system.drawing.size(64, 16)
me.label4.tabindex = 9
me.tooltip1.settooltip(me.label4, "幀數")
'
'flashp
'
me.flashp.enabled = true
me.flashp.location = new system.drawing.point(424, 256)
me.flashp.name = "flashp"
me.flashp.ocxstate = ctype(resources.getobject("flashp.ocxstate"),
system.windows.forms.axhost.state)
me.flashp.size = new system.drawing.size(120, 88)
me.flashp.tabindex = 10
me.tooltip1.settooltip(me.flashp, "預覽")
'
'flash
'
me.flash.enabled = true
me.flash.location = new system.drawing.point(8, 24)
me.flash.name = "flash"
me.flash.ocxstate = ctype(resources.getobject("flash.ocxstate"),
system.windows.forms.axhost.state)
me.flash.size = new system.drawing.size(376, 272)
me.flash.tabindex = 11
'
'label5
'
me.label5.backcolor = system.drawing.color.fromargb(ctype(192, byte), ctype(0, byte), ctype(0,
byte))
me.label5.cursor = system.windows.forms.cursors.hand
me.label5.image = ctype(resources.getobject("label5.image"), system.drawing.image)
me.label5.location = new system.drawing.point(368, 312)
me.label5.name = "label5"
me.label5.size = new system.drawing.size(16, 16)
me.label5.tabindex = 12
me.label5.text = " 1"
me.tooltip1.settooltip(me.label5, "折疊列表欄")
'
'picturebox1
'
me.picturebox1.backcolor = system.drawing.color.fromargb(ctype(255, byte), ctype(224, byte),
ctype(192, byte))
me.picturebox1.cursor = system.windows.forms.cursors.hand
me.picturebox1.image = ctype(resources.getobject("picturebox1.image"), system.drawing.image)
me.picturebox1.location = new system.drawing.point(424, 224)
me.picturebox1.name = "picturebox1"
me.picturebox1.size = new system.drawing.size(120, 24)
me.picturebox1.sizemode = system.windows.forms.pictureboxsizemode.stretchimage
me.picturebox1.tabindex = 13
me.picturebox1.tabstop = false
me.tooltip1.settooltip(me.picturebox1, "單擊可更改圖片")
'
'timer2
'
me.timer2.interval = 10
'
'timer3
'
'
'label6
'
me.label6.image = ctype(resources.getobject("label6.image"), system.drawing.image)
me.label6.location = new system.drawing.point(376, 8)
me.label6.name = "label6"
me.label6.size = new system.drawing.size(16, 8)
me.label6.tabindex = 16
'
'label7
'
me.label7.image = ctype(resources.getobject("label7.image"), system.drawing.image)
me.label7.location = new system.drawing.point(352, 8)
me.label7.name = "label7"
me.label7.size = new system.drawing.size(16, 8)
me.label7.tabindex = 17
'
'label8
'
me.label8.image = ctype(resources.getobject("label8.image"), system.drawing.image)
me.label8.location = new system.drawing.point(328, 8)
me.label8.name = "label8"
me.label8.size = new system.drawing.size(16, 8)
me.label8.tabindex = 18
'
'form1
'
me.autoscalebasesize = new system.drawing.size(6, 14)
me.backcolor = system.drawing.color.fromargb(ctype(192, byte), ctype(192, byte), ctype(255, byte))
me.backgroundimage = ctype(resources.getobject("$this.backgroundimage"), system.drawing.image)
me.clientsize = new system.drawing.size(552, 360)
me.contextmenu = me.contextmenu1
me.controls.add(me.label8)
me.controls.add(me.label7)
me.controls.add(me.label6)
me.controls.add(me.flash)
me.controls.add(me.button2)
me.controls.add(me.button1)
me.controls.add(me.picturebox1)
me.controls.add(me.label5)
me.controls.add(me.flashp)
me.controls.add(me.label4)
me.controls.add(me.label3)
me.controls.add(me.label2)
me.controls.add(me.listbox1)
me.controls.add(me.trackbar1)
me.controls.add(me.label1)
me.formborderstyle = system.windows.forms.formborderstyle.none
me.icon = ctype(resources.getobject("$this.icon"), system.drawing.icon)
me.name = "form1"
ctype(me.trackbar1, system.componentmodel.isupportinitialize).endinit()
ctype(me.flashp, system.componentmodel.isupportinitialize).endinit()
ctype(me.flash, system.componentmodel.isupportinitialize).endinit()
me.resumelayout(false)
end sub
#end region
dim strad as string = "skill/ad.gif"
dim fbd as new folderbrowserdialog
dim ofd as new openfiledialog
dim path as string = application.startuppath
private sub timer1_tick(byval sender as system.object, byval e as system.eventargs) handles
timer1.tick
try
me.label4.text = flash.framenum & "/" & flash.totalframes
me.trackbar1.value = flash.framenum
catch ex as exception
end try
end sub
private mouse_offset as point
private sub form1_mousedown(byval sender as object, byval e as system.windows.forms.mouseeventargs)
handles mybase.mousedown
mouse_offset = new point(e.x, e.y)
end sub
private sub form1_mousemove(byval sender as system.object, byval e as
system.windows.forms.mouseeventargs) handles mybase.mousemove
'按住鼠標左右鍵均可拖動窗體
if e.button = mousebuttons.left or e.button = mousebuttons.right then
dim mousepos as point = sender.findform().mouseposition
'獲得鼠標偏移量
mousepos.offset(-mouse_offset.x, -mouse_offset.y)
'設置窗體隨鼠標一起移動
sender.findform().location = mousepos
end if
end sub
#region " formload"
private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load
'.......列表循環（默認）
menuitem16.checked = true
bollooplst = true
flash.loop = false
'.........................
' me.maximizedbounds = new rectangle(22, 22, 526, 355)
me.text = "奔騰 flash player 1.0"
try
'picturebox
strad = getsetting("flashplayer", "ad", "strad", strad) '加載圖片的路徑
me.picturebox1.image = image.fromfile(strad) '加載圖片
'ico
' dim myico as new icon("skill/myico.ico")
' me.icon = myico
'===========加載皮膚==========================================
' from
' me.backgroundimage = image.fromfile("skill/formbg.bmp")
'label
' me.label2.backgroundimage = image.fromfile("skill/play.bmp")
' me.label3.backgroundimage = image.fromfile("skill/pause.bmp")
' me.label1.backgroundimage = image.fromfile("skill/title.bmp")
' me.label4.backgroundimage = image.fromfile("skill/framcount.bmp")
' me.label5.backgroundimage = image.fromfile("skill/openlist.bmp")
'button
' me.button1.backgroundimage = image.fromfile("skill/openfile.bmp")
' me.label2.backgroundimage = image.fromfile("skill/opendir.bmp")
'=================================================================
path = getsetting("flashplayer", "movie", "path", path)
dim file as fileinfo
dim dir as new directoryinfo(path)
for each file in dir.getfiles()
if file.fullname like "*.swf" then
dim str as string = file.fullname
me.listbox1.items.add(str.substring(str.lastindexof("/") + 1, str.lastindexof(".swf")
- str.lastindexof("/") - 1))
end if
next
flash.movie = path & "/" & me.listbox1.items.item(0) & ".swf"
flash.play()
sltcount = 0
catch ex as exception
msgbox("皮膚文件加載錯誤")
end try
end sub
#end region
#region "trackbar1_scroll"
private sub trackbar1_scroll(byval sender as system.object, byval e as system.eventargs) handles
trackbar1.scroll
flash.gotoframe(me.trackbar1.value - 1)
flash.play()
end sub
#end region
#region " me.backcolor = color.green"
private sub menuitem8_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem8.click
end sub
#end region
private sub menuitem12_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem12.click
me.opacity = 0.6
end sub
private sub menuitem13_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem13.click
me.opacity = val(inputbox("設置透明度（0.0 - 1.0)", "自由奔騰（wgscd）", 0.8))
end sub
private sub menuitem10_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem10.click
me.opacity = 1.0
end sub
private sub menuitem11_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem11.click
me.opacity = 0.3
end sub
private sub menuitem4_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem4.click
if menuitem4.checked = false then
menuitem4.checked = true
me.topmost = true
else : menuitem4.checked = false
me.topmost = false
end if
end sub
private sub menuitem5_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem5.click
end sub
private sub form1_closing(byval sender as object, byval e as system.componentmodel.canceleventargs)
handles mybase.closing
savesetting("flashplayer", "movie", "path", path)
savesetting("flashplayer", "ad", "strad", strad)
savesetting("flashplayer", "ad", "strad", strad)
end sub
private sub listbox1_selectedindexchanged(byval sender as system.object, byval e as system.eventargs)
handles listbox1.selectedindexchanged
dim str as string = me.listbox1.selecteditem
if str.indexofany("/") >= 0 then
try
flashp.movie = me.listbox1.selecteditem
flashp.stop()
catch ex as exception
end try
else
flashp.movie = path & "/" & listbox1.selecteditem & ".swf"
flashp.stop()
end if
end sub
dim sltcount as integer = 0 '保存當前選擇的項的index
private sub listbox1_doubleclick(byval sender as object, byval e as system.eventargs) handles
listbox1.doubleclick
sltcount = cint(me.listbox1.selectedindex) '保存當前選擇的項的index
dim str as string = me.listbox1.selecteditem
if str.indexofany("/") < 0 then
flash.movie = path & "/" & me.listbox1.selecteditem & ".swf"
try
me.trackbar1.maximum = flash.totalframes
catch ex as exception
end try
me.label1.text = me.listbox1.selecteditem
timer1.enabled = true
flash.play()
else : flash.movie = me.listbox1.selecteditem
flash.play()
end if
end sub
private sub label5_click(byval sender as system.object, byval e as system.eventargs) handles
label5.click
if me.width > me.listbox1.left + me.listbox1.width + 5 then
'
' me.width = me.listbox1.left + me.listbox1.width + 5
' me.height = me.listbox1.left + me.listbox1.width + 5
end if
if label5.text = " 1" then
label5.text = ""
else
label5.text = " 1"
end if
timer2.enabled = true
' if (me.width <> 528) or me.height <> 360 then
'me.text = me.width & " " & me.height
' me.text = formw
' me.width = 528
' me.height = 360
' end if
' if me.width >= me.width then
' me'width = me.width - me.listbox1.width - 8
' end if
end sub
dim clickpuse as boolean = false
private sub label3_click(byval sender as system.object, byval e as system.eventargs) handles
label3.click
flash.stopplay()
clickpuse = true
end sub
private sub label2_click(byval sender as system.object, byval e as system.eventargs) handles
label2.click
flash.play()
end sub
private sub menuitem14_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem14.click
flash.loop = true
menuitem16.checked = false
bollooplst = false
end sub
private sub menuitem19_click(byval sender as system.object, byval e as system.eventargs)
end sub
private sub menuitem21_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem21.click
try
dim f as integer
f = cint(val(inputbox("定位的幀數", "設置")))
if f < 0 or f > flash.totalframes then
msgbox("您的輸入不正確")
else : flash.gotoframe(f)
end if
catch ex as exception
end try
end sub
private sub menuitem22_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem22.click
flash.gotoframe(1)
flash.play()
end sub
private sub menuitem26_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem26.click
flash.quality = 1
end sub
private sub menuitem28_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem28.click
flash.quality = 0
end sub
private sub menuitem30_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem30.click
me.listbox1.refresh()
me.listbox1.items.clear()
me.listbox1.refresh()
end sub
private sub menuitem31_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem31.click
me.listbox1.refresh()
try
me.listbox1.items.remove(listbox1.selecteditem)
catch ex as exception
end try
me.listbox1.refresh()
end sub
private sub menuitem32_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem32.click
try
if flash.movie <> "" then
dim file as fileinfo
dim sfd as new savefiledialog
sfd.filter = "flashw文件|*.swf"
file = new fileinfo(flash.movie)
dim str as string = flash.movie
' sfd.filename = str.substring(str.lastindexof("/") + 1, str.lastindexof(".swf") -
str.lastindexof("/") - 1)
sfd.showdialog()
file.copyto(sfd.filename)
end if
catch ex as exception
msgbox("文件無法保存!")
end try
end sub
private sub picturebox1_click(byval sender as system.object, byval e as system.eventargs) handles
picturebox1.click
ofd.filter = "gif格式|*.gif|jpg格式|*.jpg|bmp格式|*.bmp"
ofd.multiselect = false
ofd.initialdirectory = "skill/"
if ofd.showdialog = dialogresult.ok then
me.picturebox1.image = image.fromfile(ofd.filename)
'adpath = ofd.filename.substring(ofd.filename.indexof(":"), ofd.filename.indexof(":") -
ofd.filename.lastindexof("/") + 1)
strad = ofd.filename
end if
end sub
private sub picturebox1_mouseenter(byval sender as object, byval e as system.eventargs) handles
picturebox1.mouseenter
with picturebox1
.width = 120
.height = 24
end with
end sub
private sub picturebox1_mouseleave(byval sender as object, byval e as system.eventargs) handles
picturebox1.mouseleave
with picturebox1
.width = 120
.height = 120
end with
flashp.width = picturebox1.width
end sub
private sub menuitem17_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem17.click
try
if menuitem17.checked = false then
menuitem17.checked = true
flash.play()
else : menuitem17.checked = false
flash.stopplay()
end if
catch ex as exception
end try
end sub
dim f2 as new form2
private sub menuitem24_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem24.click
f2.showdialog(me)
end sub
private sub button2_click(byval sender as system.object, byval e as system.eventargs) handles
button2.click
opendir()
end sub
private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles
button1.click
openfile()
end sub
private sub label2_mousedown(byval sender as object, byval e as system.windows.forms.mouseeventargs)
handles label2.mousedown
label2.top += 1
end sub
private sub label2_mouseup(byval sender as object, byval e as system.windows.forms.mouseeventargs)
handles label2.mouseup
label2.top -= 1
end sub
private sub label3_mousedown(byval sender as object, byval e as system.windows.forms.mouseeventargs)
handles label3.mousedown
label3.top += 1
end sub
private sub label3_mouseup(byval sender as object, byval e as system.windows.forms.mouseeventargs)
handles label3.mouseup
label3.top -= 1
end sub
private sub label5_mousedown(byval sender as object, byval e as system.windows.forms.mouseeventargs)
handles label5.mousedown
label5.width += 1
label5.left += 1
end sub
private sub label5_mouseup(byval sender as object, byval e as system.windows.forms.mouseeventargs)
handles label5.mouseup
label5.width -= 1
label5.left -= 1
end sub
private sub timer2_tick(byval sender as system.object, byval e as system.eventargs) handles
timer2.tick
if label5.text = " 1" then
me.width -= 22
if me.width <= flash.width + 22 then
me.width = flash.width + 22
timer2.enabled = false
end if
else
me.width += 22
if me.width >= me.flash.width + me.listbox1.width + 56 then
me.width = me.flash.width + me.listbox1.width + 56
timer2.enabled = false
end if
end if
'if
end sub
private sub menuitem35_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem35.click
dim cd as new colordialog
if cd.showdialog = dialogresult.ok then
me.backcolor = cd.color
end if
end sub
private sub menuitem7_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem7.click
trackbar1.backcolor = color.red
end sub
private sub menuitem33_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem33.click
trackbar1.backcolor = color.blue
end sub
private sub menuitem34_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem34.click
me.trackbar1.backcolor = color.purple
end sub
private sub menuitem37_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem37.click
dim cd as new colordialog
if cd.showdialog = dialogresult.ok then
me.listbox1.backcolor = cd.color
end if
end sub
private sub menuitem38_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem38.click
dim cd as new colordialog
if cd.showdialog = dialogresult.ok then
listbox1.forecolor = cd.color
listbox1.refresh()
end if
end sub
dim urlok as boolean = false
private sub menuitem6_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem6.click
try
dim url as string
url = cstr(inputbox("輸入有效的flas文件地址 " & chr(10) & chr(13) & "例如
http://www.sina.com.cn/wgscd.swf", "打開url", "http://169.254.230.51/w/thedayyouwentaway.swf"))
if url <> "0" andalso url like "*.swf" then
flash.movie = url
label1.text = "加載中。。。"
' flash.play()
urlok = true
'me.trackbar1.maximum = flash.totalframes
timer3.enabled = true
end if
catch ex as exception
end try
end sub
private sub timer3_tick(byval sender as system.object, byval e as system.eventargs) handles
timer3.tick
try
if flash.frameloaded(flash.totalframes) = false then
label4.text = "加載中。"
else
me.trackbar1.maximum = flash.totalframes
dim str as string = flash.movie
label1.text = str.substring(str.lastindexof("/") + 1, str.lastindexof(".swf") -
str.lastindexof("/") - 1)
flash.play()
timer1.enabled = true
timer3.enabled = false
end if
catch ex as exception
' msgbox("播放時出現錯誤" & ex.message.tostring)
'exit try
'exit sub
timer3.enabled = false
end try
end sub
private sub menuitem40_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem40.click
if listbox1.selecteditem <> "" then
dim file as fileinfo
dim sfd as new savefiledialog
sfd.filter = "flashw文件|*.swf"
file = new fileinfo(path & "/" & listbox1.selecteditem & ".swf")
sfd.filename = listbox1.selecteditem
sfd.showdialog()
file.copyto(sfd.filename)
else
msgbox("你沒有選擇要保存的項！")
end if
end sub
#region " 打開文件夾"
sub opendir()
fbd.selectedpath = path '初始化路徑（從注冊表得到）
if fbd.showdialog = dialogresult.ok then
me.listbox1.items.clear() ' 清空列表
dim file as fileinfo
dim dir as new directoryinfo(fbd.selectedpath)
for each file in dir.getfiles()
if file.fullname like "*.swf" then
dim str as string = file.fullname
'================如果列表里文件已經存在
' dim cl
' dim i as integer
' for i = 0 to me.listbox1.items.count - 1
' if str.substring(str.lastindexof("/") + 1, str.lastindexof(".swf") -
str.lastindexof("/") - 1) = cstr(me.listbox1.items(i)) then
' msgbox("提示：" & cstr(me.listbox1.items(i)) & "已經在列表中", msgboxstyle.okonly, "
提示")
' end if
' next
'====================================
me.listbox1.items.add(str.substring(str.lastindexof("/") + 1, str.lastindexof(".swf")
- str.lastindexof("/") - 1))
end if
next
path = fbd.selectedpath '保存文件夾路徑以便寫入注冊表
listbox1.refresh()
end if
end sub
#end region '
private sub menuitem42_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem42.click
ofd.filter = "jpg格式|*.jpg| gif格式|*.gif|bmp格式|*.bmp"
if ofd.showdialog = dialogresult.ok then
me.backgroundimage = image.fromfile(ofd.filename)
end if
end sub
private sub menuitem41_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem41.click
if menuitem41.checked = true then
menuitem41.checked = false
else
menuitem41.checked = true
me.backcolor = color.fromargb(cint(rnd(1) * 254 + 1), cint(rnd(1) * 254 + 1), cint(rnd(1) *
254 + 1))
end if
end sub
dim bollooplst as boolean = true
#region "menuitem16_click列表循環"
private sub menuitem16_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem16.click
me.listbox1.refresh()
if menuitem16.checked = true then
menuitem16.checked = false
bollooplst = false
flash.loop = true
' if flash.movie then
' me.listbox1.items.count(
else
menuitem16.checked = true
bollooplst = true
flash.loop = false
end if
end sub
#end region
#region "循環列表looplist()"
sub looplist()
end sub
#end region
private sub menuitem2_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem2.click
opendir()
end sub
#region "trackbar1_valuechanged 列表循環"
private sub trackbar1_valuechanged(byval sender as object, byval e as system.eventargs) handles
trackbar1.valuechanged
if bollooplst = true then
if flash.playing = false andalso flash.totalframes = flash.framenum + 1 then
if me.listbox1.items.count >= sltcount + 1 then
flash.movie = path & "/" & me.listbox1.items.item(sltcount + 1) & ".swf"
flash.play()
end if
if me.listbox1.items.count = sltcount then
flash.movie = path & "/" & me.listbox1.items.item(0) & ".swf"
flash.play()
end if
end if
end if
end sub
#end region
private sub button1_mousedown(byval sender as object, byval e as system.windows.forms.mouseeventargs)
handles button1.mousedown
button1.top += 1
end sub
private sub button1_mouseup(byval sender as object, byval e as system.windows.forms.mouseeventargs)
handles button1.mouseup
button1.top -= 1
end sub
private sub button2_mousedown(byval sender as object, byval e as system.windows.forms.mouseeventargs)
handles button2.mousedown
button2.top += 1
end sub
private sub button2_mouseup(byval sender as object, byval e as system.windows.forms.mouseeventargs)
handles button2.mouseup
button2.top -= 1
end sub
private sub form1_doubleclick(byval sender as object, byval e as system.eventargs) handles
mybase.doubleclick
label6.visible = false
label7.visible = false
label8.visible = false
menuitem39.text = "退出全屏"
fullscr()
end sub
dim isfullscr as boolean = false
dim f3 as new form3
#region "fullscr()"
sub fullscr()
try
dim si as systeminformation
dim strscr as size = si.primarymonitorsize
me.width = strscr.width
me.height = strscr.height
me.windowstate = formwindowstate.maximized
with flash
.width = strscr.width
.height = strscr.height
.top = 0
.left = 0
end with
f3.showdialog(me)
exitfull()
catch ex as exception
end try
end sub
#end region
private sub menuitem27_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem27.click
flash.stop()
me.visible = false
me.close()
end sub
private sub menuitem1_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem1.click
openfile()
end sub
public sub openfile()
ofd.filter = "flash movie|*.swf"
if ofd.showdialog = dialogresult.ok then
flash.movie = ofd.filename
flash.play()
me.label1.text = flash.movie.substring(flash.movie.lastindexof("/") + 1,
flash.movie.lastindexof(".swf") - flash.movie.lastindexof("/") - 1) '截掉多余的路徑
timer1.enabled = true
me.trackbar1.maximum = flash.totalframes
end if
end sub
sub exitfull()
'exitfull()
with me
.width = 552
.height = 360
end with
with flash
.width = 376
.height = 272
.top = 24
.left = 8
end with
me.windowstate = formwindowstate.normal
label6.visible = true
label7.visible = true
label8.visible = true
menuitem39.text = "全屏幕"
end sub
private sub menuitem20_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem20.click
try
sltcount += 1
if me.listbox1.items.count > sltcount then
flash.movie = path & "/" & me.listbox1.items.item(sltcount) & ".swf"
flash.play()
me.listbox1.refresh()
' msgbox(me.listbox1.items.count & sltcount)
else
flash.movie = path & "/" & me.listbox1.items.item(0) & ".swf"
flash.play()
sltcount = 0
end if
catch ex as exception
end try
end sub
private sub label8_click(byval sender as system.object, byval e as system.eventargs) handles
label8.click
me.windowstate = formwindowstate.minimized
end sub
private sub label8_mousedown(byval sender as object, byval e as system.windows.forms.mouseeventargs)
handles label8.mousedown
label8.top += 1
end sub
private sub label8_mouseup(byval sender as object, byval e as system.windows.forms.mouseeventargs)
handles label8.mouseup
label8.top -= 1
end sub
private sub label7_mousedown(byval sender as object, byval e as system.windows.forms.mouseeventargs)
handles label7.mousedown
label7.top += 1
end sub
private sub label7_mouseup(byval sender as object, byval e as system.windows.forms.mouseeventargs)
handles label7.mouseup
label7.top -= 1
end sub
private sub label6_mousedown(byval sender as object, byval e as system.windows.forms.mouseeventargs)
handles label6.mousedown
label6.top += 1
end sub
private sub label6_mouseup(byval sender as object, byval e as system.windows.forms.mouseeventargs)
handles label6.mouseup
label6.top -= 1
end sub
private sub label7_click(byval sender as system.object, byval e as system.eventargs) handles
label7.click
label6.visible = false
label7.visible = false
label8.visible = false
form1_doubleclick(sender, e)
end sub
private sub label6_click(byval sender as system.object, byval e as system.eventargs) handles
label6.click
flash.stop()
me.visible = false
me.close()
end sub
private sub menuitem39_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem39.click
if menuitem39.text = "全屏幕" then
menuitem39.text = "退出全屏"
fullscr()
else : menuitem39.text = "全屏幕"
fullscr()
form2.activeform.close()
end if
end sub
end class
'========================form2
public class form2
inherits system.windows.forms.form
#region " windows 窗體設計器生成的代碼 "
public sub new()
mybase.new()
'該調用是 windows 窗體設計器所必需的。
initializecomponent()
'在 initializecomponent() 調用之后添加任何初始化
end sub
'窗體重寫 dispose 以清理組件列表。
protected overloads overrides sub dispose(byval disposing as boolean)
if disposing then
if not (components is nothing) then
components.dispose()
end if
end if
mybase.dispose(disposing)
end sub
'windows 窗體設計器所必需的
private components as system.componentmodel.icontainer
'注意: 以下過程是 windows 窗體設計器所必需的
'可以使用 windows 窗體設計器修改此過程。
'不要使用代碼編輯器修改它。
friend withevents picturebox1 as system.windows.forms.picturebox
friend withevents button1 as system.windows.forms.button
friend withevents richtextbox1 as system.windows.forms.richtextbox
<system.diagnostics.debuggerstepthrough()> private sub initializecomponent()
dim resources as system.resources.resourcemanager = new system.resources.resourcemanager(gettype
(form2))
me.picturebox1 = new system.windows.forms.picturebox
me.button1 = new system.windows.forms.button
me.richtextbox1 = new system.windows.forms.richtextbox
me.suspendlayout()
'
'picturebox1
'
me.picturebox1.image = ctype(resources.getobject("picturebox1.image"), system.drawing.image)
me.picturebox1.location = new system.drawing.point(0, 8)
me.picturebox1.name = "picturebox1"
me.picturebox1.size = new system.drawing.size(152, 240)
me.picturebox1.sizemode = system.windows.forms.pictureboxsizemode.stretchimage
me.picturebox1.tabindex = 0
me.picturebox1.tabstop = false
'
'button1
'
me.button1.font = new system.drawing.font("宋體", 10.5!, system.drawing.fontstyle.regular,
system.drawing.graphicsunit.point, ctype(134, byte))
me.button1.location = new system.drawing.point(160, 216)
me.button1.name = "button1"
me.button1.size = new system.drawing.size(192, 32)
me.button1.tabindex = 1
me.button1.text = "自由奔騰(wgscd)"
'
'richtextbox1
'
me.richtextbox1.backcolor = system.drawing.color.fromargb(ctype(224, byte), ctype(224, byte),
ctype(224, byte))
me.richtextbox1.borderstyle = system.windows.forms.borderstyle.fixedsingle
me.richtextbox1.location = new system.drawing.point(160, 8)
me.richtextbox1.name = "richtextbox1"
me.richtextbox1.size = new system.drawing.size(192, 200)
me.richtextbox1.tabindex = 2
me.richtextbox1.text = "richtextbox1"
'
'form2
'
me.autoscalebasesize = new system.drawing.size(6, 14)
me.clientsize = new system.drawing.size(360, 253)
me.controls.add(me.richtextbox1)
me.controls.add(me.button1)
me.controls.add(me.picturebox1)
me.formborderstyle = system.windows.forms.formborderstyle.fixedtoolwindow
me.name = "form2"
me.showintaskbar = false
me.text = "關于"
me.resumelayout(false)
end sub
#end region
private sub form2_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load
richtextbox1.clear()
dim str as string = " 謝謝您使用奔騰flash plyaer 1.0，本程序由自由奔騰（wgscd）所寫！未經本人許可
不得篡改源代碼，也不得用于任何商業用途！今天（2005/02/7）早上起來已經下午3點多了，最近老做惡夢，不是大蛇就
是殺人，暈！也沒有飯吃，明天就過年了，一個人在宿舍又冷又餓，確實沒有什么打發時間的好辦法，于是又懶懶地打開
vs.net 2003 拖幾個控件 便做成了這個。嘿嘿，ms的東西就兩個字：好使！好在我不是計算機專業的，這個小程序有許
多bug我解決不了可以脫罪了！不過，你發現了還請您提出來建議改進。或者您有好的想法也可以給我說，先謝了！估計
我自己才看到自己寫的 我的 e-mail: [email protected] qq: 153964481 "
me.richtextbox1.text = str
end sub
private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles
button1.click
me.close()
end sub
end class
'===================form3
public class form3
inherits system.windows.forms.form
#region " windows 窗體設計器生成的代碼 "
public sub new()
mybase.new()
'該調用是 windows 窗體設計器所必需的。
initializecomponent()
'在 initializecomponent() 調用之后添加任何初始化
end sub
'窗體重寫 dispose 以清理組件列表。
protected overloads overrides sub dispose(byval disposing as boolean)
if disposing then
if not (components is nothing) then
components.dispose()
end if
end if
mybase.dispose(disposing)
end sub
'windows 窗體設計器所必需的
private components as system.componentmodel.icontainer
'注意: 以下過程是 windows 窗體設計器所必需的
'可以使用 windows 窗體設計器修改此過程。
'不要使用代碼編輯器修改它。
friend withevents contextmenu1 as system.windows.forms.contextmenu
friend withevents menuitem1 as system.windows.forms.menuitem
friend withevents timer1 as system.windows.forms.timer
<system.diagnostics.debuggerstepthrough()> private sub initializecomponent()
me.components = new system.componentmodel.container
me.contextmenu1 = new system.windows.forms.contextmenu
me.menuitem1 = new system.windows.forms.menuitem
me.timer1 = new system.windows.forms.timer(me.components)
'
'contextmenu1
'
me.contextmenu1.menuitems.addrange(new system.windows.forms.menuitem() {me.menuitem1})
'
'menuitem1
'
me.menuitem1.index = 0
me.menuitem1.text = "退出全屏"
'
'timer1
'
'
'form3
'
me.autoscalebasesize = new system.drawing.size(6, 14)
me.clientsize = new system.drawing.size(344, 248)
me.contextmenu = me.contextmenu1
me.formborderstyle = system.windows.forms.formborderstyle.none
me.name = "form3"
me.opacity = 0
me.showintaskbar = false
me.text = "form3"
end sub
#end region
public sub form3_doubleclick(byval sender as object, byval e as system.eventargs) handles
mybase.doubleclick
me.close()
end sub
private sub form3_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load
me.contextmenu = nothing
exitfullscr = true
me.opacity = 0.01
with me
.width = form1.activeform.width
.height = form1.activeform.height
.top = 0
.left = 0
end with
me.contextmenu = form1.activeform.contextmenu
end sub
private sub menuitem1_click(byval sender as system.object, byval e as system.eventargs) handles
menuitem1.click
me.close()
end sub
private sub timer1_tick(byval sender as system.object, byval e as system.eventargs) handles
timer1.tick
if me.contextmenu.menuitems.item(20).text = "退出全屏" then
me.close()
timer1.enabled = false
end if
end sub
private sub form3_closing(byval sender as object, byval e as system.componentmodel.canceleventargs)
handles mybase.closing
end sub
end class
