Paul's Project

Public Class Form1 Private Structure LayOutSettings Dim PictureFileName Dim MyCurrentSettingFileName As String End Structure Private MyLayOut As New LayOutSettings
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown Select Case e.KeyCode Case Keys.Down If e.Control = True Then Label1.Top = (Label1.Top + 10) Else : Me.Opacity = Me.Opacity - 0.1 End If Case Keys.Up If e.Control = True Then Label1.Top = Label1.Top - 10 Else Me.Opacity = Me.Opacity + 0.1
End If Case Keys.Left If e.Control = True Then Label1.Left = Label1.Left - 10 End If Case Keys.Right If e.Control = True Then Label1.Left = Label1.Left + 10 End If End Select End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.BorderStyle = BorderStyle.None Me.BackColor = Color.White Me.KeyPreview = True
End Sub
Private Sub FontToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontToolStripMenuItem.Click FontDialog1.ShowDialog() Label1.Font = FontDialog1.Font
End Sub
Private Sub FontColorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontColorToolStripMenuItem.Click ColorDialog1.ShowDialog() Label1.ForeColor = ColorDialog1.Color End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click Form2.show() End Sub
Private Sub SolidToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SolidToolStripMenuItem.Click Label1.BorderStyle = BorderStyle.FixedSingle End Sub
Private Sub NoneToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NoneToolStripMenuItem.Click Label1.BorderStyle = BorderStyle.None End Sub
Private Sub SolidToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SolidToolStripMenuItem1.Click Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable End Sub
Private Sub NoneToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NoneToolStripMenuItem1.Click Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None End Sub
Private Sub TransparencyColorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TransparencyColorToolStripMenuItem.Click ColorDialog1.ShowDialog() Me.TransparencyKey = ColorDialog1.Color End Sub
Private Sub LoadPictureToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoadPictureToolStripMenuItem.Click OpenFileDialog1.ShowDialog() MyLayOut.PictureFileName = OpenFileDialog1.FileName Me.BackgroundImage = System.Drawing.Image.FromFile(MyLayOut.PictureFileName)
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click Me.Close() End Sub
Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click Dim oForm As New Form1 oForm.Show() End Sub
Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaVeToolStripMenuItem.Click SaveFileDialog1.ShowDialog() SaveMySettings(SaveFileDialog1.FileName) ' SaveFileDialog1.ShowDialog() ' MyLayOut.MyCurrentSettingFileName = SaveFileDialog1.FileName() ' If MyLayOut.MyCurrentSettingFileName <> "" Then ' 'Dim sContents As String
' ' IO.File.WriteAllText(MyLayOut.MyCurrentSettingFileName, sContents) ' IO.File.WriteAllText(MyLayOut.MyCurrentSettingFileName, MyLayOut.TextLeft & vbNewLine &amp; MyLayOut.TextTop & vbNewLine & MyLayOut.TextWidth & vbNewLine & MyLayOut.TextHeight & vbNewLine & MyLayOut.TextText & vbNewLine & MyLayOut.TextFont & vbNewLine & MyLayOut.TextBorder & vbNewLine & MyLayOut.FormLeft & vbNewLine & MyLayOut.FormTop & vbNewLine & MyLayOut.FormWidth & vbNewLine & MyLayOut.FormHeight & vbNewLine & MyLayOut.FormColor & vbNewLine & MyLayOut.FormBorder & vbNewLine & MyLayOut.OpacityLevel & vbNewLine & MyLayOut.TransparencyColor & vbNewLine &amp; MyLayOut.PictureFileName & vbNewLine & Label1.ForeColor.A & vbNewLine & Label1.ForeColor.R & vbNewLine & Label1.ForeColor.G & vbNewLine & Label1.ForeColor.B)
' End If
'End Sub
'Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveAsToolStripMenuItem.Click
' SaveFileDialog1.ShowDialog()
' MyLayOut.MyCurrentSettingFileName = SaveFileDialog1.FileName()
' If MyLayOut.MyCurrentSettingFileName <> "" Then ' IO.File.WriteAllText(MyLayOut.MyCurrentSettingFileName, MyLayOut.TextLeft & vbNewLine &amp; MyLayOut.FormTop & vbNewLine & MyLayOut.TextHeight & vbNewLine & MyLayOut.TextWidth & vbNewLine & MyLayOut.FormLeft & vbNewLine & MyLayOut.FormTop & vbNewLine & MyLayOut.FormWidth & vbNewLine & MyLayOut.FormHeight & vbNewLine & MyLayOut.TextText & vbNewLine & MyLayOut.TextFont & vbNewLine & MyLayOut.TextColor & vbNewLine & MyLayOut.TextBorder & vbNewLine & MyLayOut.FormLeft & vbNewLine & MyLayOut.FormTop & vbNewLine & MyLayOut.FormWidth & vbNewLine & MyLayOut.FormHeight & vbNewLine & MyLayOut.FormColor & vbNewLine & MyLayOut.FormBorder & vbNewLine & MyLayOut.OpacityLevel & vbNewLine & MyLayOut.TransparencyColor & vbNewLine & MyLayOut.PictureFileName) ' End If End Sub
Private Sub BorderToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BorderToolStripMenuItem.Click
End Sub
Private Sub MoveAmountToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MoveAmountToolStripMenuItem.Click
End Sub
Private Sub FileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FileToolStripMenuItem.Click 'MyLayOut.TextLeft = Label1.Left 'MyLayOut.TextTop = Label1.Top 'MyLayOut.TextWidth = Label1.Width 'MyLayOut.TextHeight = Label1.Height ''MyLayOut.TextMoveAmount = "" 'MyLayOut.TextText = Label1.Text 'MyLayOut.TextFont = Label1.Font.Name 'MyLayOut.TextColor = Label1.ForeColor.Name 'MyLayOut.TextBorder = Label1.BorderStyle
'MyLayOut.FormLeft = Me.Left 'MyLayOut.FormTop = Me.Top 'MyLayOut.FormWidth = Me.Width 'MyLayOut.FormHeight = Me.Height ''MyLayOut.FormMoveAmount = "" 'MyLayOut.FormColor = Me.BackColor.Name 'MyLayOut.FormBorder = Me.FormBorderStyle
'MyLayOut.OpacityLevel = Me.Opacity 'MyLayOut.TransparencyColor = Me.TransparencyKey.Name
End Sub
Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click OpenFileDialog1.ShowDialog() ReadMySettings(OpenFileDialog1.FileName) ' Dim sFile As String ' Dim aFields ' Dim b As Byte ' Dim MyColor1 As New Color
' OpenFileDialog1.ShowDialog() ' sFile = System.IO.File.ReadAllText(OpenFileDialog1.FileName) ' aFields = Split(sFile, vbNewLine)
' Label1.Left = aFields(0) ' Label1.Top = aFields(1) ' Label1.Width = aFields(2) ' Label1.Height = aFields(3) ' 'lblText Movement ' Label1.Text = aFields(4) ' Label1.Font = New Font(CStr(aFields(5)), 55, FontStyle.Italic, GraphicsUnit.Point, b) ' Label1.BorderStyle = 0
' Me.Left = aFields(7) ' Me.Top = aFields(8) ' Me.Width = aFields(9) ' Me.Height = aFields(10) ' 'Me Movement ' 'Me.BackColor = aFields(11) ' Me.FormBorderStyle = aFields(12)
' Me.Opacity = aFields(13) ' 'Me.TransparencyKey = aFields(14) ' If aFields(15) <> "" Then ' ' Me.BackgroundImage = aFields(15) ' End If ' MyColor1.FromArgb(aFields(16), aFields(17), aFields(18), aFields(19)) ' Label1.ForeColor = MyColor1 End Sub Private Sub ReadMySettings(ByVal sPathFile As String)
'Dim sPathFile As String = Application.StartupPath & "MyData.txt" Dim aContents Dim sFileName As String aContents = IO.File.ReadAllText(sPathFile).Split(vbNewLine)
Me.Left = aContents(0) Me.Top = aContents(1) Me.Width = aContents(2) Me.Height = aContents(3)
Me.BackColor = Color.FromArgb(aContents(4), aContents(5), aContents(6), aContents(7)) Me.TransparencyKey = Color.FromArgb(aContents(8), aContents(9), aContents(10), aContents(11))
Label1.BackColor = Color.FromArgb(aContents(12), aContents(13), aContents(14), aContents(15)) Label1.ForeColor = Color.FromArgb(aContents(16), aContents(17), aContents(18), aContents(19)) Label1.Left = aContents(20) Label1.Top = aContents(21) Label1.Text = aContents(22) Label1.Font = New Font(CStr(aContents(23)), CSng(aContents(24)), CLng(aContents(25)), CLng(aContents(26)), CByte(aContents(27))) Label1.AutoSize = True 'Me.BackgroundImage = System.Drawing.Image.FromFile(aContents(28)) 'sFileName = CStr(aContents(28)) 'Dim aSplit 'Dim aSplit2 'aSplit = Split(sFileName, ":") 'aSplit2 = Split(aSplit(1), "S")
'sFileName = Replace(aContents(28), aSplit2(0), "\") 'MsgBox(sFileName) 'MsgBox("\") Dim aSplit aSplit = Split(aContents(28), "C") MsgBox(aSplit(0)) sFileName = "C" & aSplit(1) MsgBox("a" & aContents(28))
Me.BackgroundImage = System.Drawing.Image.FromFile(sFileName) MsgBox("Finished", MsgBoxStyle.Information) End Sub Private Sub SaveMySettings(ByVal sPathFileName As String)
'Dim sPathFile As String = Application.StartupPath & "MyData.txt" Dim sContents As String
sContents = Me.Left & vbNewLine sContents = sContents & Me.Top & vbNewLine sContents = sContents & Me.Width & vbNewLine sContents = sContents & Me.Height & vbNewLine
sContents = sContents & Me.BackColor.A & vbNewLine sContents = sContents & Me.BackColor.R & vbNewLine sContents = sContents & Me.BackColor.G & vbNewLine sContents = sContents & Me.BackColor.B & vbNewLine
sContents = sContents & Me.TransparencyKey.A & vbNewLine sContents = sContents & Me.TransparencyKey.R & vbNewLine sContents = sContents & Me.TransparencyKey.G & vbNewLine sContents = sContents & Me.TransparencyKey.B & vbNewLine
sContents = sContents & Label1.BackColor.A & vbNewLine sContents = sContents & Label1.BackColor.R & vbNewLine sContents = sContents & Label1.BackColor.G & vbNewLine sContents = sContents & Label1.BackColor.B & vbNewLine
sContents = sContents & Label1.ForeColor.A & vbNewLine sContents = sContents & Label1.ForeColor.R & vbNewLine sContents = sContents & Label1.ForeColor.G & vbNewLine sContents = sContents & Label1.ForeColor.B & vbNewLine
sContents = sContents & Label1.Left & vbNewLine sContents = sContents & Label1.Top & vbNewLine sContents = sContents & Label1.Text & vbNewLine
sContents = sContents & Label1.Font.Name & vbNewLine sContents = sContents & Label1.Font.Size & vbNewLine sContents = sContents & Label1.Font.Style & vbNewLine sContents = sContents & Label1.Font.Unit & vbNewLine sContents = sContents & Label1.Font.GdiCharSet & vbNewLine sContents = sContents & MyLayOut.PictureFileName
IO.File.WriteAllText(sPathFileName, sContents, System.Text.Encoding.Unicode)
MsgBox("Saved", MsgBoxStyle.Information) End SubEnd Class