Во время работы над обновлением приложения для Windows 8 я решил собрать следующий шаблон для пользователей, которые могут использовать тех, кто все еще может использовать VB.Net 2010. Как кто-то, кто все еще учится использовать инструменты Visual Studio, включенные в Разработчик Windows 8 Build Build, я все еще пишу приложения, используя VB.Net 2008/2010, и думал, что это может быть полезно, если кто-то хочет немного подтянуть свои приложения.
Вы можете загрузить шаблон, предварительно подготовленный в нижней части страницы.
Начните новый проект Blank в VB.net (я использую VB.Net Express 2010 для этого шаблона)
Добавьте 2 проекта в проект. Обозначьте их как всплеск а также главный и установите оба параметра в FormBorderStyle None, WindowState Maximized. (Я установил, чтобы оба они не отображались в панели задач и без текста, но это только предпочтение для меня).
Задавать всплеск backcolor to 43, 186, 255, главный backcolor to white. Установите все цвета шрифтов для всех элементов управления на белый.
В форме всплеска добавьте следующие элементы управления:
Группа назвала pnllogo. pnllogo backcolor to 43, 186, 255. На pnllogo добавьте следующие элементы управления:
- картинка с именем piclogo, размер 200 × 200
- метка с именем lbllogo, Стиль шрифта Segeo UI Light, Light, 48
- метка с именем lblcompany, Стиль шрифта Segeo UI Light, Light, 28
Таймер назван tmrdisplay с интервалом, установленным на 5000
В основной форме добавьте следующий элемент управления:
Группа назвала pnlappbar. pnlappbar backcolor to black. На pnlappbar добавьте следующие элементы управления:
- Кнопка с именем btnapply, Текст для отображения: Применить: Стиль шрифта Segeo UI Light, Light, 12: Размер кнопки 120 × 45
- Кнопка с именем btnclose, Текст для отображения закрыт: Стиль шрифта Segeo UI Light, Light, 12: Размер кнопки 120 × 45
- Кнопка с именем btnyes, Текст для отображения: Да: Стиль шрифта Segeo UI Light, Light, 12: Размер кнопки 120 × 45
- Кнопка с именем btnno, Текст для отображения: Нет: Стиль шрифта Segeo UI Light, Light, 12: Размер кнопки 120 × 45
- Обозначение lblinfo, Стиль шрифта Segeo UI Light, Light, 12
- Обозначение lblinfo2, Стиль шрифта Segeo UI Light, Light, 12
Добавьте следующий код для всплеска:
Private Sub splash_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ‘Set Splash Screen size and begin the Timer Me.WindowState = FormWindowState.Maximized pnllogo.Left = (Me.Width – pnllogo.Width) / 2 pnllogo.Top = (Me.Height – pnllogo.Height) / 2 tmrdisplay.Enabled = True End Sub Private Sub tmrdisplay_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrdisplay.Tick ‘Removes the Splash Screen and displays the Main Application Me.Visible = False main.Visible = True End Sub
Добавьте следующий код:
#Region “Set Form” Private Sub main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load setcontrols() End Sub
Public Sub setcontrols() ‘Sets the location for all of the controls on the form. pnlappbar.Width = Me.Width pnlappbar.Left = Me.Left pnlappbar.Height = 100 pnlappbar.Top = Me.Height – pnlappbar.Height btnclose.Left = (pnlappbar.Width – btnclose.Width) – 10 btnapply.Left = (btnclose.Left – btnclose.Width) – 10 btnyes.Left = btnapply.Left btnyes.Top = btnapply.Top btnyes.Visible = False btnno.Left = btnclose.Left btnno.Top = btnclose.Top btnno.Visible = False lblinfo.Left = Me.Left + 200 lblinfo.Visible = False lblinfo.Visible = False lblinfo2.Left = Me.Left + 200 lblinfo2.Visible = False Me.TopMost = True End Sub
Private Sub main_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing ‘Make sure application exits. Application.Exit() End Sub #End Region ‘Set Form
#Region “Apply Button” Private Sub btnapply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnapply.Click ‘Sets the messages across the appbar and displays the correct buttons. lblinfo.Visible = False btnapply.Visible = False btnyes.Visible = True btnno.Visible = True btnclose.Visible = False lblinfo2.Visible = True lblinfo2.Text = “Changes you made may require a System Restart. Would you like to Restart Now?” End Sub
Private Sub btnapply_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnapply.MouseEnter ‘Sets the messages across the appbar and displays the correct buttons. btnapply.BackColor = Color.Gray lblinfo.Text = “Apply changes you have made to Windows 8” lblinfo.Visible = True End Sub
Private Sub btnapply_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnapply.MouseLeave btnapply.BackColor = Color.Black lblinfo.Visible = False End Sub #End Region ‘Apply Button
#Region “Close Button” Private Sub btnclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclose.Click ‘Exit Application Application.Exit() End Sub
Private Sub btnclose_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnclose.MouseEnter ‘Sets the messages across the appbar and displays the correct buttons. btnclose.BackColor = Color.Gray lblinfo.Text = “Close the application without making changes?” lblinfo.Visible = True End Sub
Private Sub btnclose_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnclose.MouseLeave btnclose.BackColor = Color.Black lblinfo.Visible = False End Sub #End Region ‘Close Button
#Region “No Button” Private Sub btnno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnno.Click ‘Apply your settings ‘We are going to do something here ‘------------------- ‘Sets the messages across the appbar and displays the correct buttons. lblinfo.Visible = False btnapply.Visible = True btnyes.Visible = False btnno.Visible = False btnclose.Visible = True lblinfo2.Visible = False End Sub
Private Sub btnno_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnno.MouseEnter btnno.BackColor = Color.Gray End Sub
Private Sub btnno_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnno.MouseLeave btnno.BackColor = Color.Black End Sub #End Region ‘No Button
#Region “Yes Button” Private Sub btnyes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnyes.Click ‘Apply your settings ‘We are going to do something here ‘------------------- ‘This code will Restart Windows System.Diagnostics.Process.Start(“shutdown”, “-r -t 05”) Application.Exit() End Sub
Private Sub btnyes_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnyes.MouseEnter btnyes.BackColor = Color.Gray End Sub
Private Sub btnyes_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnyes.MouseLeave btnyes.BackColor = Color.Black End Sub #End Region ‘Yes Button
Дайте мне знать, если вам нужна помощь.
Ура! 🙂
