Trong khi làm việc trên một bản cập nhật cho một ứng dụng cho Windows 8, tôi quyết định đặt cùng mẫu sau cho người dùng sử dụng những người vẫn có thể sử dụng VB.Net 2010. Là người vẫn đang học cách sử dụng Visual Studio Tools đi kèm với Windows 8 Developer Build, tôi vẫn đang viết các ứng dụng bằng VB.Net 2008/2010 và nghĩ rằng điều này có thể hữu ích nếu có ai đó muốn tạo ra các ứng dụng của họ một chút.
Bạn có thể tải xuống Mẫu đã được thực hiện trước ở cuối trang.
Bắt đầu một Dự án Trống mới trong VB.net (Tôi đang sử dụng VB.Net Express 2010 cho Mẫu này)
Thêm 2 Biểu mẫu vào dự án. Gắn nhãn chúng dưới dạng giật gân và chủ yếu và đặt cả hai thành FormBorderStyle None, WindowState Maximized. (Tôi đặt cả hai không hiển thị trong thanh tác vụ và không có văn bản nhưng đây chỉ là một ưu tiên cho tôi).
Bộ giật gân backcolor đến 43, 186, 255, chủ yếu backcolor trắng. Đặt tất cả các màu phông chữ cho tất cả các điều khiển thành màu trắng.
Trên hình thức giật gân, thêm các điều khiển sau:
Bảng điều khiển có tên pnllogo. pnllogo backcolor đến 43, 186, 255. Trên pnllogo, thêm các điều khiển sau:
- picturebox có tên piclogo, có kích thước 200 × 200
- nhãn có tên lbllogo, Kiểu phông chữ Segeo UI Light, Light, 48
- nhãn có tên lblcompany, Kiểu phông chữ Segeo UI Light, Light, 28
Bộ hẹn giờ có tên tmrdisplay với Khoảng thời gian được đặt thành 5000
Trên biểu mẫu chính thêm điều khiển sau:
Bảng điều khiển có tên pnlappbar. pnlappbar backcolor thành màu đen. Trên pnlappbar thêm các điều khiển sau đây:
- Nút có tên btnapply, Văn bản để hiển thị là Áp dụng: Kiểu phông chữ Segeo UI Light, Light, 12: Kích thước nút 120 × 45
- Nút có tên btnclose, Văn bản để hiển thị là Đóng: Kiểu chữ Segeo UI Light, Light, 12: Kích thước nút 120 × 45
- Nút có tên btnyes, Văn bản để hiển thị là Có: Kiểu phông chữ Segeo UI Light, Light, 12: Kích thước nút 120 × 45
- Nút có tên btnno, Văn bản để hiển thị là No: Kiểu Font Segeo UI Light, Light, 12: Kích thước nút 120 × 45
- Nhãn có tên lblinfo, Kiểu phông chữ Segeo UI Light, Light, 12
- Nhãn có tên lblinfo2, Kiểu phông chữ Segeo UI Light, Light, 12
Thêm mã sau đây để giật gân:
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
Thêm mã sau vào chính:
#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
Hãy cho tôi biết nếu bạn cần bất kỳ sự giúp đỡ.
Chúc mừng! 🙂
