'**************************** The Pentium Flash Player
'All code includes 3 form'Author: WGSCD (free Pentium)' Date: 2005-3'QQ: 153964481 'Description: Since the final debug code is lost, maybe Form1's code has bug', this Application has been used. Picture, you will not be able to directly post the code to the IDE, you will have a beautiful interface, '*************************************************************************************************************************************************************************************************************************** Imports System.IOIMPORTS System.Netpublic Module Publicvar
Public EXITFULLSCR As Boolean = FALSE
'Public Framnums As INTEGER
End module
Public class form1 inherits system.windows.Forms.form
#Region "Windows Form Designer Generated Code"
Public Sub new () mybase.new ()
'This call is required for the Windows Form Designer. InitializeComponent ()
'Add any initialization after INITIALIZECOMPONENT ()
End Sub
'Form rewriting Dispose to clean up the list of components. Protected overloads overrides sub dispose (byval disposing as boolean) ing disponation kiln (Components Is Nothing) Then components.dispose () end if endiffs) End sub
'Windows Form Designer Supply Private Components as System.comPonentModel.icontainer
'Note: The following procedure is necessary to use the Windows Form Designer to modify this process using the Windows Form Designer. 'Don't modify it using the code editor.
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 . Form.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.Menuit em 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
(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.w indows.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 13 = 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.Menu Item 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, "Open Single File") '' 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, "browse folder, all of the files under the folder will add a list of SWFs") '' Label1 'me.label1.backcolor = system.drawing.color .Fromargb (ctype (192, byte), ctype (0, byte), ctype (0, byte) me.label1.font = new system.drawing.font ("Song", 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 = "Free Pentium (WGSCD)" Me.Tooltip1.SetTooltip (Me.Label1, "Currently Played 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.tault1.Settooltip (Me.Trackbar1, "Time Frame, Drag") '' '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 = "Open a single file" '' Menuitem2 'me.Menuitem2. Index = 1 me.Menuitem2.text = "Open folder" '' menuitem6 'me.Menuitem6.index = 2 me.Menuitem6.text = "Open URL"' 'meneuitem29' me.Menuitem29.index = 3 me.Menuitem29. Text = "-" '' menuitem19 'me.Menuitem19.index = 4 me.Menuitem19.text = "Search IE Cache"' 'Menuitem3' Me.Menuitem3.Index = 5 me.MenuItem3.Text = "-" 'Menuitem4 'Me.Menuitem4.index = 6 me.Menuitem4.text = "always the first"' 'menuItem42' me.menuitem42.index = 7 me.menuitem42.text = "change the background" '' Menuitem5 'Me.Menuitem5. Index = 8 me.Menuitem5.MenuItems.Addrange (N EW system.windows.forms.MenuItem () {me.Menuitem7, Me.Menuitem8,
Me.Menuitem33, Me.Menuitem34, Me.Menuitem41, Me.Menuitem35}) Me.Menuitem5.text = "Change the frame color" '' menuitem7 'me.Menuitem7.index = 0 me.Menuitem7.text = "red" '' Menuitem8 'me.Menuitem8.index = 1 me.Menuitem8.text = "green"' 'menuitem33' me.Menuitem33.index = 2 me.Menuitem33.text = "blue" '' menuitem34 'me.Menuitem34.index = 3 me.Menuitem34.text = "purple" '' menuitem41 'me.menuitem41.index = 4 me.MenuItem41.text = "Random"' '' meneuitem35 'me.Menuitem35.index = 5 me.MenuItem35.Text = "custom "'' Meneuitem15 '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 = "Form transparent" '' '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%"' 'meneuitem13' me.Menuitem13.index = 3 me.Menuitem13.Text = "Custom" '' Menuitem14 'Me.Menuitem14.index = 11 me.Menuitem14.text = "Animation loop"' 'menuitem16' me.menuitem16.index = 12 me.MenuItem16.text = "list loop" '' menuitem18 'Me.Menuitem18.index = 13 me.Menuitem18.text = "-"' 'menuitem17' me.Menuitem17.index = 14 me.Menuitem17.text = "Play" '' meNuitem20 'me.Menuitem20.index = 15 me. Menuitem20.text = "Next" ' 'Menuitem21' me.menuitem21.index = 16 me.Menuitem21.text = "Specify to frame" '' '' me.Menuitem22.index = 17 me.Menuitem22.text = "Restart" '' 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 = "Quality" '' menuitem26 'me.Menuitem26.index = 0 me .Menuitem26.text = "High" '' menuItem28 'me.Menuitem28.index = 1 me.Menuitem28.text = "low"' 'menuitem39' me.Menuitem39.index = 20 me.Menuitem39.text = "full screen" ' 'Menuitem24' me.Menuitem24.index = 21 me.Menuitem24.text = "About" '' 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.SerectionMode.Multiex tended Me.ListBox1.Size = New System.Drawing.Size (120, 160) Me.ListBox1.TabIndex = 5 Me.ToolTip1.SetToolTip (Me.ListBox1, "Flash list") '' ContextMenu2 'Me.ContextMenu2.MenuItems. AddRange (new system.windows.forms.MenuItem () {me.MenuItem 30,
Me.Menuitem31, Me.Menuitem40, Me.Menuitem32, Me.Menuitem36, Me.Menuitem37, Me.Menuitem38} '' 'menuitem30' me.MenuItem30.Index = 0 me.MenuItem30.Text = "Clear list" '' MenuItem31 ' Me.Menuitem31.index = 1 me.MenuItem31.text = "Clear Selection" '' Menuitem40 'me.MenuItem40.index = 2 me.MenuItem40.Text = "item is saved as"' Menuitem32 'me.MenuItem32.index = 3 me.Menuitem32.text = "Animation Save As" '' Menuitem36 'Me.Menuitem36.index = 4 me.Menuitem36.Text = "-"' 'Menuitem37' me.Menuitem37.index = 5 me.Menuitem37.Text = " Change list background color "'' meneuitem38 'me.Menuitem38.index = 6 me.Menuitem38.text =" change list text color "' '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 ("Chinese Song Song", 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, "play") '' 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 ("Song", 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, "Pause") '' 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, "Frame number") '' 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, "preview") '' 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,
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," Folding list ") '' 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, "click to Change picture") '' 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.adeoscalebasesize = 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.FormBorde RStyle = system.windows.Forms.formBordersty.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 Off AS New OpenFiledialog Dim Path AS String = Application.startuppath
Private sub timer1_tick (byval e as system.EventArgs) handlestimer1.tick try me.label4.text = flash.framenum & "& flash.totalframes
Me.trackbar1.value = flash.framenum
Catch exception
END TRY
End Sub Private Mouse_offset As Point Private Sub Form1_Mousedown (Byval E AS Object, Byval E AS ISTEM.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 'can hold the right mouse button to drag the form If e.Button = MouseButtons.Left Or e.Button = MouseButtons.Right Then Dim mousePos As Point = Sender.findform ( ) .MousePosition 'Get the mouse offset mousepos.offset (-Mouse_offset.x, -mouse_offset.y)' Setting the form to move Sender.FindForm together with the mouse. Location = mousepos end if End SUB
#Region "Formloy"
Private Sub Form1_Load (Byval E AS System.EventArgs) Handles MyBase.Load '....... list loop (default)
Menuitem16.checked = true bollooplst = true flash.loop = false '.......................
'Me.maximizedbounds = new Rectangle (22, 22, 526, 355)
Me.Text = "Pentium Flash Player 1.0" Try 'PictureBox strad = getSetting ("FlashPlayer", "AD", "strad", strad) loaded path ME.PICTUREBOX1.IMAGE = Image.FromFile (strad)' loading image
'Ico' Dim Myico As New Icon ("Skill / Myico.iico") 'me.icon = myico' =========== loading skin ============= ==============================
'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 / frame")' 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 DIR AS New DirectoryInfo (PATH) for Each File in Dir.GetFiles ()
If File.Fullname Like "* .swf" The Dim Str as string = file.fullname.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 exception
MSGBOX ("Skin Document Loading Error")
END TRY
End Sub
#End region
#Region "TRACKBAR1_SCROLL"
Private sub trackbar1_scroll (Byval e 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 E AS System.Object, Byval E As System.EventAndargs) Handles
Menuitem8.click
End Sub # end region private sub meutsm12_click (byval sender as system.Object, byval e as system.eventargs) Handles
Menuitem12.click me.opacity = 0.6 End Sub
Private Sub Menuitem13_Click (Byvale AS System.Object, ByVal E AS System.Eventargs) Handles
Menuitem13.click
Me.opacity = VAL (INPUTBOX ("Setting Transparency (0.0 - 1.0)", "Free Pentium (WGSCD)", 0.8))
End Sub
Private Sub Menuitem10_Click (Byvale 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 (Byvale 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 SubPrivate Sub MenuItem5_Click (ByVal sender As System.Object, ByVal e As System .Eventargs) Handles
Menuitem5.click
End Sub
Private Sub Form1_Closing (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 placebox1_selectedIndexchanged (Byval E 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 exception
END TRY
Else Flashp.Movie = Path & "/" & ListBox1.SelectedItem & ".swf"
Flashp.Stop () end if End subdcount as integer = 0 'Save the INDEX Private Sub ListBox1_doubleclick (Byval Sender As Object, Byval E as System.EventArgs) Handles
ListBox1.doubleClick Sltcount = cint (me.listbox1.selected ") 'Save the INDEX DIM STR AS STRING = me.listbox1.selectedItem for the currently selected item
IF str.indexofany ("/") <0 THEN
Flash.movie = path & "/" & me.listbox1.selecteditem & ".swf" TRY
Me.trackbar1.maximum = flash.totalframescatch 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 E 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 E AS System.EventArgs) Handles
Label3.click flash.stopplay () ClickPuse = TRUE
End Sub
Private sub Label2_click (Byval e as system.Object, byval e as system.eventargs) Handles
Label2.click flash.play () end sub
Private Sub Menuitem14_Click (Byvale 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 E AS System.Object, Byval E AS System.Eventargs) End Sub
Private Sub Menuitem21_Click (Byval E AS System.Object, Byval E AS System.EventArgs) Handles
Menuitem21.click Try
DIM F AS INTEGER F = CINT (Val (INPUTBOX ("Positioning Frame Number of Frames"))))))))))))))))) IF F <0 or f> Flash.TotAlframes Then Msgbox ("Your input is incorrect")
Else: Flash.gotoframe (f)
End if catch ex asktion
END TRY END SUB
Private Sub Menuitem22_Click (Byvale 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 (Byvale AS System.Object, ByVal E AS System.EventAndargs) Handles
Menuitem28.click flash.quality = 0 End Sub
Private Sub Menuitem30_Click (Byvale 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 exception
END TRY
Me.Listbox1.refresh () end sub
Private Sub Menuitem32_Click (Byval Sender As System.Object, Byval E AS System.EventAndargs) Handles
Menuitem32.click Try
IF Flash.Movie <> "" ""
DIM File As Fileinfo Dim SFD AS New SavefileDialog Sfd.Filter = "Flashw File | * .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 exception
Msgbox ("files can't save!")
END TRY
End Sub
Private Sub PictureBox1_click (Byvale AS System.Object, ByVal E AS System.Eventargs) Handles
Picturebox1.click OFD.FILTER = "GIF format | * .gif | jpg format | * .jpg | BMP format | * .bmp" OFD.MULTIRECT = FALSE OFD.INITIALDIRECTORY = "Skill /"
IF OFD.SHOWDIALOG = DialogResult.ok Then
Me.PictureBox1.Image = image.FireName) '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 e as system.eventargs) Handles
PictureBox1.mouseEnter
With Picturebox1
.Width = 120.Height = 24
End with
End Sub
Private Sub PictureBox1_mouseeleave (Byval e as system.eventargs) Handles
Picturebox1.mouselave
With Picturebox1
.Width = 120 .height = 120
End with flashp.width = Picturebox1.width
End Sub
Private Sub Menuitem17_Click (Byvale AS System.Object, ByVal E As System.EventArgs) Handles
Menuitem17.click try if menuitem17.checked = false kil
Menuitem17.checked = true flash.play () else: menuitem17.checked = false flash.stopplay () end if catch exception
END TRY
End Sub Dim F2 As New Form2 Private Sub Menuitem24_Click (Byval E AS System.Event, ByVal E AS System.EventArgs) Handles
Menuitem24.click f2.showdialog (me)
End Sub
Private sub Button2_click (Byvale AS System.Object, Byval E As System.EventAndargs) Handles
Button2.click opendir ()
End Sub
Private sub button1_click (byvale) Handles (Byval e as system.object, byval e as system.Object
Button1.click
Openfile ()
End Sub
Private sub label2_mousedown (Byval e as system.windows.Forms.MouseEventArgs)
Handles label2.mousedown label2.top = 1
End Sub
Private sub Label2_Mouseup (Byval e as system.windows.Forms.MouseEventArgs)
Handles label2.mouseup label2.top - = 1 End Sub
Private sub Label3_Mousedown (Byval e as system.windows.forms.mouseeventargs)
Handles label3.mousedown label3.top = 1
End Sub Private Sub Label3_Mouseup (Byval E AS ISTEM.WINDOWS.FORMS.MOUSEEventArgs)
Handles label3.mouseup label3.top - = 1 End Sub
Private sub Label5_Mousedown (Byval E AS ISTEM.WINDOWS.FORMS.MOUSEEventArgs)
Handles label5.mousedown label5.width = 1 label5.Left = 1 End Sub
Private sub label5_mouseup (Byval e as system.windows.Forms.MouseEventArgs)
Handles label5.mouseup label5.width - = 1 label5.Left - = 1
End Sub
Private sub timer2_tick (byval e as system.Event, byval e as system.eventargs) handlestimer2.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 (Byvale 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 (Byvale 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.EventAndargs) 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 E 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 (Byvale AS System.Object, ByVal E AS System.EventArgs) Handles
Menuitem38.Click DIM CD as New Colordialog if Cd.ShowDialog = DialogResult.ok kilistbox1.forecolor = cd.color
Listbox1.refresh () end if
End Sub
DIM URLOK As Boolean = False Private Sub Menuitem6_Click (Byval E AS System.Object, Byval E AS System.EventArgs) Handles
Menuitem6.Click Try
DIM URL AS STRING URL = CSTR ("InputBox" & chr (10) & chr (13) & "
Http://www.sina.com.cn/wgscd.swf "," Open URL "," http://169.254.230.51/w/thedayyouway.swf ")) IF URL <>" 0 "Andalso URL LIKE" * .swf "killash.movie = url label1.text =" load. . . "
'Flash.play () urlok = true' me.trackbar1.maximum = flash.totalframes Timer3.enabled = true end if catch 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 the label4.text = "load."
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 endiff
Catch exception 'msgbox ("Errors" & ex.Message.toString)' exit try 'exit sub timer3.enabled = false
END TRY END SUB
Private Sub Menuitem40_Click (Byval e as system.EventArgs) HandlesMenuItem40.Click
If ListBox1.SelectedItem <> "" "
Dim file as fileinfo
DIM SFD AS New SavefileDialog sfd.filter = "Flashw file | * .swf" file = new fileinfo (path & "/" & listbox1.selecteditedItem & ".swf")
sfd.filename = listbox1.selectedItem
sfd.showdialog () file.copyto (sfd.filename)
Else Msgbox ("You didn't choose the item you want to save!")
END IF
End Sub
#Region "Open Folder"
SUB OpenDir ()
fbd.selectedPath = path 'initialization path (obtained from registry)
If fbd.showdialog = DialogResult.ok the me.listbox1.items.clear () Empty List DIM File As FileInfo DIM DIR AS New DirectoryInfo (fbd.selectedPath)
For Each File in Dir.GetFiles ()
If File.Fullname Like "* .swf" the Dim Str as string = file.Fullname '================ If the file already exists in the list already existing' 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 ("Tip:" & CSTR (Me.ListBox1.Items (i)) & "already in the list", msgboxstyle.okonly, "
prompt")
'End if
'Next' ============================================ me.Listbox1.Items.Add (Str.Substring (Str.lastIndexof ("/") 1, str.lastindexof (". SWF") - str.lastIndexof ("/") - 1))
END IF
Next path = fbd.selectedPath 'Save folder path to write registry listbox1.refresh () endiff
End Sub
#End region '
Private Sub Menuitem42_Click (Byvale AS System.Object, ByVal E AS System.EventArgs) Handles
Menuitem42.click
OFD.FILTER = "JPG Format | * .jpg | GIF Format | * .gif | BMP Format | * .BMP"
IF OFD.SHOWDIALOG = DialogResult.ok Then
Me.BackgroundImage = image.fromfile (OFD.FileName)
END IF
End Sub
Private Sub Menuitem41_Click (Byvale AS System.Object, Byval E AS System.EventAndargs) HANDLES
Menuitem41.click if menuitem41.checked = true kil
Menuitem41.checked = false else menuitem41.checked = true me.backcolor = color.fromargb (CINT (RND (10) * 254 1), CINT (RND (1) * 254 1), CINT (RND (1) *
254 1))))
END IF
End Sub
Dim bollooplst as boolean = TRUE
#Region "Menuitem16_Click list loop"
Private Sub Menuitem16_Click (Byvale AS System.Object, Byval E AS System.EventAndargs) Handles
Menuitem16.click
Me.Listbox1.refresh ()
IF meNuitem16.checked = true kil
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 "loop list looplist ()" sub looplist ()
End Sub # end region
Private Sub Menuitem2_Click (ByVal Sender As System.Object, Byval E AS System.EventAndargs) Handles
Menuitem2.click
OpenDir ()
End Sub
#REGON "TRACKBAR1_VALUECHANGED list loop"
Private Sub TrackBar1_ValueChanged (Byval e as system.eventargs) Handles
TRACKBAR1.VALUECHANGED
If BolloPlst = True Then
If Flash.Playing = false andalso flash.totalframes = flash.framenum 1 THEN
If me.listbox1.items.count> = sltcount 1 weight.movie = path & "/" & me.listbox1.items.Item (Sltcount 1) & ".swf" Flash.Play () end if
If me.listbox1.items.count = sltcount kilow.movie = path & "& me.listbox1.items.Item (0) &" .swf "flash.play () endiff
END IF
END IF
End Sub # end region
Private sub button1_mousedown (Byval e as system.windows.Forms.MouseEventArgs)
Handles Button1.MouseDown Button1.top = 1
End Sub
Private sub button1_mouseup (Byval e as system.windows.forms.mouseeventargs)
Handles button1.mouseup button1.top - = 1 End Sub
Private sub button2_mousedown (Byval e as system.windows.forms.mouseeventargs) Handles Button2.MouseDown Button2.top = 1
End Sub
Private sub button2_mouseup (Byval e as system.windows.Forms.MouseEventArgs)
Handles button2.mouseup button2.top - = 1 End Sub
Private Sub Form1_doubleClick (Byval e as system.eventargs) Handles
Mybase.doubleclick label6.visible = false label7.visible = false label8.visible = false menuItem39.text = "Exit full screen" 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 exception
End Try End Sub # end region
Private Sub Menuitem27_Click (Byval e 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 E AS System.Object, Byval E AS System.EventAndargs) Handles
Menuitem1.click OpenFile ()
End sub public sub openfile ()
OFD.FILTER = "Flash movie | * .swf"
IF OFD.SHOWDIALOG = DialogResult.OK kilname Flash.Play () me.label1.text = flash.Movie.Substring (Flash.Movie.lastIndexof ("/") 1, Flash.Movie. LastIndexof (". SWF") - Flash.Movie.lastindexof ("/") - 1) '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 = forml6.visible = true label7.visible = true label8.visible = true menuitem39.text = "full screen"
End Sub
Private Sub Menuitem20_Click (Byval e as system.Object, byval e as system.eventargs) Handles
Menuitem20.click
TRY SLTCOUNT = 1
If me.listbox1.items.count> Sltcount the Flash.Movie = path & "& me.listbox1.items.item (sltcount) &" .swf "flash.play () me.listbox1.refresh () 'msgbox (Me.ListBox1.Items.count & slount) Else Flash.Movie = path & "/" & me.listbox1.items.Item (0) & ".swf"
Flash.Play () Sltcount = 0
End if catch ex asktion
END TRY END SUB
Private sub Label8_Click (Byval e as system.Object, byval e as system.eventargs) Handles
Label8.click
Me.WindowState = FormWindowState.minimized
End Sub
Private sub label8_mousedown (byval e as system.windows.forms.mouseeventargs) handles label8.mousedown
Label8.top = 1
End Sub
Private sub Label8_Mouseup (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 E AS ISTEM.WINDOWS.FORMS.MOUSEEventArgs)
Handles label7.mouseup
Label7.top - = 1
End Sub
Private sub label6_mousedown (byvale) (Byval e as system.windows.forms.mouseeventargs)
Handles label6.mousedown label6.top = 1
End Sub
Private sub label6_mouseup (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 e 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 e as system.Object, byval e as system.eventargs) Handles
Menuitem39.click if Menuitem39.text = "Full Screen" Then Menuitem39.text = "Exit full screen"
Fullscr ()
Else: Menuitem39.Text = "Full Screen" Fullscr ()
FORM2.Activeform.close () end if
End Sub
END CLASS
'================================ form2public class form2 inherits system.windows.Forms.form
#Region "Windows Form Designer Generated Code"
Public Sub new () mybase.new ()
'This call is required for the Windows Form Designer. InitializeComponent ()
'Add any initialization after INITIALIZECOMPONENT ()
End Sub
'Form rewriting Dispose to clean up the list of components. Protected overloads overrides sub dispose (byval disposing as boolean) ing disponation kiln (Components Is Nothing) Then components.dispose () end if endiffs) End sub
'Windows Form Designer Supply Private Components as System.comPonentModel.icontainer
'Note: The following procedure is necessary to use the Windows Form Designer to modify this process using the Windows Form Designer. 'Don't modify it using the code editor. Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
(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 ("Song", 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 = "Free Pentium (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 = "About" Me.ResumeLayout (false) End Sub
#End region
Private Sub Form2_Load (Byval E AS System.EventArgs) Handles mybase.load richtextbox1.clear () DIM STR AS STRING = "Thank you for using Pentium Flash Plyaer 1.0, this program is used by Free Pentium (WGSCD) Write! Not licensed
Do not tamper with the source code and must not be used for any commercial use! Today (2005/02/7) has gone 3 o'clock in the morning, and the nearest dream is not a big snake.
It is killing, dizzy! There is no food to eat, tomorrow is New Year, a person is cold and hungry, and there is really no good way to send time, so I opened it again.
VS.NET 2003 Drag a few controls have been made. Hey, MS's things are two words: good! Fortunately, I am not a computer professional, this applet is like
Multi Bug I can't solve it! However, you have found it, please ask you suggested improvement. Or you have a good idea to tell me, thank you! estimate
I only saw my e-mail you wrote myself: wgscd@126.com QQ: 153964481
Me.richtextbox1.text = STR
End Sub
Private sub button1_click (byvale) Handles (Byval e as system.object, byval e as system.Object
Button1.clickme.close () end sub
END CLASS
'==================== Form3
Public class form3 inherits system.windows.Forms.form
#Region "Windows Form Designer Generated Code"
Public Sub new () mybase.new ()
'This call is required for the Windows Form Designer. InitializeComponent ()
'Add any initialization after INITIALIZECOMPONENT ()
End Sub
'Form rewriting Dispose to clean up the list of components. Protected overloads overrides sub dispose (byval disposing as boolean) ing disponation kiln (Components Is Nothing) Then components.dispose () end if endiffs) End sub
'Windows Form Designer Supply Private Components as System.comPonentModel.icontainer
'Note: The following procedure is necessary to use the Windows Form Designer to modify this process using the Windows Form Designer. 'Don't modify it using the code editor. Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem Friend WithEvents Timer1 As System.Windows.Forms.Timer
#End region
Public Sub Form3_DoubleClick (Byval e as system.eventargs) Handles
Mybase.doubleclick
Me.close ()
End Sub
Private Sub Form3_Load (Byvale 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 = 0nd with
Me.ContextMenu = form1.activeform.ContextMenu
End Sub
Private Sub Menuitem1_Click (Byval E AS System.Object, Byval E AS System.EventAndargs) 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 = "Exit full screen" THEN
Me.Close () Timer1.enabled = false
End if End Sub
Private Sub Form3_Closing (Byval e as system.componentmodel.canceleventargs)
Handles mybase.closing
End Sub
END CLASS
