- [DEVEXPRESS] Hướng dẫn bật tính năng Scroll Pixcel in Touch trên GridView
- [DEVEXPRESS] Hướng dẫn sử dụng TileBar viết ứng dụng duyệt hình ảnh Winform
- [DEVEXPRESS] Tô màu border TextEdit trên Winform
- [C#] Lấy dữ liệu từ Console Write hiển thị lên textbox Winform
- [C#] Hiển thị Progress bar trên Window Console
- [C#] Di chuyển control Runtime và lưu layout trên winform
- [SQLSERVER] Sử dụng hàm NULL IF
- [C#] Chia sẽ source code mã đi tuần bằng giao diện Winform
- [C#] Flash Window in Taskbar Winform
- Download và Giải nén tập tin File sử dụng Powershell
- [C#] Hướng dẫn cách lấy thông tin đăng nhập tài khoản và mật khẩu web browser trên windows
- [VB.NET] CRUD Thêm xóa sửa tìm kiếm Realtime FireBase
- [C#] Hiển thị thông báo Toast Message trong lập trình Winform
- [C#] Cấu hình định dạng ngày tháng, thời gian trên Windows cho ứng dụng Winform
- [C#] Rút gọn đường dẫn link url với TinyURL API
- [C#] Hướng dẫn cách bo tròn winform with Radius
- [C#] Chia sẽ class BackGroundOverlay Show Modal cho Winform
- [C#] Hướng dẫn Flip Image Winform
- [C#] Invoke là gì? cách sử dụng phương thức Invoke()
- [C#] Hướng dẫn chia sẽ file, folder từ ứng dụng sang Zalo Chat
[VB.NET] Thiết kế giao diện winform theo hình dạng đặc biệt VB.NET
Bài viết hôm nay, mình sẽ hướng dẫn các bạn cách tùy biến giao diện windows form vb.net, mặc định giao diện windows khi chúng ta lập trình theo giao diện cửa sổ.
Nếu các bạn muốn, thiết kế form lại theo hình dạng mình muốn.
HƯỚNG DẪN THIẾT KẾ GIAO DIỆN WINFORM ĐẶC BIỆT VB.NET
Ví dụ: Bài viết này, mình thiết kế giao diện ứng dụng dưới dạng Iphone 8 plus.
Giao diện demo ứng dụng:
- Để thiết kế giao diện ứng dụng có hình dạn chiếc iphone trên, các bạn thực hiện các bước sau:
- Chỉnh các thuộc tính property của form1
Formborderstyle = none;
TransperentKey = Control;
Set background image = đường dẫn trỏ đến hình ảnh chiếc iphone.
Sau đó, các bạn kéo 1 webcontrol ra thì sẽ được giao diện như hình ở trên.
* Tiếp đến mình sẽ viết sự kiện drap mouse để khi kéo và rê hình chiếc điện thoại thì winform có thể di chuyển được.
Source code VB.NET
Public Class Form1
Public MoveForm As Boolean
Public MoveForm_MousePosition As Point
Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown
If e.Button = MouseButtons.Left Then
MoveForm = True
Me.Cursor = Cursors.NoMove2D
MoveForm_MousePosition = e.Location
End If
End Sub
Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles MyBase.MouseMove
If MoveForm Then
Me.Location = Me.Location + (e.Location - MoveForm_MousePosition)
End If
End Sub
Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles MyBase.MouseUp
If e.Button = MouseButtons.Left Then
MoveForm = False
Me.Cursor = Cursors.Default
End If
End Sub
End Class
HAVE FUN :)