หน้าแรก › 3_2004-2005 › Fading backcolor
Advertisement
3_2004-2005 Custom Controls/ Forms/ Menus #139155

Fading backcolor

Henrik Jacob Udsen
★★★★★
4.8 · ดาวน์โหลด: 2,341

Make the backcolor property of a form acts like a VB-Setup Program

AI

สรุปโดย AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

ซอร์สโค้ด
original-source 
Option Explicit
 
Private Sub Form_Paint()
 Dim lngY As Long
 Dim lngScaleHeight As Long
 Dim lngScaleWidth As Long
 Dim WhatColor As String
 
 ScaleMode = vbPixels
 lngScaleHeight = ScaleHeight
 lngScaleWidth = ScaleWidth
 DrawStyle = vbInvisible
 FillStyle = vbFSSolid
 For lngY = 0 To lngScaleHeight
  FillColor = RGB(0, 0, 255 - (lngY * 255) \ lngScaleHeight)
  Line (-1, lngY - 1)-(lngScaleWidth, lngY + 1), , B
 Next lngY
End Sub
ความคิดเห็นดั้งเดิม (3)
กู้คืนจาก Wayback Machine