Tác giả: Sưu tầm
Mô tả: Có rất nhìu cách để tạo ra một form theo ý thích của minh có thể dùng hình ảnh nhưng hơi nặng nay em đưa ra một cách mọi người có thể cùng tham gia để phát triển
bắt đầu từ việc tạo màu nền cho form
lưu ý chỉ dùng bằng code

Mã: Chọn hết
- Private Sub Form_Paint()
- Me.DrawWidth = 8: Me.ScaleWidth = 100
- For intLoop = 0 To Me.ScaleWidth
- Me.Line (intLoop, 0)-(intLoop - 1, Screen.Height), RGB(30, intLoop * 1.2, intLoop / 2)
- Next
- End Sub
API - Guide đã viết:Mã: Chọn hết
- Private Type TRIVERTEX
- x As Long
- y As Long
- Red As Integer 'Ushort value
- Green As Integer 'Ushort value
- Blue As Integer 'ushort value
- Alpha As Integer 'ushort
- End Type
- Private Type GRADIENT_RECT
- UpperLeft As Long 'In reality this is a UNSIGNED Long
- LowerRight As Long 'In reality this is a UNSIGNED Long
- End Type
- Const GRADIENT_FILL_RECT_H As Long = &H0 'In this mode, two endpoints describe a rectangle. The rectangle is
- 'defined to have a constant color (specified by the TRIVERTEX structure) for the left and right edges. GDI interpolates
- 'the color from the top to bottom edge and fills the interior.
- Const GRADIENT_FILL_RECT_V As Long = &H1 'In this mode, two endpoints describe a rectangle. The rectangle
- ' is defined to have a constant color (specified by the TRIVERTEX structure) for the top and bottom edges. GDI interpolates
- ' the color from the top to bottom edge and fills the interior.
- Const GRADIENT_FILL_TRIANGLE As Long = &H2 'In this mode, an array of TRIVERTEX structures is passed to GDI
- 'along with a list of array indexes that describe separate triangles. GDI performs linear interpolation between triangle vertices
- 'and fills the interior. Drawing is done directly in 24- and 32-bpp modes. Dithering is performed in 16-, 8.4-, and 1-bpp mode.
- Const GRADIENT_FILL_OP_FLAG As Long = &HFF
- Private Declare Function GradientFillRect Lib "msimg32" Alias "GradientFill" (ByVal hdc As Long, pVertex As TRIVERTEX, ByVal dwNumVertex As Long, pMesh As GRADIENT_RECT, ByVal dwNumMesh As Long, ByVal dwMode As Long) As Long
- Private Function LongToUShort(Unsigned As Long) As Integer
- 'A small function to convert from long to unsigned short
- LongToUShort = CInt(Unsigned - &H10000)
- End Function
- Private Sub Form_Load()
- 'KPD-Team 1999
- 'URL: http://www.allapi.net/
- 'E-Mail: KPDTeam@Allapi.net
- 'API uses pixels
- Me.ScaleMode = vbPixels
- End Sub
- Private Sub Form_Paint()
- Dim vert(1) As TRIVERTEX
- Dim gRect As GRADIENT_RECT
- 'from black
- With vert(0)
- .x = 0
- .y = 0
- .Red = 0&
- .Green = 0& '&HFF& '0&
- .Blue = 0&
- .Alpha = 0&
- End With
- 'to blue
- With vert(1)
- .x = Me.ScaleWidth
- .y = Me.ScaleHeight
- .Red = 0&
- .Green = 0&
- .Blue = LongToUShort(&HFF00&)
- .Alpha = 0&
- End With
- gRect.UpperLeft = 0
- gRect.LowerRight = 1
- GradientFillRect Me.hdc, vert(0), 2, gRect, 1, GRADIENT_FILL_RECT_H
- End Sub
Quay về “[VB] Âm thanh và Đồ họa”
Đang xem chuyên mục này: Không có thành viên nào trực tuyến. và 1 khách